yang686526

如何将数字求和（sum）写到图中，焦急等待！！！
www.dimcax.com

我的意思是有没有一次全选中的办法，ssget本来就可以把每次选的数据都存入变量中，没必要选一次存一个变量了
d
那你得说说选中的数字和不要的数字有什么不同的地方啊
多动脑筋
d
xd论坛有两篇帖子，关于文本选集中数字求和并且写到图上的。可以参考一下。
十分感谢 无痕
d
;也许这样更完善
(defun c:sum ()
(setq p1(getpoint "请选择字域的左上角点"))
(setq p2(getpoint "请选择字域的右下角点"))

(command "zoom" "w" p1 p2)
(setq selct (ssget "w" p1 p2 '((0 . "text"))))

(setq n 0
sum 0
)
(repeat (sslength selct)
(setq en (ssname selct n))
(setq endata (entget en))
(setq entxt (cdr (assoc 1 endata)))
(setq entxt (atof entxt))
(setq sum (+ sum entxt))
(setq n (+ n 1))
)

(setq aa(entget en))
(setq zg0(cdr (assoc 40 aa)))
(setq p3 (polar p2 (/ pi 2) ( * zg0 2 ) ))
(setq sum (fix (+ sum 0.5)))
(command "text" "j" "mc" p3 zg0 0 sum )
)
金地三维钢结构详图设计工作室
qq-27709611
也有几个问题请各位老师帮忙解答：
①当数据含有单位时，如“80m”，如何将“m”去掉，让“80”参加统计；
②当text字符全是非数字字符时，如“高度”，自动将这个字符去除，不参加统计；
③当选择集为“nil”，或没有一个合格的数据时，输出统计结果为“0”。