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

13926580805 · 发表于 2020-3-2 21:07:35

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

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

×

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

王鹏_pBZlo · 发表于 2020-6-3 21:31:45

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

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

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

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

王鹏_pBZlo · 发表于 2020-3-6 22:44:37

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

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

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

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

Lisphk · 发表于 2020-5-18 00:02:01

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

bszzl167 · 发表于 2020-5-18 09:06:11

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

窗选不能确定顺序？？

newer · 发表于 2020-5-18 09:24:40

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

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

bszzl167 · 发表于 2020-5-18 09:49:33

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

受教了，谢谢版主！

bszzl167 · 发表于 2020-5-18 10:20:42

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

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

13926580805 · 发表于 2020-5-30 09:44:03

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

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

王鹏_pBZlo · 发表于 2020-5-30 10:22:43

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

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

13926580805 · 发表于 2020-5-30 21:23:04

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

13926580805 · 发表于 2020-6-4 14:26:44

牛人！谢谢！

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

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

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

评分

点评

点评

点评