Question

autolisp 输入的列表有缺陷

作用是具有相同属性的多块面积求和计算
代码如下
(defun c:ljmj1 (/ ENT I LEN MJ S SS STM)
(princ " \nselect number:")
(setq ss (ssget '((8. "jsmj")(0. "TEXT"))))
(if ss
(progn (setq i 0)
(setq mj 0)
(setq len (sslength ss))
(while( < i len)
(setq stm (ssname ss i))
(setq ent (entget stm))
(setq s (atof (cdr(assoc 1 ent))))
(setq mj ( + mj s))
(setq i ( + i 1))
)
请大神，帮我修改下啊，这代码运行后有错误。。。
[检查文字 ljmj.lsp 正在加载...]
; 错误: 输入的列表有缺陷
; 检查完成.
大哥，这个是所有程序的样子，您有空看看，麻烦了。。。谢谢哥
http://wenku.baidu.com/view/bdf4cbeb551810a6f52486f9.html

Answer 1

(defun c:jsmj ( / #mj &ss #si #sn &cs )
(princ "\n选择面积文字对象:")
(if (setq #mj 0 &ss (ssget (list (cons 0 "TEXT") (cons 8 "jsmj"))))
(repeat (setq #si 0 #sn (sslength &ss))
(setq &cs (ssname &ss #si) #si (1+ #si))
(setq #mj (+ #mj (atof (cdr (assoc 1 (entget &cs))))))
)
)
(princ (strcat "\n选择的面积总和是: [" (rtos #mj) "]")) (princ)
)