求高手帮忙编写 AUTO CAD 的lisp函数

不好意思,忘了填写问题.

求高手帮忙修改以下代码,可实现弹出对话框,建入想修改字高数值,从而对文字进行字高修改.

(defun c:zg (/ 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 . 3))
(setq ed (subst new old ed))
(entmod ed)
(setq i (1+ i))
)
(princ "已将选中字体字高设为3")
(setq ss nil)
(princ)
)

举报该文章