二次过滤选择集练习

434939575

2. (defun c:tt ();二次过滤选择集
   
3.   (setq ss (ssget '((8 . "layer7") (0 . "LWPOLYLINE"))))
   
4.   (setq ii 0)
   
5.   (repeat (sslength ss)
   
6.     (setq ss0 (ssname ss ii)
   
7.     ii  (1+ ii)
   
8.     )
   
9.     (setq ptlist (Hx-pl-list ss0))
   
10.     (setq ss++ (ssget "cp" ptlist))
    
11.     (setq ss++ (ssdel ss0 ss++))   
    
12.     (setq i 0)
    
13. (repeat (sslength ss++)
    
14.       (setq ss0++ (ssname ss++ i)
    
15.       i    (1+ i)
    
16.       )
    
17.       (setq Obj (vlax-ename->vla-object ss0++))
    
18.       (vla-offset Obj -5)
    
19.     );repeat-第二个        
    
20.   );repeat-第一个        
    
21. )
    
22. (defun Hx-pl-list (SS0 / e elist ptlist) ;端点列表
    
23.   (setq elist (entget SS0))
    
24.   (foreach n elist
    
25.     (if  (= 10 (car n))
    
26.       (setq ptlist (cons (cdr n) ptlist))
    
27.     )
    
28.   )
    
29.   (reverse ptlist)
    
30. 
    
31. )

(defun c:tt ();二次过滤选择集<br />   (setq ss (ssget '((8 . "layer7") (0 . "LWPOLYLINE"))))<br />   (setq ii 0)<br />   (repeat (sslength ss)<br />     (setq ss0 (ssname ss ii)<br />     ii  (1+ ii)<br />     )<br />     (setq ptlist (Hx-pl-list ss0))<br />     (setq ss++ (ssget "cp" ptlist))<br />     (setq ss++ (ssdel ss0 ss++))    <br />     (setq i 0)<br /> (repeat (sslength ss++)<br />       (setq ss0++ (ssname ss++ i)<br />       i    (1+ i)<br />       )<br />       (setq Obj (vlax-ename->vla-object ss0++))<br />       (vla-offset Obj -5)<br />     );repeat-第二个        <br />   );repeat-第一个        <br /> )<br /> (defun Hx-pl-list (SS0 / e elist ptlist) ;端点列表<br />   (setq elist (entget SS0))<br />   (foreach n elist<br />     (if  (= 10 (car n))<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br /> <br /> )

风树

好资料……支持下…

434939575

过奖了！

风树

434939575 发表于 2014-7-6 22:00
过奖了！

顶顶更健康

cnsply

加油啊！！！！顶哦!!!!!