topic Re: zoom extents in one cmd. in Visual LISP, AutoLISP and General Customization Forum

zoom extents in one cmd.

smallƑish — Sat, 12 Mar 2022 09:51:30 GMT

Is that possible to make a shortcut?

A shortcut cmd "zz" that could do zoom extends as below;

Command: Z
ZOOM
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window/Object] <real time>: e

Re: zoom extents in one cmd.

ВeekeeCZ — Sat, 12 Mar 2022 10:01:07 GMT

That is what the mouse wheel double click does.

Re: zoom extents in one cmd.

smallƑish — Sat, 12 Mar 2022 10:04:46 GMT

omg !! lol

Re: zoom extents in one cmd.

ВeekeeCZ — Sat, 12 Mar 2022 11:07:35 GMT

BTW it's fairly easy to write such a shortcut routine. Just follow the command line.

(defun c:zz () (command "zoom" "e") (princ))

Re: zoom extents in one cmd.

bigcarl5000kg — Sat, 12 Mar 2022 14:05:39 GMT

Hi @smallƑish ,

here an LISP from @Kent1Cooper :

;; ZoomAllLayouts.lsp ;; Command names: ;; ZLAL = Zoom Limits All Layouts ;; ZEAL = Zoom Extents All Layouts ;; ZAAL = Zoom All All Layouts ;; Gets into all Layouts, goes to Paper Space and Zooms to the [Limits or ;; Extents or All] in each; ends in Model Space and likewise Zooms there. ;; Kent Cooper, last edited 2 April 2013 (defun ZAL (zopt / zd cmde exp) (defun zd (); = Zoom Determination (cond ((= zopt "L") (command (getvar 'limmin) (getvar 'limmax))); use Limits ((= zopt "E") (command "_extents")) ; Uses Extents option, not EXTMIN/EXTMAX System Variables, ; because those do not shrink on reduction of the actual extents ; until the next drawing regeneration or Zoom All-or-Extents, so ; using them could Zoom to a larger area than the current Extents. ((= zopt "A") (command "_all")) ); cond ); defun (setq cmde (getvar 'cmdecho) exp (= (getvar 'expert) 0) ); setq (if exp (setvar 'expert 1)); suppresses "About to regen -- proceed?" (setvar 'cmdecho 0) (foreach lay (layoutlist) (setvar 'ctab lay) (command "_.pspace" "_.zoom") (zd) ); foreach (setvar 'ctab "Model") (command "_.zoom") (zd) (if exp (setvar 'expert 0)); reset if changed (setvar 'cmdecho cmde) (princ) ); defun (defun C:ZLAL (); = Zoom Limits All Layouts (ZAL "L") ); defun (defun C:ZEAL (); = Zoom Extents All Layouts (ZAL "E") ); defun (defun C:ZAAL (); = Zoom All All Layouts (ZAL "A") ); defun

Re: zoom extents in one cmd.

fkellogg — Tue, 22 Sep 2026 14:44:54 GMT

I found the ZEAL command a while back, and love it.
The only thing I don't like is when there are elements outside the title block area, and it truly zooms to extents.
I wish there were a version that would zoom to the sheet area only.

Re: zoom extents in one cmd.

Kent1Cooper — Tue, 22 Sep 2026 14:56:59 GMT

@fkellogg wrote:

.... I wish there were a version that would zoom to the sheet area only.

Set your Limits to the sheet areas, and use the ZLAL command, which is for exactly that.

Re: zoom extents in one cmd.

fkellogg — Tue, 22 Sep 2026 15:00:49 GMT

I will have to look to see if I have the ZLAL version of that.

Re: zoom extents in one cmd.

Kent1Cooper — Tue, 22 Sep 2026 16:00:31 GMT

See lines 3 and 41-43 of the code at Message 5.

Re: zoom extents in one cmd.

fkellogg — Tue, 22 Sep 2026 16:03:09 GMT

I already had ZLAL in a separate file, just forgot it was there, in all my excitement of finding ZEAL.

Re: zoom extents in one cmd.

Sea-Haven — Wed, 23 Sep 2026 04:38:42 GMT

Two parts to the zoom to title block in layouts, I would find the title block in the layout and force a move of all objects so title block is at 0,0 for other programs like our "Autoplot". So using same code can use Zoom "W" window by getting the "Bounding Box' of the title block.

This is the move part have a go at adding the zoom window. In our case the title block is known and at 1:1 true size so can do a zoom window -20,-20 then 821,574

; moves all objects in pspace to 0,0 alignment based on selected title block. ; By AlanH updated Oct 2025 (defun movelayouts ( / oldsnap plottablist xy) (setq oldsnap (getvar "osmode")) (setvar "osmode" 0) (setq plottablist (layoutlist)) (setvar 'ctab (nth 0 plottablist )) (setq ent (entget (car (entsel "Pick Title Block:")))) (setq bname (cdr (assoc 2 ent))) (foreach tname plottablist (setvar "ctab" tname) (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 bname)(cons 410 tname)))) (setq xy (cdr (assoc 10 (entget (ssname ss 0))))) (command "move" "w" (getvar "extmax") (getvar "extmin") "" xy "0,0") (command "zoom" "E") ; replace here zoom window ) (setvar "osmode" oldsnap) (princ) ) (movelayouts)

Re: zoom extents in one cmd.

Kent1Cooper — Wed, 23 Sep 2026 13:01:32 GMT

@Sea-Haven wrote:

... use Zoom "W" window by getting the "Bounding Box' of the title block. ....

You could do it by just using the ZOOM command's Object option with the title block, without the need to get its bounding box, nor to Move anything, nor to involve Osnap settings.

Re: zoom extents in one cmd.

Kent1Cooper — Wed, 23 Sep 2026 13:28:19 GMT

.... (command "move" "w" (getvar "extmax") (getvar "extmin") "" xy "0,0") ....

But if you do want to Move things:

(command "_.move" "_all" "" xy "0,0")

Re: zoom extents in one cmd.

Sea-Haven — Thu, 24 Sep 2026 23:55:43 GMT

@Kent1Cooper The reason I look for the title block in the move is that sometimes people leave junk in a layout for some reason so doing a move "All" would not locate the title block at a 0,0 point. This was done to match our company standard of title block has insert at 0,0. We had other programs like plot lisp's and they adhered to title block location. As well as I checked final plans and junk would be removed. Yes Zoom object is a good idea.