Question

输入的列表有缺陷 autolisp 错在哪里？

这个程序是把圈选的文字统一改为指定的字高

(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)
）

请看看哪里有问题，谢谢很关键！

Answer 1

(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 (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(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编辑器检查了下是最后一个括号输入法错了....但改了后只是可以运行,框选了不同字高的字体后按回车没变化

追答

你选的可能是多行文字，你原代码只支持单行文字。我已经帮你改好了，支持单行与多行，你自己试一下

追问

非常感谢，确实没问题了