写一个命令将图形文字全部变为宋体后，按照平行线做一个镜像

yayaya127

大体思路是这样，然后需要怎么开始啊啊啊啊啊啊

nyistjz

        (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)
        )

1993063

1. (vlax-for st (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))
   
2.   (vla-setfont st "宋体" :vlax-false :vlax-false 1 0)
   
3. )

复制代码