选择集的包围盒

Lisphk

返回选择集包围盒的左下点和右上点

[Actionscript3] 纯文本查看 复制代码

(defun ss::boundingbox (sel / idx llp ls1 ls2 obj urp) ; Lee mac 
    (repeat (setq idx (sslength sel))
      (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
      (if
	(and
	  (vlax-method-applicable-p obj 'getboundingbox)
	  (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp))))
	)
	 (setq ls1 (cons (vlax-safearray->list llp) ls1)
	       ls2 (cons (vlax-safearray->list urp) ls2)
	 )
      )
    )
    (if	(and ls1 ls2)
      (mapcar '(lambda (a b) (apply 'mapcar (cons a b))) '(min max) (list ls1 ls2))
    )
)

hch8682005

学习学习！！！

xudi1234

怎么个用法？

网事如尘

学习了，感谢分享

lee3737

用法:

2. 
   
3. (defun c:test ()
   
4.          (setq ss (ssget))                         ;選擇一個或多個物件
   
5.          (setq obj (ss::boundingbox ss))
   
6.          (setq p1 (car obj))                      ;取左下點        
   
7.          (setq p2 (cadr obj))                    ;取右上點
   
8.          (command "_rectang" p1 p2)       ;畫出包圍框
   
9.   )
   

<br /> (defun c:test ()<br />          (setq ss (ssget))                         ;選擇一個或多個物件<br />          (setq obj (ss::boundingbox ss))<br />          (setq p1 (car obj))                      ;取左下點        <br />          (setq p2 (cadr obj))                    ;取右上點<br />          (command "_rectang" p1 p2)       ;畫出包圍框<br />   )<br />