;这个程序将在屏幕上选取的多行文字中的数字字符转化成实数然后求和;(defunc:tsum()(setqtsum_col(ssget));取得选择集--选取多行文字(setqtsum_num(sslengthtsum_col));统计选择集中元...
;这个程序将在屏幕上选取的多行文字中的数字字符转化成实数然后求和;
(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"
展开