Auto Zoom Extent all layouts

[lonelysn]

Zoom extends

;zOOM EXTENDS ALL LAYOUTS
(defun c:LZE (/ Ctab Layout)
 (princ "\nLayouts Zoom Extents")
 (setq Ctab (getvar "CTAB"))
 (foreach Layout (layoutlist)
   (command "LAYOUT" "S" Layout)
   (command "PSPACE")
   (command "ZOOM" "E")
 )
 (setvar "CTAB" Ctab)
 (princ)
)

 

 

Zoom window

(defun c:LZW (/ Ctab Layout P1 P2)
 (princ "\nLayouts Zoom Window")
 (if (/= (setq Ctab (getvar "CTAB")) "Model")
   (progn
     (command "PSPACE")

     (if (and
    (setq P1 (getpoint "\nSpecify first corner: "))
    (setq P2 (getcorner P1 "Specify opposite corner: "))
    )
       (foreach Layout (layoutlist)
         (command "LAYOUT" "S" Layout)
         (command "PSPACE")
         (command "ZOOM" "W" P1 P2)
       )
     )
   )
   (command "ZOOM" "W")
 )
 (setvar "CTAB" Ctab)
 (princ)
)

 

Both lisps NOT mine

 

 

 

 

THANK YOU BROTHER U HAVE SAVED OUR LOADS OF TIME :shock:

[asos2000]

THANK YOU BROTHER U HAVE SAVED OUR LOADS OF TIME :shock:

 

You are most welcome