写一个命令将图形文字全部变为宋体后，按照平行线做一个镜像
大体思路是这样，然后需要怎么开始啊啊啊啊啊啊(defun c:Standard_Song (/ font font_obj fontlist fontname n tosong)
(defun tosong (font / obj)
(setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) font))
(vlax-dump-Object obj)
(vla-setFont obj "宋体" :vlax-false :vlax-false 134 2)
);end defun
(setq font_obj (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for sobj font_obj
(setq fontname (vla-get-name sobj))
(setq fontlist (vl-remove "" (cons fontname fontlist))));end vlax-for
(setq n 0)
(repeat (length fontlist)
(setq font (nth n fontlist))
(tosong font)
(setq n (+ n 1)));end repeat
(command "regen")
(princ "\n>>>宋体字型调整成功")
(princ)
) (vlax-for st (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))
(vla-setfont st "宋体" :vlax-false :vlax-false 1 0)
)
页:
[1]