这个程序是把圈选的文字统一改为指定的字高
(defun c:lsp_41()
(setq old_hh (getvar"textsize"))
(setq str_hh (strcat "\n输入新字高<"(rtos old_hh 2)">:"))
(setq hh (getdist str_hh))
(if (null hh) (setq hh old_hh))
(setq ss (ssget))
(setq i 0)
(setq nn (sslength ss))
(repeat nn
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (= sstyp "TEXT")
(progn
(setq old_hh (assoc 40 ssdata))
(setq new_hh (cons 40 hh))
(setq ssdata (subst new_hh old_hh ssdata))
(entmod ssdata)
)
)
(setq i (1+ i))
)
(prin1)
)
请看看哪里有问题,谢谢很关键!
我在LiSp编辑器检查了下是最后一个括号输入法错了....但改了后只是可以运行,框选了不同字高的字体后按回车没变化
追答你选的可能是多行文字,你原代码只支持单行文字。我已经帮你改好了,支持单行与多行,你自己试一下
追问非常感谢,确实没问题了