线长分组统计表（第二版）

newer · 发表于 2018-7-19 17:37:21

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

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

x

工作中，有时候需要按长度的分组统计下线的长度，比如下料的统计等等，下面代码完成这个工作，把线长相同的分成组，然后列出每组的单位长度，总数量，总长度，
最后有总的合计。

(defun c:XDTB_TJXIANC (/ h lst scl ss x y)
(defun my_err (msg)
(xdrx_prompt "\n" msg)
(xdrx_pointmonitor)
(xdrx_end)
(xd::doc:command (list ".undo" 1))
(setq *error* nil)
)
(if (not #txt_height)
(setq #txt_height 3.5)
)
(if (not #xd_var_global_bits)
(setq #xd_var_global_bits 1)
)
(if (setq val (getint
(xdrx_prompt "\n保留位数<" #xd_var_global_bits ">:" t)
)
)
(setq #xd_var_global_bits val)
)
(if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t)))
(setq #txt_height val)
)
(xdrx_initssget "\n选取要统计的线和多段线<退出>:")
(if (setq ss (xdrx_ssget '((0 . "LINE,*POLYLINE"))))
(progn (xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(setq *error* my_err)
(setq lst (mapcar '(lambda (x) (list (xdrx_getpropertyvalue x "length") x))
(xdrx_pickset->ents ss)
)
lst (xd::list:groupbyindex lst 1e-3)
lst (vl-sort lst '(lambda (x y) (< (car x) (car y))))
i 0
lst (mapcar '(lambda (x)
(list (itoa (setq i (1+ i)))
(rtos (car x) 2 #xd_var_global_bits)
(setq num (length (cdr x)))
(rtos (* num (car x)) 2 #xd_var_global_bits)
)
)
lst
)
lst (append lst
(list
(list "合计"
(rtos (apply '+ (mapcar '(lambda (y) (atof (cadr y))) lst))
2
#xd_var_global_bits
)
(itoa (apply '+ (mapcar '(lambda (y) (caddr y)) lst)))
(rtos (apply '+ (mapcar '(lambda (y) (atof (last y))) lst))
2
#xd_var_global_bits
)
)
)
)
lst (cons (list "序号" "长度" "数量" "总长") lst)
lst (cons (list "长度分组统计表" nil nil nil) lst)
)
(xd::text:init 1)
(setq scl (* (xd::var:getratio) (xd::var:getscaleratio))
h (* #txt_height scl)
)
(xd::table:makefromlist lst '(0 0 0) h (/ h 2.0))
(if (vl-catch-all-error-p
(vl-catch-all-apply
'XD::Drag:SimpleMove
(list (entlast) "\n表格插入点:" 8 t)
)
)
(xdrx_entity_delete (entlast))
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_TJXIANC (/ h lst scl ss x y) 
  (defun my_err (msg) 
    (xdrx_prompt "\n" msg) 
    (xdrx_pointmonitor) 
    (xdrx_end) 
    (xd::doc:command (list ".undo" 1)) 
    (setq *error* nil) 
  ) 
  (if (not #txt_height) 
    (setq #txt_height 3.5) 
  ) 
  (if (not #xd_var_global_bits) 
    (setq #xd_var_global_bits 1) 
  ) 
  (if (setq val (getint 
                  (xdrx_prompt "\n保留位数<" #xd_var_global_bits ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_bits val) 
  ) 
  (if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t))) 
    (setq #txt_height val) 
  ) 
  (xdrx_initssget "\n选取要统计的线和多段线<退出>:") 
  (if (setq ss (xdrx_ssget '((0 . "LINE,*POLYLINE")))) 
    (progn (xdrx_begin) 
           (xdrx_sysvar_push '("dimzin" 0)) 
           (setq *error* my_err) 
           (setq lst (mapcar '(lambda (x) (list (xdrx_getpropertyvalue x "length") x)) 
                             (xdrx_pickset->ents ss) 
                     ) 
                 lst (xd::list:groupbyindex lst 1e-3) 
                 lst (vl-sort lst '(lambda (x y) (< (car x) (car y)))) 
                 i   0 
                 lst (mapcar '(lambda (x) 
                                (list (itoa (setq i (1+ i))) 
                                      (rtos (car x) 2 #xd_var_global_bits) 
                                      (setq num (length (cdr x))) 
                                      (rtos (* num (car x)) 2 #xd_var_global_bits) 
                                ) 
                              ) 
                             lst 
                     ) 
                 lst (append lst 
                             (list 
                               (list "合 计" 
                                     (rtos (apply '+ (mapcar '(lambda (y) (atof (cadr y))) lst)) 
                                           2 
                                           #xd_var_global_bits 
                                     ) 
                                     (itoa (apply '+ (mapcar '(lambda (y) (caddr y)) lst))) 
                                     (rtos (apply '+ (mapcar '(lambda (y) (atof (last y))) lst)) 
                                           2 
                                           #xd_var_global_bits 
                                     ) 
                               ) 
                             ) 
                     ) 
                 lst (cons (list "序 号" "长  度" "数  量" "总 长") lst) 
                 lst (cons (list "长度分组统计表" nil nil nil) lst) 
           ) 
           (xd::text:init 1) 
           (setq scl (* (xd::var:getratio) (xd::var:getscaleratio)) 
                 h   (* #txt_height scl) 
           ) 
           (xd::table:makefromlist lst '(0 0 0) h (/ h 2.0)) 
           (if (vl-catch-all-error-p 
                 (vl-catch-all-apply 
                   'XD::Drag:SimpleMove 
                   (list (entlast) "\n表格插入点:" 8 t) 
                 ) 
               ) 
             (xdrx_entity_delete (entlast)) 
           ) 
           (xdrx_sysvar_pop) 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)

zhangfaren · 发表于 2018-7-19 17:46:59

本帖最后由 zhangfaren 于 2018-7-19 17:57 编辑

这个太强大了，如果能在线段上也标记序号，就可以和表格上的序号对应起来，这样子就完美了！

moranyuyan · 发表于 2018-7-19 18:19:52

代码复制粘贴后出现空格被问号替代的情况，怎么弄

newer · 发表于 2018-7-19 18:26:03

moranyuyan 发表于 2018-7-19 18:19
代码复制粘贴后出现空格被问号替代的情况，怎么弄

1、自己鼠标亮选择代码后，拷贝
2、你在编辑器发现? , 你用编辑器的全盘替换，把?替换无就行了。

newer · 发表于 2018-7-19 18:27:27

zhangfaren 发表于 2018-7-19 17:46
这个太强大了，如果能在线段上也标记序号，就可以和表格上的序号对应起来，这样子就完美了！

这个主要是统计材料量的，如果有N多的线，编上号图就太乱了。

你要标注选择的长度，论坛有别的插件。直接把长度标注到线上。

moranyuyan · 发表于 2018-7-19 18:29:13

newer 发表于 2018-7-19 18:26
1、自己鼠标亮选择代码后，拷贝
2、你在编辑器发现? , 你用编辑器的全盘替换，把?替换无就行了。

将鼠标放在代码的行数上复制就不会出现这个问题了，刚刚试过

hejiho · 发表于 2018-7-20 00:47:07

如果再加上一个自动给每根线标注名称功能就完美了

qxwangtao · 发表于 2018-7-20 08:50:23

这个不错，感谢分享

59222256 · 发表于 2018-7-28 18:26:32

在CAD中，最烦的是统计了

uualice · 发表于 2019-5-2 17:39:03

N版主，此脚本能否改成在列出表格的时候，长度按照从长到短的排列，或者2者有个选择？

bszzl167 · 发表于 2020-5-17 22:38:47

斑竹，介个插件能否再给个简单的不分组的，只按选取顺序列表。其实好多工具箱都缺少这样的插件。

Lisphk · 发表于 2020-5-18 00:03:26

bszzl167 发表于 2020-5-17 22:38
斑竹，介个插件能否再给个简单的不分组的，只按选取顺序列表。其实好多工具箱都缺少这样的插件。

你要一个一个去点吗？窗口选，不是更快

bszzl167 · 发表于 2020-5-18 09:04:01

Lisphk 发表于 2020-5-18 00:03
你要一个一个去点吗？窗口选，不是更快

不是窗选还是点选，而是选择后按顺序列出各段线

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

[统计] 线长分组统计表（第二版）

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

点评

点评

点评