HotroAcad Trung úy
Tổng số bài gửi : 40 Điểm : 88 Reputation : 15 Join date : 20/09/2011
| Tiêu đề: [Lisp]Chuyển font của các TextStyle trong cad về 1 loại Mon Oct 17, 2011 4:31 pm | |
| Chuyển font của các TextStyle trong cad về 1 loại - Code:
-
[font=Courier New](defun c:cf() (command "undo" "be") (vlax-for x (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)) ) (vla-put-fontfile x "Romans.shx"));co the sua de nguoi dung danh ten font (command "regen") (command "undo" "en") )[/font]
Tác giả : Ketxu | |
|