求教一个合计的问题~~

xufen

各位大虾小弟碰到一个合计的问题（因为不能用VBA等）所以一定要用LISP编写~~


其实就是要把一个表格里的数据进行累加（合计，但要剔出多种外来因素如：英文字母廓号等）在把累加的数据填入到制定的TEXT里~如下图：麻烦各位大虾了~~^_^

meflying

(defun c:test( / ss ent i ename da sum)
(prompt "选择数据...")
(setq ss (ssget '((0 . "text"))))
(setq ent (car (entsel "选择结果...")))
(setq i 0
sum 0)
(repeat (sslength ss)
(setq ename (ssname ss i))
(setq da (atof (cdr (assoc 1 (entget ename)))))
(if (/= da 0)
(setq sum (+ sum da))
)
(setq i (1+ i))
)
(setq ent (entget ent))
(setq ent (subst (cons 1 (rtos sum)) (assoc 1 ent) ent))
(entmod ent)
(princ)
)

xufen

谢谢大虾^_^