Question

高手帮助！！！我想编一个cad lisp程序~~

我想编一个lisp程序，即框选所有图元后，程序自动选择文字，并将文字字高自动改为0.8。
在下先谢谢各位高手了~~~
不是的，因为我现在做的工作很重复的，每次用那种方法很费时，所以才想编个程序，但能力不够，所以才到百度里提问呢~~~

Answer 1

(defun c:zigao (/ len old new ed i)
(setq ss (ssget '((-4 . "<xor") (0 . "TEXT") (0 . "MTEXT") (-4 . "xor>"))))
(setq len (sslength ss) i 0)
(while (< i len)
(setq ed (entget (ssname ss i)))
(setq old (assoc 40 ed) new '(40 . 0.8))
(setq ed (subst new old ed))
(entmod ed)
(setq i (1+ i))
)
(princ "已将选中字体字高老燃敏设为0.8")
(setq ss nil)
(princ)
)

将上述文字保侍枝存成扩展名为.lsp的文件放入cad/support目录下。
用时在命令行输入(load "文件名(不需加扩展名)")
注意(与"均用英文标点！
这个命令的命令名为zigao

一般人是不会把源程序公布的，我已经破例了。
有不懂的，或有需改进的给段差我留言。

Answer 2

如果字体要自己可以随意给定，应该怎么改这个程序呢？

Answer 3

不需要如链陵，直接用快唤虚速选择器就行了。crtl+1呼出特性对话框，上边最右边的图标就是快速选择器。
试一下吧，蛮好用的。不行问我好了。O(∩_∩渣戚)O~

Answer 4

这个貌似不用编吧,直接选中改不成吗??