求大神看下这个问题

664571221

有这样子的文字A=***   能不能把后面的数字求和  列出计算式   比如图片 A=65.86+68.16=134.01  单独列个公式可以插入cad

muwind

提供最简单的思路：用黄大师的正则表达式把数字取出来，然后 相加，用princ 把结果打印出来
我正则还没入门，用别方式，思路就这样的，自己发挥下呗
(defun c:tt ( )
    (setq sum+ "A=")
    (setq sum 0.0)
    (while  (setq ss(entsel))
              (setq get_txt (cdr (assoc 1  (entget (car ss)))));
              (setq get_num (substr get_txt 3 (- (strlen get_txt) 4) ) );
              (setq sum (+ sum (atof get_num )))
              (setq sum+ (strcat sum+ get_num "+"))
     )
     (setq  sum+(strcat (substr sum+ 1 (1- (strlen sum+) )) "="))
     (princ sum+)(princ sum)
     (princ)
    ; (写字代码省略)
)

664571221

muwind 发表于 2020-7-4 22:40
提供最简单的思路：用黄大师的正则表达式把数字取出来，然后 相加，用princ 把结果打印出来
我正则还没入 ...

你好怎么改成可以框选啊

664571221

muwind 发表于 2020-7-4 22:40
提供最简单的思路：用黄大师的正则表达式把数字取出来，然后 相加，用princ 把结果打印出来
我正则还没入 ...

大神你好如果是A1=  A2=   A3=  这样的应该怎么处理呢

664571221

muwind 发表于 2020-7-4 22:40
提供最简单的思路：用黄大师的正则表达式把数字取出来，然后 相加，用princ 把结果打印出来
我正则还没入 ...

大神能不能把程序补补全呀