怎样获得选择集的坐标范围

54256

我的程序中对于在屏幕外的选择集，操作错误

能不能在做完选择集的时候，返回整个选择集的坐标范围，我通过zoom把整个选择集都显示在屏幕上

不知道我说清楚了没有，谢谢

wowan1314

2. ;选择集包围盒2
   
3. (defun t11 (ss / a en enma enmi ll ur)
   
4.     (setq a -1)
   
5.     (while
   
6.         (setq en (ssname ss (setq a (1+ a))
   
7.             )
   
8.         )
   
9.         (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)
   
10.         (setq enma (cons (vlax-safearray->list ll) enma)
    
11.             enmi (cons (vlax-safearray->list ur) enmi)
    
12.         )
    
13.     )
    
14.     (mapcar '(lambda(a b)(apply 'mapcar (cons a b))) '(max min) (list enma enmi))
    
15. )

;选择集包围盒2 <br /> (defun t11 (ss / a en enma enmi ll ur) <br />     (setq a -1)<br />     (while<br />         (setq en (ssname ss (setq a (1+ a))<br />             )<br />         )<br />         (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)<br />         (setq enma (cons (vlax-safearray->list ll) enma)<br />             enmi (cons (vlax-safearray->list ur) enmi)<br />         )<br />     )<br />     (mapcar '(lambda(a b)(apply 'mapcar (cons a b))) '(max min) (list enma enmi))<br /> )

Andyhon

倘使已有 ET 支持,还可这样

(acet-geom-ss-extents ss T)

669423907

(defun c:q1()
(setq ss (ssget))
(command "zoom" "o" ss "")
(princ))

669423907

wowan1314 发表于 2013-8-2 16:43

wowan1314大师，提示参数太少