如何实现，
把框选的CAD图中的所有数字相加，
然后把其加值符给下一个点选的数字。
谢谢。自己搜一搜，应该有一堆！朋友，给指个明路吧
不知道应该用什么关键字搜索啊，
一搜一大堆，找不到啊我这有一个:应该可以满足你的要求
(defun c:pjz()
(setq xzj (ssget))
(if xzj
(progn
(setq sm (sslength xzj))
(setq j 0)
(setq i 0)
(setq c 0)
(repeat sm
(setq ca (cdr(nth 1 (entget(ssname xzj j)))))
(if (or (= ca "MTEXT") (= ca "TEXT"))
(progn
(if (atof(cdr (assoc 1 (entget(ssname xzj j)))))
(progn
(setq i (+ i 1))
(setq sz (atof(cdr (assoc 1 (entget(ssname xzj j))))))
(setq zs (+ sz c))
(setq c zs)
)
(progn (print "你未选中数字数据"))
)
)
)
(setq j (+ j 1))
)
(setq pjs (/ zs i))
(print "平均数是:" )
pjs
(setq sz (rtos zs 2 1))
(print "和是")
sz
)
(progn (print "未选中数据请重新选择") )
)
)(defun c:s1( / o x n)
(setq o (ssget '((0 . "TEXT,MTEXT"))) x 0)
(repeat (setq n (sslength o))
(setq x(+ x (atof(cdr(assoc 1 (entget(ssname o (setq n(1- n))))))))))
(princ x)(princ))http://www.xdcad.net/forum/showthre...threadid=421611