过滤掉非等比例块，保留等比例块的选择集函数

lucas3

2. ;;选择等比例块函数，过滤掉非等比例块
   
3. (defun ESBsel (/ ss i ename )
   
4.   (while
   
5.     (if (null(setq ss (ssget (list '(0 . "INSERT")))))
   
6.       (progn
   
7.         (alert "\n未选择到任何对象.请重试!")
   
8.         t
   
9.       )
   
10.       (progn
    
11.         (repeat (setq i (sslength ss))
    
12.           (setq ename (ssname ss (setq i (1- i))))
    
13.           (if
    
14.             (not
    
15.               (= (cdr(assoc 41 (entget ename)))(cdr(assoc 42 (entget ename)))(cdr(assoc 43 (entget ename))))
    
16.             )
    
17.             (ssdel ename ss)
    
18.           )
    
19.         )
    
20.         (if (= (sslength ss) 0)
    
21.           (progn
    
22.             (alert "\n仅支持等比例块.请重试!")
    
23.             t
    
24.           )
    
25.           nil
    
26.         )
    
27.       )
    
28.     )
    
29.    
    
30.   )
    
31.   ss
    
32. )
    

;;选择等比例块函数，过滤掉非等比例块<br /> (defun ESBsel (/ ss i ename )<br />   (while <br />     (if (null(setq ss (ssget (list '(0 . "INSERT")))))<br />       (progn<br />         (alert "\n未选择到任何对象.请重试!")<br />         t<br />       )<br />       (progn<br />         (repeat (setq i (sslength ss))<br />           (setq ename (ssname ss (setq i (1- i))))<br />           (if<br />             (not<br />               (= (cdr(assoc 41 (entget ename)))(cdr(assoc 42 (entget ename)))(cdr(assoc 43 (entget ename))))<br />             )<br />             (ssdel ename ss)<br />           )<br />         )<br />         (if (= (sslength ss) 0)<br />           (progn<br />             (alert "\n仅支持等比例块.请重试!")<br />             t<br />           )<br />           nil<br />         )<br />       )<br />     )<br />     <br />   )<br />   ss<br /> )<br />