【已解决】CAD中带文字的数字分别求和插件

ml2513 · 发表于 2017-8-9 13:10:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2017-8-10 08:48 编辑

有没有类似这样的插件，谢谢。

newer · 发表于 2018-1-22 11:25:14

相信自己666 发表于 2018-1-22 09:47

加一行代码而已，希望能举一反三

lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1))))

(defun c:tt (/ hz lst pt ss txt txt1 var x xw y)
(if (and
(xdrx_initssget "\n选取要统计的文字<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(setq lst (mapcar
'(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+"
txt ""
)
)
(if txt1
(setq lst (mapcar
'(lambda (y)
(setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}"
y ""
)
)
(setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?"
y ""
)
)
(list (car hz) (atof (car xw)))
)
txt1
)
)
)
)
(xdrx_pickset->ents ss)
)
lst (apply
'append
lst
)
lst (xd::list:groupbyindex lst 0.1)
lst (vl-sort lst '(lambda (x y)
(< (car x) (car y))
)
)
lst (mapcar
'(lambda (x)
(list (car x) (rtos (apply
'+
(cdr x)
) 2 1
)
)
)
lst
)
lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1))))
lst (append
(list (list "统计表" nil) '("名称" "数量"))
lst
)
)
(if (not #miaomu-tj-height)
(setq #miaomu-tj-height 3.5)
)
(if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t)))
(setq #miaomu-tj-height var)
)
(if (setq pt (getpoint "\n表格插入点:"))
(progn
(xd::text:init 1)
(XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height
2.0
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:tt (/ hz lst pt ss txt txt1 var x xw y) 
  (if (and 
        (xdrx_initssget "\n选取要统计的文字<退出>:") 
        (setq ss (xdrx_ssget '((0 . "TEXT")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("dimzin" 0)) 
      (setq lst (mapcar 
                  '(lambda (x) 
                     (setq txt (xdrx_getpropertyvalue x "textstring")) 
                     (setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+" 
                                                    txt "" 
                                ) 
                     ) 
                     (if txt1 
                       (setq lst (mapcar 
                                   '(lambda (y) 
                                      (setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (list (car hz) (atof (car xw))) 
                                    ) 
                                   txt1 
                                 ) 
                       ) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
                ) 
            lst (apply 
                  'append 
                  lst 
                ) 
            lst (xd::list:groupbyindex lst 0.1) 
            lst (vl-sort lst '(lambda (x y) 
                                (< (car x) (car y)) 
                              ) 
                ) 
            lst (mapcar 
                  '(lambda (x) 
                     (list (car x) (rtos (apply 
                                           '+ 
                                           (cdr x) 
                                         ) 2 1 
                                   ) 
                     ) 
                   ) 
                  lst 
                ) 
            lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1)))) 
            lst (append 
                  (list (list "统计表" nil) '("名 称" "数 量")) 
                  lst 
                ) 
      ) 
      (if (not #miaomu-tj-height) 
        (setq #miaomu-tj-height 3.5) 
      ) 
      (if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t))) 
        (setq #miaomu-tj-height var) 
      ) 
      (if (setq pt (getpoint "\n表格插入点:")) 
        (progn 
          (xd::text:init 1) 
          (XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height 
                                                              2.0 
                                                           ) 
          ) 
        ) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2018-1-22 10:34:34

相信自己666 发表于 2018-1-22 09:47

加一行代码而已，希望能举一反三

lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1))))

(defun c:tt (/ hz lst pt ss txt txt1 var x xw y)
(if (and
(xdrx_initssget "\n选取要统计的文字<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(setq lst (mapcar
'(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+"
txt ""
)
)
(if txt1
(setq lst (mapcar
'(lambda (y)
(setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}"
y ""
)
)
(setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?"
y ""
)
)
(list (car hz) (atof (car xw)))
)
txt1
)
)
)
)
(xdrx_pickset->ents ss)
)
lst (apply
'append
lst
)
lst (xd::list:groupbyindex lst 0.1)
lst (vl-sort lst '(lambda (x y)
(< (car x) (car y))
)
)
lst (mapcar
'(lambda (x)
(list (car x) (rtos (apply
'+
(cdr x)
) 2 1
)
)
)
lst
)
lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1))))
lst (append
(list (list "统计表" nil) '("名称" "数量"))
lst
)
)
(if (not #miaomu-tj-height)
(setq #miaomu-tj-height 3.5)
)
(if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t)))
(setq #miaomu-tj-height var)
)
(if (setq pt (getpoint "\n表格插入点:"))
(progn
(xd::text:init 1)
(XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height
2.0
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:tt (/ hz lst pt ss txt txt1 var x xw y) 
  (if (and 
        (xdrx_initssget "\n选取要统计的文字<退出>:") 
        (setq ss (xdrx_ssget '((0 . "TEXT")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("dimzin" 0)) 
      (setq lst (mapcar 
                  '(lambda (x) 
                     (setq txt (xdrx_getpropertyvalue x "textstring")) 
                     (setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+" 
                                                    txt "" 
                                ) 
                     ) 
                     (if txt1 
                       (setq lst (mapcar 
                                   '(lambda (y) 
                                      (setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (list (car hz) (atof (car xw))) 
                                    ) 
                                   txt1 
                                 ) 
                       ) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
                ) 
            lst (apply 
                  'append 
                  lst 
                ) 
            lst (xd::list:groupbyindex lst 0.1) 
            lst (vl-sort lst '(lambda (x y) 
                                (< (car x) (car y)) 
                              ) 
                ) 
            lst (mapcar 
                  '(lambda (x) 
                     (list (car x) (rtos (apply 
                                           '+ 
                                           (cdr x) 
                                         ) 2 1 
                                   ) 
                     ) 
                   ) 
                  lst 
                ) 
            lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1)))) 
            lst (append 
                  (list (list "统计表" nil) '("名 称" "数 量")) 
                  lst 
                ) 
      ) 
      (if (not #miaomu-tj-height) 
        (setq #miaomu-tj-height 3.5) 
      ) 
      (if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t))) 
        (setq #miaomu-tj-height var) 
      ) 
      (if (setq pt (getpoint "\n表格插入点:")) 
        (progn 
          (xd::text:init 1) 
          (XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height 
                                                              2.0 
                                                           ) 
          ) 
        ) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2017-8-9 17:20:22

ml2513 发表于 2017-8-9 16:36

你没拷贝好，编码不对
直接下载附件吧，在XDRX API或者晓东工具箱下执行TT

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:苗木统计.lsp
下载次数:250 文件大小:2.3 KB
下载权限: 不限以上 [免费赚D豆]

newer · 发表于 2017-8-9 13:14:41

本帖最后由 newer 于 2017-8-9 13:16 编辑

1、每日插件论坛只是发布插件的地方，以后有求助，发到悬赏求助，晓东工具箱、编程申请，ALIP论坛。
这个帮你移动到晓东工具箱、编程申请论坛了。

以后注意。

2、请上传个测试的DWG压缩图纸，方便测试。

ml2513 · 发表于 2017-8-9 13:17:51

newer 发表于 2017-8-9 13:14

谢谢提醒，知道了。

newer · 发表于 2017-8-9 14:07:50

试试

(defun c:tt (/ hz lst pt ss txt var x xw y)
(if (and
(xdrx_initssget "\n选取要统计的文字<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(setq lst (mapcar
'(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(if (and
(setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}"
txt ""
)
)
(setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?"
txt ""
)
)
)
(list (car hz) (atof (car xw)))
)
)
(xdrx_pickset->ents ss)
)
lst (xd::list:groupbyindex lst 0.1)
lst (vl-sort lst '(lambda (x y)
(< (car x) (car y))
)
)
lst (mapcar
'(lambda (x)
(list (car x) (rtos (apply
'+
(cdr x)
) 2 1
)
)
)
lst
)
lst (append
(list (list "统计表" nil) '("名称" "数量"))
lst
)
)
(if (not #miaomu-tj-height)
(setq #miaomu-tj-height 3.5)
)
(if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t)))
(setq #miaomu-tj-height var)
)
(if (setq pt (getpoint "\n表格插入点:"))
(progn
(xd::text:init 1)
(XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height
2.0
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:tt (/ hz lst pt ss txt var x xw y) 
  (if (and 
        (xdrx_initssget "\n选取要统计的文字<退出>:") 
        (setq ss (xdrx_ssget '((0 . "TEXT")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("dimzin" 0)) 
      (setq lst (mapcar 
                  '(lambda (x) 
                     (setq txt (xdrx_getpropertyvalue x "textstring")) 
                     (if (and 
                           (setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}" 
                                                        txt "" 
                                    ) 
                           ) 
                           (setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?" 
                                                        txt "" 
                                    ) 
                           ) 
                         ) 
                       (list (car hz) (atof (car xw))) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
                ) 
            lst (xd::list:groupbyindex lst 0.1) 
            lst (vl-sort lst '(lambda (x y) 
                                (< (car x) (car y)) 
                              ) 
                ) 
            lst (mapcar 
                  '(lambda (x) 
                     (list (car x) (rtos (apply 
                                           '+ 
                                           (cdr x) 
                                         ) 2 1 
                                   ) 
                     ) 
                   ) 
                  lst 
                ) 
            lst (append 
                  (list (list "统计表" nil) '("名 称" "数 量")) 
                  lst 
                ) 
      ) 
      (if (not #miaomu-tj-height) 
        (setq #miaomu-tj-height 3.5) 
      ) 
      (if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t))) 
        (setq #miaomu-tj-height var) 
      ) 
      (if (setq pt (getpoint "\n表格插入点:")) 
        (progn 
          (xd::text:init 1) 
          (XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height 
                                                              2.0 
                                                           ) 
          ) 
        ) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

ml2513 · 发表于 2017-8-9 16:10:43

newer 发表于 2017-8-9 14:07

谢谢newer，我这就去。

ml2513 · 发表于 2017-8-9 16:36:05

newer 发表于 2017-8-9 14:07

我直接用CAD加载导入的，进去后显示读入的 (八进制) 字符不正确求教。

ml2513 · 发表于 2017-8-9 17:40:49

newer 发表于 2017-8-9 17:20

谢谢这位大佬

newer · 发表于 2017-8-9 17:54:26

ml2513 发表于 2017-8-9 17:40

不客气，会做动画图片不，如何会，帮我做一个你实际工程统计的动画，我去更新每日插件。

ml2513 · 发表于 2017-8-9 18:07:18

newer 发表于 2017-8-9 17:54

我不会做您说的那图片，但是您的代码可以使用的，非常简便。

ml2513 · 发表于 2017-8-9 18:15:21

newer 发表于 2017-8-9 17:54

后面如果再加个单位就更加完美了，不过现在的就很简便的了。总之非常感谢了。

dyjwyqz5221 · 发表于 2018-1-2 17:11:41

学习下，这个好用，以后用得着

相信自己666 · 发表于 2018-1-9 15:17:17

newer 发表于 2017-8-9 14:07

您好老师，请教，您个这代码只能统计1个文本数字，在同一行中多少文本能不能统计的，请老师看看能不能给改改代码，十分感谢老师

newer · 发表于 2018-1-9 15:24:29

相信自己666 发表于 2018-1-9 15:17

那你为什么不分开写呢？

相信自己666 · 发表于 2018-1-9 15:44:49

newer 发表于 2018-1-9 15:24

您好老师，因为类别有10多个，分开写要复制10多个，所以比较多，通常都是用单选写的，麻烦老师给看看有没有方法，感激不尽。

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】CAD中带文字的数字分别求和插件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评