怎样才能最大化显示选择的物体

Hart

如何在透视图中最大化显示选择的物体(不是最大化显示所有物体),各位大侠有没有送于这方面的资料或方法.

用ZOOM中的E只能最大化显示全部,并且关闭显示没有冻结的,也会显示出其范围.

如何计算出所选择物体的显示范围,我在网上搜索不到相关资料.

Ea

不知道从哪个版本开始有了 o 选项

命令输入 zoom（或 'zoom，用于透明使用）

在透视图中，ZOOM 将显示 3DZOOM 提示。

注意 在使用 VPOINT 或 DVIEW 命令时，或正在使用另一个 ZOOM、PAN 或 VIEW 命令时，不能透明使用 ZOOM 命令。

指定窗口角点，输入比例因子 (nX 或 nXP)，或

[全部(A)/中心(C)/动态(D)/范围(E)/上一个(P)/比例 (S)/窗口(W)/对象(O)] <实时>:

对象

缩放以便尽可能大地显示一个或多个选定的对象并使其位于绘图区域的中心。 可以在启动 ZOOM 命令前后选择对象。

Hart

我用2004的没有这个O的选项

highflybir

加载如下程序: 输入zs即可：
如果涉及到ucs坐标下的,请参考：
http://www.xdcad.net/forum/showthread.php?s=fc92ec40772f20c92bf79f34fd1ba1ea&threadid=612977

3. ;;;************************************
4. ;;;获得选择物体的最大外框--------------
5. (defun boundingbox (ss / i ent obj pta ptb dwcorn upcorn ptlist x y)
6.   (setq i 0 dwcorn nil upcorn nil)
7.   (repeat (sslength ss)
8.     (setq ent (ssname ss i))
9.     (setq obj (vlax-ename->vla-object ent))
10.     (vla-GetBoundingBox obj 'pta 'ptb)
11.     (setq dwcorn (cons (vlax-safearray->list pta) dwcorn))
12.     (setq upcorn (cons (vlax-safearray->list ptb) upcorn))
13.     (setq i (1+ i))
14.   )
15.   (setq ptlist (append dwcorn upcorn))
16.   (setq x (mapcar 'car  ptlist))
17.   (setq y (mapcar 'cadr ptlist))
18.   (list (list (apply 'min x)  (apply 'min y))
19.         (list (apply 'max x)  (apply 'max y))
20.   )
21. )
22. (defun C:zs (/ ss pp)
23.   (if (setq ss (ssget))
24.     (progn
25.       (command ".ucs" "w")
26.       (setq pp (boundingbox ss))
27.       (command ".zoom" (car pp) (cadr pp))
28.       (command ".ucs" "p")
29.       (princ)
30.     )
31.   )
32. )   

;;;************************************ ;;;获得选择物体的最大外框-------------- (defun boundingbox (ss / i ent obj pta ptb dwcorn upcorn ptlist x y)   (setq i 0 dwcorn nil upcorn nil)   (repeat (sslength ss)     (setq ent (ssname ss i))     (setq obj (vlax-ename->vla-object ent))     (vla-GetBoundingBox obj 'pta 'ptb)     (setq dwcorn (cons (vlax-safearray->list pta) dwcorn))     (setq upcorn (cons (vlax-safearray->list ptb) upcorn))     (setq i (1+ i))   )   (setq ptlist (append dwcorn upcorn))   (setq x (mapcar 'car  ptlist))   (setq y (mapcar 'cadr ptlist))   (list (list (apply 'min x)  (apply 'min y))         (list (apply 'max x)  (apply 'max y))   ) ) (defun C:zs (/ ss pp)   (if (setq ss (ssget))     (progn       (command ".ucs" "w")       (setq pp (boundingbox ss))       (command ".zoom" (car pp) (cadr pp))       (command ".ucs" "p")       (princ)     )   ) )   

Hart

谢谢楼上的,偶要了解的就是涉及UCS的实体包围盒,这样在透视图中才能最大化显示物体.

如何计算当前UCS下的实体包围盒(最大化显示选择的物体),这是很多人都会碰到的问题,别让这个题沉下去啊.