664571221 发表于 2020-7-4 15:23:55

求大神看下这个问题

本帖最后由 664571221 于 2020-7-4 15:25 编辑

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

muwind 发表于 2020-7-4 22:40:43

提供最简单的思路：用黄大师的正则表达式把数字取出来，然后 相加，用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 "+"))
   )
   (setqsum+(strcat (substr sum+ 1 (1- (strlen sum+) )) "="))
   (princ sum+)(princ sum)
   (princ)
    ; (写字代码省略)
)

664571221 发表于 2020-7-6 08:53:34

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

你好怎么改成可以框选啊

664571221 发表于 2020-7-6 09:45:12

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

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

664571221 发表于 2020-7-6 14:18:53

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

大神能不能把程序补补全呀
页: [1]
查看完整版本: 求大神看下这个问题