获得选择集的boudingbox

Lisphk

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

(defun ss-boundingbox ( s / a b i m n o )<br />     (repeat (setq i (sslength s))<br />         (if<br />             (and<br />                 (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))<br />                 (vlax-method-applicable-p o 'getboundingbox)<br />                 (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list o 'a 'b))))<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))) '(min max) (list m n))<br />     )<br /> )<br />

sicky111

boudingbox是什么？

pengfei2010

楼主这么写，里面判断条件那么多，效率会很慢吧

konglong604

谢谢楼主的分享，先收藏备用

HLCAD

这个比较经典了，谢谢楼主

yoyoho

谢谢! Lisphk 分享学习!!!!!!