shouerdekafei 发表于 2020-8-17 22:51:17

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

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

springwillow 发表于 2020-8-21 13:23:39

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

提供一下CAD文件样本

echor 发表于 2021-1-9 10:08:18

收走了，谢谢

wx_fCZsGgCb 发表于 2021-1-12 10:50:59


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

love_cq 发表于 2021-4-21 10:20:48

无币，下载不了

jhzxj 发表于 2021-9-11 21:13:17

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

wolaixuexi 发表于 2021-9-14 20:10:30

tigcat 发表于 2021-9-14 21:59:33

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

竹天 发表于 2021-9-15 09:44:49

本帖最后由 竹天 于 2021-9-15 09:46 编辑

bai2000 发表于 2017-11-23 10:08
对“2个钉”‘5个钉’之类的统计怎么做？
我这儿需要统计的数字后缀种类不多，用的是这个方法，可以参考下
(defun C:sump                                                ;声明命令名称--sump
      (/ S_list sl i sum n str)                              ;声明局部变量
      (setq S_list (ssget '((0 . "*TEXT")            ;限定被选择的对象为：文字(包括多行文字和天正文字)
                                    (1 . "*#kW,*#KW,*#kw,*#Kw"))));限定被选择的对象为：内容为数字加“kW”(不分大小写)结尾
      (setq sl (sslength S_list))                        ;读取选择集中的对象个数
      (setq i 0)                                                ;将循环标记设置为0
      (setq SUM 0)                                          ;将求和结果设置为0
      (while (< i sl)                                       ;开始循环
                (setq n (ssname S_list i))               ;取出选择集中第i个文字的对象名称
                (setq str (cdr (assoc 1 (entget n))))   ;提取当前文字的内容
                (setq SUM (+ SUM (atof str)))          ;累加
                (setq i (1+ i)))                              ;更新循环标志
      (princ "\n功率总和为：")                        ;提示将要输出的内容
      (princ SUM)                                          ;输出求和结果      
      (princ "kW")                                           ;输出单位      
      (prin1)
)

nyistjz 发表于 2021-9-18 22:21:25

这个函数很好用，但是感觉 有个问题，就是在没有统计到内容的时候，也是需要选择点位的。
是否可以做个判断，在没有内容可以输出的时候，就不要再有点击的动作了。
页: 1 2 3 [4] 5
查看完整版本: 对文本数字分类求和