对文本数字分类求和

shouerdekafei

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

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

springwillow

shouerdekafei 发表于 2020-8-17 22:36
非常感谢，qq1156999411

提供一下CAD文件样本

echor

收走了，谢谢

wx_fCZsGgCb

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

love_cq

无币，下载不了

jhzxj

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

wolaixuexi

tigcat

结构前辈啊.左侧一大堆东西,看着很吸引人.

竹天

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 /> )

nyistjz

这个函数很好用，但是感觉 有个问题，就是在没有统计到内容的时候，也是需要选择点位的。
是否可以做个判断，在没有内容可以输出的时候，就不要再有点击的动作了。