求教一个合计的问题~~

xufen · 发表于 2004-4-8 19:51:00

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

xjny15el1vu.bmp

meflying · 发表于 2004-4-8 20:36:00

(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 · 发表于 2004-4-8 22:43:00

谢谢大虾^_^

求教一个合计的问题~~

发表回复

精选推荐

浏览过的版块