统计里的线长分组能否按选取顺序排列？

13926580805

现在的长度分组统计表是不论选取顺序，统一按长度由小到大排列。是否可以按选取的顺序来排列？

王鹏_pBZlo

13926580805 发表于 2020-5-30 21:23
建议加个可选项：按选取顺序排列/默认排列（由小到大）

1. (defun c:tt( / ss i lst ent entpar p10 p11 pc cl aso lst nlst)
   
2.         (setq ss (ssget (list (cons 0 "LINE"))))
   
3.         (setq i -1 lst nil j 1)
   
4.         (while (setq ent (ssname ss (setq i (1+ i))))
   
5.                 (setq entpar (entget ent))
   
6.                 (setq p10 (cdr (assoc 10 entpar)))
   
7.                 (setq p11 (cdr (assoc 11 entpar)))
   
8.                 (setq cl (rtos (distance p10 p11) 2 2))
   
9.                 (setq pc (mapcar '(lambda(x y) (/ (+ x y) 2.0)) p10 p11))
   
10.                 (if (setq aso (assoc cl lst))
    
11.                     (setq lst (subst (list cl (1+ (cadr aso)) (caddr aso)) aso lst))
    
12.                     (setq lst (append lst (list (list cl 1 j))) j (1+ j))
    
13.                 )
    
14.                 (entmake (list (cons 0 "TEXT") (cons 40 5)
    
15.                         (cons 1 (itoa (caddr (assoc cl lst))))(cons 10 pc)))
    
16.         )
    
17.         (setq nlst (list (list "序号" "长度" "数量" "总长")))
    
18.         (setq i -1)
    
19.         (while (setq ent (nth (setq i (1+ i)) lst))
    
20.             (setq nlst (append nlst (list (list (itoa (caddr ent)) (car ent) (itoa (cadr ent))
    
21.                  (rtos (* (atof (car ent)) (cadr ent)) 2 2)))))
    
22.         )
    
23.         (tlst-to-tab nlst "standard" 5 "" "" "")
    
24.         (princ)
    
25. )
    

(defun c:tt( / ss i lst ent entpar p10 p11 pc cl aso lst nlst)<br />         (setq ss (ssget (list (cons 0 "LINE"))))<br />         (setq i -1 lst nil j 1)<br />         (while (setq ent (ssname ss (setq i (1+ i))))<br />                 (setq entpar (entget ent))<br />                 (setq p10 (cdr (assoc 10 entpar)))<br />                 (setq p11 (cdr (assoc 11 entpar)))<br />                 (setq cl (rtos (distance p10 p11) 2 2))<br />                 (setq pc (mapcar '(lambda(x y) (/ (+ x y) 2.0)) p10 p11))<br />                 (if (setq aso (assoc cl lst))<br />                     (setq lst (subst (list cl (1+ (cadr aso)) (caddr aso)) aso lst))<br />                     (setq lst (append lst (list (list cl 1 j))) j (1+ j))<br />                 )<br />                 (entmake (list (cons 0 "TEXT") (cons 40 5)<br />                         (cons 1 (itoa (caddr (assoc cl lst))))(cons 10 pc)))<br />         )<br />         (setq nlst (list (list "序号" "长度" "数量" "总长")))<br />         (setq i -1)<br />         (while (setq ent (nth (setq i (1+ i)) lst))<br />             (setq nlst (append nlst (list (list (itoa (caddr ent)) (car ent) (itoa (cadr ent))<br />                  (rtos (* (atof (car ent)) (cadr ent)) 2 2)))))<br />         )<br />         (tlst-to-tab nlst "standard" 5 "" "" "")<br />         (princ)<br /> )<br />

tlst-to-tab函数参见
字符串列表转CAD表格函数
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=724861&fromuid=783614
(出处: 晓东CAD家园-论坛)

王鹏_pBZlo

按选取顺序不是应该更容易吗

bszzl167

王鹏_pBZlo 发表于 2020-3-6 22:44
按选取顺序不是应该更容易吗

老师，改一个发上来嘛，正需要！工具箱线长统计就一个总长，没有各线段长度列表。

Lisphk

窗口去选择，怎么确定顺序？

bszzl167

Lisphk 发表于 2020-5-18 00:02
窗口去选择，怎么确定顺序？

窗选不能确定顺序？？

newer

bszzl167 发表于 2020-5-18 09:06
窗选不能确定顺序？？

你手工确定顺序是可以一个一个去指定，各种各样
窗选就没顺序一说了

bszzl167

newer 发表于 2020-5-18 09:24
你手工确定顺序是可以一个一个去指定，各种各样
窗选就没顺序一说了

受教了，谢谢版主！

bszzl167

newer 发表于 2020-5-18 09:24
你手工确定顺序是可以一个一个去指定，各种各样
窗选就没顺序一说了

版主，能否抽空帮研究一下这个：http://bbs.xdcad.net/thread-725854-1-1.html，谢谢了

13926580805

newer 发表于 2020-5-18 09:24
你手工确定顺序是可以一个一个去指定，各种各样
窗选就没顺序一说了

我是选了线长分组后，一个一个去选（不同长度的），出来的统计表，还是按长度由小到大排列，不是按选取的顺序来排列。

王鹏_pBZlo

13926580805 发表于 2020-5-30 09:44
我是选了线长分组后，一个一个去选（不同长度的），出来的统计表，还是按长度由小到大排列，不是按选取的 ...

原程序里一定进行过排序的，把排序步骤去除应该就可以

13926580805

建议加个可选项：按选取顺序排列/默认排列（由小到大）

13926580805

牛人！谢谢！