关于ZOOM Extents的几种方法

newer

1. (defun c:LZE (/ Ctab Layout)
   
2.   (princ "\nLayouts Zoom Extents")
   
3.   (setq Ctab (getvar "CTAB"))
   
4.   (foreach Layout (layoutlist)
   
5.     (command "LAYOUT" "S" Layout)
   
6.     (command "PSPACE")
   
7.     (command "ZOOM" "E")
   
8.   )
   
9.   (setvar "CTAB" Ctab)
   
10.   (princ)
    
11. )
    
12. 
    
13. ;Zoom window all layouts
    
14. (defun c:LZW (/ Ctab Layout P1 P2)
    
15.   (princ "\nLayouts Zoom Window")
    
16.   (if (/= (setq Ctab (getvar "CTAB"))
    
17.           "Model"
    
18.       )
    
19.     (progn
    
20.       (command "PSPACE")
    
21.       (if (setq P1 (getpoint "\nSpecify first corner: "))
    
22.         (setq P2 (getcorner P1 "Specify opposite corner: "))
    
23.       )
    
24.       (if (and
    
25.             P1
    
26.             P2
    
27.           )
    
28.         (foreach Layout (layoutlist)
    
29.           (command "LAYOUT" "S" Layout)
    
30.           (command "PSPACE")
    
31.           (command "ZOOM" "W" P1 P2)
    
32.         )
    
33.       )
    
34.     )
    
35.     (command "ZOOM" "W")
    
36.   )
    
37.   (setvar "CTAB" Ctab)
    
38.   (princ)
    
39. )
    

(defun c:LZE (/ Ctab Layout)<br />   (princ "\nLayouts Zoom Extents")<br />   (setq Ctab (getvar "CTAB"))<br />   (foreach Layout (layoutlist)<br />     (command "LAYOUT" "S" Layout)<br />     (command "PSPACE")<br />     (command "ZOOM" "E")<br />   )<br />   (setvar "CTAB" Ctab)<br />   (princ)<br /> )<br /> <br /> ;Zoom window all layouts <br /> (defun c:LZW (/ Ctab Layout P1 P2)<br />   (princ "\nLayouts Zoom Window")<br />   (if (/= (setq Ctab (getvar "CTAB"))<br />           "Model"<br />       )<br />     (progn<br />       (command "PSPACE")<br />       (if (setq P1 (getpoint "\nSpecify first corner: "))<br />         (setq P2 (getcorner P1 "Specify opposite corner: "))<br />       )<br />       (if (and<br />             P1<br />             P2<br />           )<br />         (foreach Layout (layoutlist)<br />           (command "LAYOUT" "S" Layout)<br />           (command "PSPACE")<br />           (command "ZOOM" "W" P1 P2)<br />         )<br />       )<br />     )<br />     (command "ZOOM" "W")<br />   )<br />   (setvar "CTAB" Ctab)<br />   (princ)<br /> )<br />

[it618postdisplay>0]

1. ;; Zoom Extents all Layouts  -  Lee Mac
   
2. 
   
3. (defun c:zea (/ app ctb doc)
   
4.   (setq app (vlax-get-acad-object)
   
5.         doc (vla-get-activedocument app)
   
6.         ctb (getvar 'ctab)
   
7.   )
   
8.   (foreach tab (layoutlist)
   
9.     (setvar 'ctab tab)
   
10.     (vla-put-mspace doc :vlax-false)
    
11.     (vla-zoomextents app)
    
12.   )
    
13.   (setvar 'ctab ctb)
    
14.   (princ)
    
15. )
    
16. 
    
17. (vl-load-com) (princ)
    

;; Zoom Extents all Layouts  -  Lee Mac<br /> <br /> (defun c:zea (/ app ctb doc)<br />   (setq app (vlax-get-acad-object)<br />         doc (vla-get-activedocument app)<br />         ctb (getvar 'ctab)<br />   )<br />   (foreach tab (layoutlist)<br />     (setvar 'ctab tab)<br />     (vla-put-mspace doc :vlax-false)<br />     (vla-zoomextents app)<br />   )<br />   (setvar 'ctab ctb)<br />   (princ)<br /> )<br /> <br /> (vl-load-com) (princ)<br />

[/it618postdisplay]

1. ; Zoom All - In all layouts with one command
   
2. (defun c:ZoomLayouts (/ ctab)
   
3.   (setq ctab (getvar "ctab"))
   
4.   (foreach tab (cons "Model" (layoutlist))
   
5.     (setvar 'CTAB tab)
   
6.     (command "zoom" "e" "limits" "off")
   
7.   )
   
8.   (setvar "ctab" ctab)
   
9.   (princ)
   
10. )
    

; Zoom All - In all layouts with one command<br /> (defun c:ZoomLayouts (/ ctab)<br />   (setq ctab (getvar "ctab"))<br />   (foreach tab (cons "Model" (layoutlist))<br />     (setvar 'CTAB tab)<br />     (command "zoom" "e" "limits" "off")<br />   )<br />   (setvar "ctab" ctab)<br />   (princ)<br /> )<br />

lucas3

N版早啊!

yoyoho

感谢 N 版 分享程序!!!!!

HLCAD

感谢尊敬的版主，这段时间，学到东西的同时，我的积分也提高了不少

q3_2006

这样的总结帖子越多越好....谢谢整理..

xvjiex

感谢分享关于ZOOM Extents的几种方法