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

newer · 发表于 2018-1-9 16:35:10

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

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

dyjwyqz5221 · 发表于 2018-1-9 16:43:33

看看，学习学习再学习！

yzhyxh · 发表于 2018-1-9 16:44:10

相信自己666 · 发表于 2018-1-9 19:55:24

newer 发表于 2018-1-9 16:35

十分感谢老师，老师太强大了，太赞了，太厉害了，佩服佩服

相信自己666 · 发表于 2018-1-21 23:02:17

newer 发表于 2018-1-9 16:35

您好老师，这个程序能再加个合计吗？在统计列表最下方加上合计就是统计出来的数字总和，请老师赐教，十分感谢。

Lisphk · 发表于 2018-1-21 23:35:47

相信自己666 发表于 2018-1-21 23:02

CAD表格自己就能求和的

搜狗截图20180121233414.gif

或者用论坛插件导出EXCEL，都很方便求和的。

相信自己666 · 发表于 2018-1-22 09:23:43

Lisphk 发表于 2018-1-21 23:35

您好老师，这样操作的话是要多操作一步，效率不高的，如果直接合计出来这样可以很大提高效率的，请老师不吝赐教，十分感谢。

marting · 发表于 2018-1-22 09:32:16

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

只是告诉你一个能解决的的有效的办法。你没程序，难道工作不要继续了？

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

marting 发表于 2018-1-22 09:32

您好老师，工作肯定要做的，只是要寻找提高工作效率的一个方法，请老师赐教多谢多谢。

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

相信自己666 · 发表于 2018-1-22 11:22:24

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

厉害了我的老师，太强大了，十分感谢学生受教了。

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

贵州老汉 · 发表于 2018-3-24 14:56:09

非常感谢您的分享

贵州老汉 · 发表于 2018-3-24 19:36:34

问哈大佬为啥我TT后提示找到0个，无法选择文子标识

贵州老汉 · 发表于 2018-3-24 19:42:57

大佬发的苗木统计.lsp 我也下了，全贴的代码我也复制试过，特别是在16楼我框选了字体就没有弹出字高这个项目，求大佬解惑

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

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

点评