Lisp đổi font text nọ sang font text kia !

[xaydung 12]

Chào các bác cao thủ lisp

Mình đang cần 1 lisp có nội dung như sau:

trên màn hình có 1 số text có các kiểu font khác nhau như vnarial, vntime...

chương trình sẽ hỏi chọn các text trên màn hình và chuyển toàn bộ các font

text đó về loại font arial. (tất nhiên chiều cao của các text đó vẫn được giữ nguyên)

thanks các bác trước?!

[nguyenlevinh 1]

Chào các bác cao thủ lisp

Mình đang cần 1 lisp có nội dung như sau:

trên màn hình có 1 số text có các kiểu font khác nhau như vnarial, vntime...

chương trình sẽ hỏi chọn các text trên màn hình và chuyển toàn bộ các font

text đó về loại font arial. (tất nhiên chiều cao của các text đó vẫn được giữ nguyên)

thanks các bác trước?!

cần gì phải viết lisp bạn. bạn thữ đánh lệnh Fi ( Filters) là ok ngay

[duy782006 1580]

Chào các bác cao thủ lisp

Mình đang cần 1 lisp có nội dung như sau:

trên màn hình có 1 số text có các kiểu font khác nhau như vnarial, vntime...

chương trình sẽ hỏi chọn các text trên màn hình và chuyển toàn bộ các font

text đó về loại font arial. (tất nhiên chiều cao của các text đó vẫn được giữ nguyên)

thanks các bác trước?!

 

Bạn muốn chuyển font của Style chứa text hay chuyển font của text không thôi (chuyển vào 1 style mới)

[xaydung 12]

Bạn muốn chuyển font của Style chứa text hay chuyển font của text không thôi (chuyển vào 1 style mới)

Chuyển font của style thì mình biết rồi, mình muốn chuyển font của text thôi!

Các bạn biết thì giúp mình nha?!

[vndesperados 254]

Chuyển font của style thì mình biết rồi, mình muốn chuyển font của text thôi!

Các bạn biết thì giúp mình nha?!

 

 

Mỗi đối tượng TEXT trong bản vẽ CAD gắn liền với một STYLE và mỗi STYLE có một FONT chữ.

Do vậy chỉ có thể đổi FONT chữ trong STYLE, không thể chỉ chuyển FONT của TEXT

[xaydung 12]

Mỗi đối tượng TEXT trong bản vẽ CAD gắn liền với một STYLE và mỗi STYLE có một FONT chữ.

Do vậy chỉ có thể đổi FONT chữ trong STYLE, không thể chỉ chuyển FONT của TEXT

Mình hiểu rồi, Vậy thì nhờ các bạn viết giúp mình 1 lisp như sau:

khi chạy lisp sẽ tự động tạo ra 1 text style có tên là arial, sau đó lisp hỏi chọn các text

kết quả là các text đó sẽ tự động chuyển sang style tên là arial là OK chứ gì??

Các bác giúp mình nha!!!

[ssg 1103]

Mình hiểu rồi, Vậy thì nhờ các bạn viết giúp mình 1 lisp như sau:

khi chạy lisp sẽ tự động tạo ra 1 text style có tên là arial, sau đó lisp hỏi chọn các text

kết quả là các text đó sẽ tự động chuyển sang style tên là arial là OK chứ gì??

Các bác giúp mình nha!!!

Code:

 

;;;------------------------------------------------------------------------------------------
(defun C:CTA( / ss e d);;;Change Text  to Arial style
(if (not (tblsearch "style" "arial")) 
(command "style" "arial" "arial" 0 1 0 "n" "n")
)
(prompt "\nChange text objects to Arial style")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(while (setq e (ssname ss 0))
(setq d (entget e))
(entmod (subst (cons 7 "arial") (assoc 7 d) d))
(ssdel e ss)
)
(princ)
)
;;;------------------------------------------------------------------------------------------