根据线宽 统计直线长度

zzmm

   在图纸中绘制多条不同线宽的直线   例如  0.1的线3根   0.2的线4根   0.3的线2根   一次框选所有的直线去统计 0.1的线总长为   0.2的线总长为  0.3的线总长为  ？   我这能统计所有线的一个总长  还能统计多粗的线有多少根  就是不能结合起来   请各位版主指点指点   

1. (and (setq p1 (getpoint "\n插入点: "))
   
2.            (princ "\n选择对象...")
   
3.            (setq s1 (ssget '((0 . "line"))))
   
4.            )
   
5.     (progn
   
6.       (command "_.undo" "group")
   
7.       (setq lst1 '() n   0)
   
8.       (setq i 0)
   
9.       (setq linesum 0)
   
10.       (while (< i (sslength s1))
    
11.         (setq l2 (ssname s1 i))
    
12.         (setq p1 (cdr (assoc 10 (entget l2))))
    
13.         (setq p2 (cdr (assoc 11 (entget l2))))
    
14.         (setq l4 (distance p1 p2))
    
15.         (setq linesum (+ linesum l4))
    
16.         (setq bna (cdr (assoc 370 (entget l2))))
    
17.         (if (= i 0)                                
    
18.           (setq lst (list (list 1 1 bna)))         
    
19.           (progn                                       
    
20.       (setq key 0 j 1)                          
    
21.     (while (<= j (length lst))
    
22.       (if (= (caddr (assoc j lst))  bna)
    
23.   (setq key j)
    
24.       )
    
25.     (setq j (+ j 1))
    
26.   )
    
27. 
    
28.   (if (/= key 0)                                    
    
29.     (progn                                          
    
30.       (setq pcs (+ (cadr (assoc key lst)) 1))        
    
31.       (setq lst_f (assoc key lst))                  
    
32.       (setq newlist (list key pcs bna))               
    
33.       (setq lst (subst newlist lst_f lst))         
    
34.     )
    
35.     (progn                                          
    
36.       (setq index (+ (length lst) 1))               
    
37.       (setq lst (cons (list index 1 bna) lst))      
    
38. 
    
39.     )
    
40.   )
    
41.       )
    
42.     )
    
43.    
    
44.     (setq i (+ i 1))                                       
    
45.   )  

(and (setq p1 (getpoint "\n插入点: "))<br />            (princ "\n选择对象...")<br />            (setq s1 (ssget '((0 . "line"))))<br />            )<br />     (progn<br />       (command "_.undo" "group")<br />       (setq lst1 '() n   0)<br />       (setq i 0)<br />       (setq linesum 0)<br />       (while (< i (sslength s1))<br />         (setq l2 (ssname s1 i))<br />         (setq p1 (cdr (assoc 10 (entget l2))))<br />         (setq p2 (cdr (assoc 11 (entget l2))))<br />         (setq l4 (distance p1 p2))<br />         (setq linesum (+ linesum l4))<br />         (setq bna (cdr (assoc 370 (entget l2))))<br />         (if (= i 0)                                <br />           (setq lst (list (list 1 1 bna)))          <br />           (progn                                       <br />       (setq key 0 j 1)                          <br />     (while (<= j (length lst))<br />       (if (= (caddr (assoc j lst))  bna) <br />   (setq key j)<br />       )<br />     (setq j (+ j 1))<br />   )<br /> <br />   (if (/= key 0)                                     <br />     (progn                                          <br />       (setq pcs (+ (cadr (assoc key lst)) 1))        <br />       (setq lst_f (assoc key lst))                   <br />       (setq newlist (list key pcs bna))               <br />       (setq lst (subst newlist lst_f lst))         <br />     )<br />     (progn                                          <br />       (setq index (+ (length lst) 1))               <br />       (setq lst (cons (list index 1 bna) lst))      <br /> <br />     )<br />   )<br />       )<br />     )<br />     <br />     (setq i (+ i 1))                                       <br />   )  

自贡黄明儒

1. (defun c:w1 (/ E N OBJ SS WIDTH WIDTHLIST)
   
2.   ;; 指定线宽长度
   
3.   (defun getMyss (ss0 WIDTH / E LENT N OBJ SSCIR)
   
4.     (command "_.select" ss0 "")
   
5.     (setq ssCIR (ssget "_p" (list (CONS 370 WIDTH))))
   
6.     (setq LENT 0)
   
7.     (IF ssCIR
   
8.       (REpeat (setq n (sslength ssCIR))
   
9. (setq e (ssname ssCIR (setq n (1- n))))
   
10. (setq obj (vlax-ename->vla-object e))
    
11. (SETQ LENT (+ (VLAX-GET obj 'length) LENT))
    
12.       )
    
13.     )
    
14.     (princ "\n")
    
15.     (princ WIDTH)
    
16.     (princ ":")
    
17.     (princ LENT)
    
18.   )
    
19.   (setq ss (ssget (list (cons 0 "ARC,*LINE,CIRCLE"))))
    
20.   (repeat (setq n (sslength ss))
    
21.     (setq e (ssname ss (setq n (1- n))))
    
22.     (setq obj (vlax-ename->vla-object e))
    
23.     (SETQ WIDTH (VLAX-GET obj 'lineweight))
    
24.     (if (member WIDTH WIDTHlist)
    
25.       nil
    
26.       (progn (setq WIDTHlist (cons WIDTH WIDTHlist))
    
27.       (getMyss ss WIDTH)
    
28.       )
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )

(defun c:w1 (/ E N OBJ SS WIDTH WIDTHLIST)<br />   ;; 指定线宽长度<br />   (defun getMyss (ss0 WIDTH / E LENT N OBJ SSCIR)<br />     (command "_.select" ss0 "")<br />     (setq ssCIR (ssget "_p" (list (CONS 370 WIDTH))))<br />     (setq LENT 0)<br />     (IF ssCIR<br />       (REpeat (setq n (sslength ssCIR))<br /> (setq e (ssname ssCIR (setq n (1- n))))<br /> (setq obj (vlax-ename->vla-object e))<br /> (SETQ LENT (+ (VLAX-GET obj 'length) LENT))<br />       )<br />     )<br />     (princ "\n")<br />     (princ WIDTH)<br />     (princ ":")<br />     (princ LENT)<br />   )<br />   (setq ss (ssget (list (cons 0 "ARC,*LINE,CIRCLE"))))<br />   (repeat (setq n (sslength ss))<br />     (setq e (ssname ss (setq n (1- n))))<br />     (setq obj (vlax-ename->vla-object e))<br />     (SETQ WIDTH (VLAX-GET obj 'lineweight))<br />     (if (member WIDTH WIDTHlist)<br />       nil<br />       (progn (setq WIDTHlist (cons WIDTH WIDTHlist))<br />       (getMyss ss WIDTH)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

hehaidizhi

不错的功能，坐等高手

dongya1235

为什么不直接用过滤选择，再统计总长哪？好像这个适用性更广些，比如小于0.2宽的总长，按颜色统计的总长等

zzmm

如果我先给定它一个list的总表 应该怎么去体现 例如 ((3 2 35  200) (2 3 15 180) (1 1 200 70))   第一个 1 2 3的排序   第二个  直线的个数   第三个  线宽   地四个 同样宽度线的一个总长度

TPG辉

学习中，

bai2000

龙山居士

可以按颜色统计单根线的长度，数量吗？