对文本数字分类求和

springwillow

对文本后带数字的文本按前面文本的内容分类对后面的数字进行求和。如下图：


本工具用到的正则表达式的函数搬来此处。

2. ;;--------------------------------------------正则表达式----------------------------------------------------;;
   
3. (defun xxexp (pat str key / end)
   
4.   ;(princ "\n ★"一刀屠文"(xxexp)(xxexpr) = 对字符串进行正则表达式测试及替换-by 梁雄啸.2007.7")
   
5.   (vl-load-com)
   
6.   (if (not *xxvbsexp)
   
7.     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
   
8.   )
   
9.   (vlax-put *xxvbsexp 'Pattern pat)
   
10.   (if (not key)(setq key ""))  
    
11.   (setq key (strcase key))
    
12.   (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline")))
    
13.   (mapcar '(lambda(x)
    
14.        (if (wcmatch key (strcat "*" (car x) "*"))
    
15.          (vlax-put *xxvbsexp (read(cadr x)) 0)
    
16.          (vlax-put *xxvbsexp (read(cadr x)) -1)
    
17.          ))
    
18.     keys)
    
19.   (setq matches (vlax-invoke *xxvbsexp 'Execute str))
    
20.   (vlax-for x matches (setq end (cons (vla-get-value x) end)))
    
21.   (reverse end)
    
22. )
    
23. ;;--------------------------------------------end----------------------------------------------------;;

;;--------------------------------------------正则表达式----------------------------------------------------;;<br /> (defun xxexp (pat str key / end)<br />   ;(princ "\n ★"一刀屠文"(xxexp)(xxexpr) = 对字符串进行正则表达式测试及替换-by 梁雄啸.2007.7")<br />   (vl-load-com)<br />   (if (not *xxvbsexp)<br />     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))<br />   )<br />   (vlax-put *xxvbsexp 'Pattern pat)<br />   (if (not key)(setq key ""))  <br />   (setq key (strcase key))<br />   (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline")))<br />   (mapcar '(lambda(x)<br />        (if (wcmatch key (strcat "*" (car x) "*"))<br />          (vlax-put *xxvbsexp (read(cadr x)) 0)<br />          (vlax-put *xxvbsexp (read(cadr x)) -1)<br />          ))<br />     keys)<br />   (setq matches (vlax-invoke *xxvbsexp 'Execute str))<br />   (vlax-for x matches (setq end (cons (vla-get-value x) end)))<br />   (reverse end)<br /> )<br /> ;;--------------------------------------------end----------------------------------------------------;;

竹天

bai2000 发表于 2017-11-23 10:08
对“2个钉”‘5个钉’之类的统计怎么做？

我这儿需要统计的数字后缀种类不多，用的是这个方法，可以参考下

2. (defun C:sump                                                ;声明命令名称--sump
   
3.         (/ S_list sl i sum n str)                              ;声明局部变量
   
4.         (setq S_list (ssget '((0 . "*TEXT")              ;限定被选择的对象为：文字(包括多行文字和天正文字)
   
5.                                     (1 . "*#kW,*#KW,*#kw,*#Kw"))));限定被选择的对象为：内容为数字加“kW”(不分大小写)结尾
   
6.         (setq sl (sslength S_list))                          ;读取选择集中的对象个数
   
7.         (setq i 0)                                                ;将循环标记设置为0
   
8.         (setq SUM 0)                                          ;将求和结果设置为0
   
9.         (while (< i sl)                                         ;开始循环
   
10.                 (setq n (ssname S_list i))                 ;取出选择集中第i个文字的对象名称
    
11.                 (setq str (cdr (assoc 1 (entget n))))   ;提取当前文字的内容
    
12.                 (setq SUM (+ SUM (atof str)))          ;累加
    
13.                 (setq i (1+ i)))                                ;更新循环标志
    
14.         (princ "\n功率总和为：")                          ;提示将要输出的内容
    
15.         (princ SUM)                                            ;输出求和结果      
    
16.         (princ "kW")                                           ;输出单位      
    
17.         (prin1)
    
18. )

(defun C:sump                                                ;声明命令名称--sump<br />         (/ S_list sl i sum n str)                              ;声明局部变量<br />         (setq S_list (ssget '((0 . "*TEXT")              ;限定被选择的对象为：文字(包括多行文字和天正文字)<br />                                     (1 . "*#kW,*#KW,*#kw,*#Kw"))));限定被选择的对象为：内容为数字加“kW”(不分大小写)结尾<br />         (setq sl (sslength S_list))                          ;读取选择集中的对象个数<br />         (setq i 0)                                                ;将循环标记设置为0<br />         (setq SUM 0)                                          ;将求和结果设置为0<br />         (while (< i sl)                                         ;开始循环<br />                 (setq n (ssname S_list i))                 ;取出选择集中第i个文字的对象名称<br />                 (setq str (cdr (assoc 1 (entget n))))   ;提取当前文字的内容<br />                 (setq SUM (+ SUM (atof str)))          ;累加<br />                 (setq i (1+ i)))                                ;更新循环标志<br />         (princ "\n功率总和为：")                          ;提示将要输出的内容<br />         (princ SUM)                                            ;输出求和结果       <br />         (princ "kW")                                           ;输出单位       <br />         (prin1)<br /> )

jhzxj

兄弟，你那gfsum怎么加载，附件加载选择对象后没有反应，和帖子上兄弟说的一样，出现一串英文。将正则表达式粘贴到附件上则提示没有这命令。请教如何加载，本人不懂lisp。但非常喜欢这插件，功能非常有用。麻烦指点下，谢谢！

shouerdekafei

ml2513 发表于 2018-2-27 09:22
谢谢，可以使用。
请教楼主，如果文本字母后面想加数字，然后合计。表达式应该怎么修改。

我也想问这个问题，会了麻烦联系一下我1156999411,有谢

又是明天

谢谢分享！！！

lizhiqiang9801

统计的文本要是能生成表格就更好了，谢谢楼主分享

bai2000

对“2个钉”‘5个钉’之类的统计怎么做？

meja

非常非常好！！！很实用！！！

ml2513

你好，使用后出现下面的情况？》no function definition: XXEXP

springwillow

ml2513 发表于 2018-2-15 01:08
你好，使用后出现下面的情况？》no function definition: XXEXP

见贴子后给出的函数

ml2513

springwillow 发表于 2018-2-22 13:27
见贴子后给出的函数

我是新手，还不明白，不过谢谢您了。

邓超0203

CAD2006 用不了

springwillow

邓超0203 发表于 2018-2-26 12:50
CAD2006 用不了

把正则函数粘到程序开头