请教高手怎样选择框内数字，并将他们相加，计算和是多少？

l_shiqiang

我想选择闭合的线内的所有数字，并将他们进行相加，最终得出他们的和

目的就是求框内文字的计算和

谢！

xyp1964

szys(数字运算)：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=39446

lazybug

;数字求和
(defun c:zz (/ ss n sum en_data num)
    (setvar "cmdecho" 1)
    (setq ss (ssget '((-4 . "<or") (0 . "TEXT") (0 . "MTEXT")(-4 . "or>"))))
    (setq n -1)
    (setq sum 0.0)
    (repeat (sslength ss)
 (setq en_data (entget (ssname ss (setq n (1+ n)))))
 (setq num (atof (cdr (assoc 1 en_data))))
 (setq sum (+ num sum))
    )
    (setq sum sum)
)