求字体格式刷
 

求字体格式刷
www.dimcax.com
求字体格式刷
setq a (entsel)
setq a_date (entget (car a)) 然后该更改哪个才是改字体？ 改了7以后并没用用啊。
请高手指教下。
d
请看cad帮助中dxf组码的说明
d
我写不了一个，不知你是否用的上。
(defun c:chf()
(setvar "cmdecho" 0)
(setq objtext (car (entsel "\n请选择要更改字体的文字:")))
(setq enttxt (entget objtext))
(setq oldftstyle (cdr (assoc 7 enttxt)))
(setq fontstr "")
(setq font (cdr (assoc 2 (tblnext "style" t))))
(while (/= font nil)
(setq fontstr (strcat fontstr " " font))
(setq font (cdr (assoc 2 (tblnext "style"))))
)
(setq newftstyle (getstring (strcat "\n请输入要应用的文字:" fontstr ":")))
(while (= (wcmatch (strcase fontstr) (strcase (strcat "*" newftstyle "*"))) nil)
(princ "\n未找到此字体，请重新输入.")
(setq newftstyle (getstring (strcat "\n请输入要应用的文字:" fontstr ":")))
)
(setq enttxt (subst (cons 7 newftstyle) (assoc 7 enttxt) enttxt))
(entmod enttxt)
(prin1)
)
d