选择集最大外框

Lisphk

1. (defun ssboundingbox        (ss / a b i m n o)
   
2.   (repeat (setq i (sslength ss))
   
3.     (if
   
4.       (and
   
5.         (setq o (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
   
6.         (vlax-method-applicable-p o 'getboundingbox)
   
7.         (not
   
8.           (vl-catch-all-error-p
   
9.             (vl-catch-all-apply 'vla-getboundingbox (list o 'a 'b))
   
10.           )
    
11.         )
    
12.       )
    
13.        (setq m (cons (vlax-safearray->list a) m)
    
14.              n (cons (vlax-safearray->list b) n)
    
15.        )
    
16.     )
    
17.   )
    
18.   (if (and m n)
    
19.     (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
    
20.             '(min max)
    
21.             (list m n)
    
22.     )
    
23.   )
    
24. )
    

(defun ssboundingbox        (ss / a b i m n o)<br />   (repeat (setq i (sslength ss))<br />     (if<br />       (and<br />         (setq o (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />         (vlax-method-applicable-p o 'getboundingbox)<br />         (not<br />           (vl-catch-all-error-p<br />             (vl-catch-all-apply 'vla-getboundingbox (list o 'a 'b))<br />           )<br />         )<br />       )<br />        (setq m (cons (vlax-safearray->list a) m)<br />              n (cons (vlax-safearray->list b) n)<br />        )<br />     )<br />   )<br />   (if (and m n)<br />     (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))<br />             '(min max)<br />             (list m n)<br />     )<br />   )<br /> )<br />

统一网名

多谢，解决了困绕我多天的问题，随然不完全理解，但是确实解决了我的问题。