怎么编lisp数字求和

aihuyujian

如图所示，天正单行文字，还有面积属性里面的数字怎么求和
用的求和的lisp都是选择对象0个，选不中
大家帮帮忙给个lisp源码能计算这种数字的求和，谢谢大家了

fuchongjiang

(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)                                ;
)

aihuyujian

fuchongjiang 发表于 2013-10-25 16:53
(defun c:qiuhe ()
  (setvar "cmdecho" 0)                       
  (setq ff (open (getfiled "文件保存为" "f:/" "txt" 1) ...

谢谢大神的帮助，刚才试了试还是只能识别45.69这一个数字，是不是在不分解的情况下就不能进行加法？那天正里面的面积计算是怎么获取这些数据的？还有识别45.69这样的单行文字而不是文字里的数字难道就只有这一种存txt的方法么？ 图片里的数据类型找TEXT都选不中很是郁闷

yefei812678

什么求和问题

帝都划水王

首先识别文本中的数字，然后各值求和，论坛应该有很多相关的，多搜搜