【转帖】标注的数字求和
 

标注的数字求和
www.dimcax.com
标注的数字求和
;;;=============标注求和dadd.lsp===================================================
;;;标注的数字求和
(defun c:dadd3 (/ss i sum ssone0 ssone a1 a2)
(setq ss (ssget '((0 . "dimension"))))
(setq i 0 sum 0)



(repeat (sslength ss)
(setq kk (cons (cdr (assoc 42 (entget (ssname ss i)))) kk))
(setq i (1+ i))
)

(setq ssone0 (ssname ss i) )
(setq ssone (entget ssone0 ))
(setq a1 (cdr (assoc 1 ssone)))
(if (=a1 "") (setq a2 (atof (cdr (assoc 42 ssone)))) (setq a2 (atof (cdr (assoc 1 ssone)))) )



(setq sum (+ sum 　a2)) (setq i (1+ i))
)
(princ "\n******所选标注和为")
(princ sum)
(princ "******")
;(command "text" "s" "standard" pause "3" "0" (rtos sum 2 2) )
(princ)
)
d
拿来试用一下
详谢谢楼主
d