第1个回答 2010-02-05
(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
一般人是不会把源程序公布的,我已经破例了。
有不懂的,或有需改进的给我留言。本回答被网友采纳