Question

autolisp点对元素怎么提取

;这个程序将在屏幕上选取的多行文字中的数字字符转化成实数然后求和;
(defun c: tsum()
(setq tsum_col (ssget));取得选择集--选取多行文字
(setq tsum_num (sslength tsum_col));统计选择集中元素总数
(setq tsum_i 0);指向选择集中的第0个元素
(setq tsum_sum 0.0);初始化待求和=0
(
while (< tsum_i tsum_num);如果指向元素没有超出选择集(中的个数)
(setq tsum_add (atof(cadr(assoc 1(entget (ssname tsum_col tsum_i))))));取得选择集中正在指向的 第i个元素的名称,然后根据名称取得内容字符串,再将字符串转化为实数,最后赋值给加数变量
(setq tsum_sum (+ tsum_sum tsum_add));将加数加到和中
(setq tsum_i (+ tsum_i 1));指向下一个元素
)
(prin1 tsum_sum);打印结果到屏幕
)
///////////////////////////////////////////////////////////////////////////////////
程序执行到时会报错(cadr(assoc 1(entget (ssname tsum_col tsum_i)))) 类型错误consp
///////////////////////////////////////////////////////////////////////////
也就是这种错误
(cadr (1 . "52.7"))
; 错误: 参数类型错误: consp "52.7"

Answer 1

(cadr (1 . "52.7"))改成 (cdr (1 . "52.7"))试试。。。。。。。。。

追问

^_^谢谢大侠,改了以后单步执行都行,但是整体加载的时候会报错,是不是代码哪里有错啊?帮忙调试一下吧,哈哈回复回复

追答

(defun c:tsum ()
(setq tsum_col (ssget))
(setq tsum_num (sslength tsum_col))
(setq tsum_i 0)
(setq tsum_sum 0.0)
(while (< tsum_i tsum_num)
(setq tsum_add (atof (cdr (assoc 1 (entget (ssname tsum_col tsum_i))))))
(setq tsum_sum (+ tsum_sum tsum_add))
(setq tsum_i (+ tsum_i 1))
)
(prin1 tsum_sum)
(prin1)
)

注意点：你选文字的时候只能选全是数字的文字，不要选包含非数字的文本，不然的话会出错，你这里没有写防出错语句。