可不可以写一个lisp程序，即框选所有图元后，程序自动选择文字，并将文字样式自动改为

julia67

可不可以写一个lisp程序，即框选所有图元后，程序自动选择文字，并将文字样式自动改为简线迷你细线体。
在下先谢谢各位高手了~~~

zyhandw

当然可以啊！！下面是代码（以方正细等线体为例，根据你的需要改一下定义的字体样式名称和实际的字体文件名即可），希望能帮到你！！

1. (defun c:julia()
   
2.   (command "-style" "方正细等线体" "FZXDXJW.TTF" "1.0" "1.0" "0" "N" "N")
   
3.   (setq textss (ssget '((0 . "*text"))))
   
4.   (setq n 0)
   
5.   (repeat (sslength textss)
   
6.     (setq textn (ssname textss n))
   
7.     (setq textnlst (entget textn))
   
8.     (setq textnlst (subst '(7 . "方正细等线体") (assoc 7 textnlst) textnlst))
   
9.     (entmod textnlst)
   
10.     (setq n (1+ n))
    
11.   )
    
12. (princ)
    
13. )

复制代码

CAD绘图

很好的程序 谢谢分享