Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
xaydung

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

Các bài được khuyến nghị

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?!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.374
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)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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?!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
vndesperados    253
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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!!!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ssg    1.088
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)
)
;;;------------------------------------------------------------------------------------------

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×