求教,求把cad单行文字中文本数字相加的LISP源码？十分感谢

相信自己666

    求教,求把cad单行文字中文本数字相加的LISP源码？十分感谢
如图片所示把：单行（纯数字求和）单行（文字后数字求和）单行（单行中多种文字后数字求和）  相加后的结果显示在命令行里的这种源lisp代码，谢谢老师，望老师不吝赐教。   

Lispboy

相信自己666 发表于 2018-1-14 19:33

1. (defun c:tt ()
   
2.   (or (and (xdrx_initssget "选择求和的文字<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "*TEXT"))))
   
4.            (setq txts (xdrx_entity_getproperty ss "textstring")
   
5.                  txts (xd::list:flat txts)
   
6.                  txts  (xdrx_string_regexps "[0-9.]+" (xdrx_string_join txts ","))
   
7.            )
   
8.            (setq num (apply '+ (mapcar 'atof txts)))
   
9.            (xdrx_prompt "\n选择的文字数字和是:" num)
   
10.       )
    
11.       (xdrx_prompt "\n没有选择带数字的文字.")
    
12.   )
    
13.   (princ)
    
14. )
    

(defun c:tt ()<br />   (or (and (xdrx_initssget "选择求和的文字<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "*TEXT"))))<br />            (setq txts (xdrx_entity_getproperty ss "textstring")<br />                  txts (xd::list:flat txts)<br />                  txts  (xdrx_string_regexps "[0-9.]+" (xdrx_string_join txts ","))<br />            )<br />            (setq num (apply '+ (mapcar 'atof txts)))<br />            (xdrx_prompt "\n选择的文字数字和是:" num)<br />       )<br />       (xdrx_prompt "\n没有选择带数字的文字.")<br />   )<br />   (princ)<br /> )<br />

newer

论坛首页，最新插件里面就有

http://bbs.xdcad.net/thread-714206-1-1.html

newer

以后发求助帖，附带个DWG文件上来，虽然图简单，但也给帮你的人减少些工作。

相信自己666

newer 发表于 2018-1-14 18:31

老师，我上传不上dwg.格式的文件，是禁止的，老师您说的那个代码是分类统计的，我说的这个是只为求和的一种代码，而这种代码这3种方式都可以用的，请老师再给指点，感激不尽。

newer

相信自己666 发表于 2018-1-14 19:16

RAR压缩文件是允许的，即使是DWG允许，如果大，也都打包成RAR上传啊。

Lispboy

1. (defun c:tt ()
   
2.   (or (and (xdrx_initssget "选择求和的文字<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "*TEXT"))))
   
4.            (setq txts (xdrx_entity_getproperty ss "textstring")
   
5.                  txts (xd::list:flat txts)
   
6.                  txts  (xdrx_string_regexps "[0-9.]+" (apply 'strcat txts))
   
7.            )
   
8.            (setq num (apply '+ (mapcar 'atof txts)))
   
9.            (xdrx_prompt "\n选择的文字数字和是:" num)
   
10.       )
    
11.       (xdrx_prompt "\n没有选择带数字的文字.")
    
12.   )
    
13.   (princ)
    
14. )
    

(defun c:tt ()<br />   (or (and (xdrx_initssget "选择求和的文字<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "*TEXT"))))<br />            (setq txts (xdrx_entity_getproperty ss "textstring")<br />                  txts (xd::list:flat txts)<br />                  txts  (xdrx_string_regexps "[0-9.]+" (apply 'strcat txts))<br />            )<br />            (setq num (apply '+ (mapcar 'atof txts)))<br />            (xdrx_prompt "\n选择的文字数字和是:" num)<br />       )<br />       (xdrx_prompt "\n没有选择带数字的文字.")<br />   )<br />   (princ)<br /> )<br />

相信自己666

Lispboy 发表于 2018-1-14 19:24

您好老师，多谢您的指教，可是老师这个纯数字求和好像有点问题，麻烦您再给看下，十分谢谢老师

相信自己666

十分感谢老师，太厉害了，多谢老师指教，愿老师，一切顺顺利利