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

wdb

将每次的选择都加入到另外的一个变量之中，然后再处理这个变量。

tjzcj

我的意思是有没有一次全选中的办法，SSGET本来就可以把每次选的数据都存入变量中，没必要选一次存一个变量了

meflying

那你得说说选中的数字和不要的数字有什么不同的地方啊

无痕

xd论坛有两篇帖子，关于文本选集中数字求和并且写到图上的。可以参考一下。
http://www.xdcad.com/forum/showthread.php?goto=lastpost&s=&threadid=83454
http://www.xdcad.com/forum/showthread.php?s=&postid=725790#post725790

tjzcj

十分感谢 无痕

ljcgq

;也许这样更完善 (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 )
)

123abc

也有几个问题请各位老师帮忙解答：


①当数据含有单位时，如“80m”，如何将“m”去掉，让“80”参加统计；


②当TEXT字符全是非数字字符时，如“高度”，自动将这个字符去除，不参加统计；


③当选择集为“nil”，或没有一个合格的数据时，输出统计结果为“0”。

wdb

可以采用遍历数据库的方法(setq selct (ssget "X" '((0 . "text"))))将文字取出来，然后再取出在对角点为p1和 p2框内的文字． 按这种方法屏幕不会闪烁．

123abc

123abc发表于2005-1-22 11:37:00也有几个问题请各位老师帮忙解答： ①当数据含有单位时，如“80m”，如何将“m”去掉，让“80”参加统计； ②当TEXT字符全是非数字字符时，如“高度”，自...

急盼各位老师帮忙！

my_autocad

这个程序不能精确到小数，需要改进，怎么改进呢？