[编程申请]：如何通过选单线段而选中同长度线段

wanto

各位在虾帮忙，（2D图中）编辑选择线段时，如何只单选一线段而程式能自动选中全图中全部同长度的线段？请提供LISP程式，非常感谢！

LUCAS

;;SS_LINE同长度选集

2. 
   
3. (defun C:COUNT_LINE (/ SS_LINE A LENGTH_LINE SS)
   
4.   (vl-load-com)
   
5.   (setq SS_LINE (ssadd))
   
6.   (setq A (entsel))
   
7.   (setq        LENGTH_LINE
   
8.          (vla-get-length (vlax-ename->vla-object (car A)))
   
9.   )
   
10.   (ssadd (car A) SS_LINE)
    
11.   (setq SS (ssget "X" '((0 . "LINE"))))
    
12.   (setq N 0)
    
13.   (repeat (sslength SS)
    
14.     (if        (= (vla-get-length (vlax-ename->vla-object (ssname SS N)))
    
15.            LENGTH_LINE
    
16.         )
    
17.       (ssadd (ssname SS N) SS_LINE)
    
18.     )
    
19.     (setq N (1+ N))
    
20.   )
    
21. )
    

<br /> (defun C:COUNT_LINE (/ SS_LINE A LENGTH_LINE SS)<br />   (vl-load-com)<br />   (setq SS_LINE (ssadd))<br />   (setq A (entsel))<br />   (setq        LENGTH_LINE<br />          (vla-get-length (vlax-ename->vla-object (car A)))<br />   )<br />   (ssadd (car A) SS_LINE)<br />   (setq SS (ssget "X" '((0 . "LINE"))))<br />   (setq N 0)<br />   (repeat (sslength SS)<br />     (if        (= (vla-get-length (vlax-ename->vla-object (ssname SS N)))<br />            LENGTH_LINE<br />         )<br />       (ssadd (ssname SS N) SS_LINE)<br />     )<br />     (setq N (1+ N))<br />   )<br /> )<br />

wanto

谢谢LUCAS，正在试用。