Question

有没有CAD加载LSP的高手，一个连加的LSP在使用中除了点问题，求助！

直接加载后使用，求和得出的字体很小（但事实正确的），所以我就把文字格式修改了，然后在连加，求和得出的字体是大的了，但是全部是0.
(defun c:add()
(setq sblip (getvar "blipmode")
scmde (getvar "cmdecho"))
(prompt "\nSelect objects")
(setq ss (ssget (list (cons 0 "text")))
pt1 (getpoint "\n给出结果位置")
f1 (getvar"dimtxt")
i1 2
len (sslength ss)
all 0.0
i 0)
(repeat len
(setq namei (ssname ss i))
(setq li (entget namei))
(setq ti (cdr(assoc 1 li)))
(setq ti (atof ti))
(setq all (+ ti all))
(setq i(+ 1 i))
)
(setq ss nil)
(setq all(rtos all 2 i1))
(command "text" "j" "mc" pt1 f1 0 all)
(setvar "blipmode" sblip)
(setvar "cmdecho" scmde)
)

Answer 1

快捷键appload

追问

？

追答

用快捷键加载

追问

我又不是不会加载，是加载后会出错啊老大！

Answer 2

小的那段呢
对比看看
不知道你修改了那几句

追问

我改的不是这段代码，我是在加载后，在在CAD里改格式就会求和错误！