求高手帮忙编写 AUTO CAD 的lisp函数 10
不好意思,忘了填写问题.求高手帮忙修改以下代码,可实现弹出对话框,建入想修改字高数值,从而对文字进行字高修改.(defunc:zg(/lenoldnewedi)(setq...
不好意思,忘了填写问题.
求高手帮忙修改以下代码,可实现弹出对话框,建入想修改字高数值,从而对文字进行字高修改.
(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)
) 展开
求高手帮忙修改以下代码,可实现弹出对话框,建入想修改字高数值,从而对文字进行字高修改.
(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)
) 展开
2个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
