求更改文字为自身相加的数字

1213131

求一个一次框选 这些文字 全部变成 相加之后的数字
比如文字为660+130 就变成790   dwg 附件上传


如果是2x3+2x3 之类的 如何 一次框选 求和

Free-Lancer

如果是 Text 且固定为 + 分隔，用 ALisp 基本函数就可以，如果有 MTEXT 取 String 就很麻烦，使用 XDAPI 的通用方法如下

1. (defun c:tt (/ ss )
   
2.   (if (setq ss (ssget '((0 . "*TEXT"))))
   
3.     (mapcar
   
4.       '(lambda (x / l str)
   
5.          (if (wcmatch (setq str (xdrx_getpropertyvalue x "textstring"))
   
6.                       "#*#+#*#"
   
7.              )
   
8.            (progn (setq        l (apply
   
9.                             '+
   
10.                             (mapcar 'distof (xdrx_string_regexps "[0-9]+" str))
    
11.                           )
    
12.                   )
    
13.                   (xdrx_setpropertyvalue x "Textstring" (rtos l 2 0))
    
14.            )
    
15.          )
    
16.        )
    
17.       (xdrx_pickset->ents ss)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt (/ ss )<br />   (if (setq ss (ssget '((0 . "*TEXT"))))<br />     (mapcar<br />       '(lambda (x / l str)<br />          (if (wcmatch (setq str (xdrx_getpropertyvalue x "textstring"))<br />                       "#*#+#*#"<br />              )<br />            (progn (setq        l (apply<br />                             '+<br />                             (mapcar 'distof (xdrx_string_regexps "[0-9]+" str))<br />                           )<br />                   )<br />                   (xdrx_setpropertyvalue x "Textstring" (rtos l 2 0))<br />            )<br />          )<br />        )<br />       (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )

1213131

太感谢你了，大师啊

iLisp

还可以用表达式求值方法，cal自带的cal函数，如果有 x 表示 *，就先用vl-string-translate替换