怎么编lisp数字求和
如图所示，天正单行文字，还有面积属性里面的数字怎么求和
用的求和的lisp都是选择对象0个，选不中
大家帮帮忙给个lisp源码能计算这种数字的求和，谢谢大家了 (defun c:qiuhe ()
(setvar "cmdecho" 0)
(setq ff (open (getfiled "文件保存为" "f:/" "txt" 1) "a"))
(setq shuzi 0)
(while
(setq en (entsel "\n 选择数字:")) ;要求碰选一个文本数字
(redraw (car en) 3) ;亮显数字
(setq en_data (entget (car en)))
(setq pt (cdr (assoc 1 en_data)))
(setq pp (atof pt))
(setq shuzi (+ shuzi pp))
)
(setq ss (rtos shuzi))
(write-line ss ff)
(prin1)
(prompt
"所有文本之和为："
)
(princ ss)
(prin1) ;
) fuchongjiang 发表于 2013-10-25 16:53 static/image/common/back.gif
(defun c:qiuhe ()
(setvar "cmdecho" 0)
(setq ff (open (getfiled "文件保存为" "f:/" "txt" 1) ...
谢谢大神的帮助，刚才试了试还是只能识别45.69这一个数字，是不是在不分解的情况下就不能进行加法？那天正里面的面积计算是怎么获取这些数据的？还有识别45.69这样的单行文字而不是文字里的数字难道就只有这一种存txt的方法么？ 图片里的数据类型找TEXT都选不中很是郁闷 什么求和问题 首先识别文本中的数字，然后各值求和，论坛应该有很多相关的，多搜搜
页:
[1]