LISP to Zoom Extents on Drawing Load – Paperspace Only

[nrz13]

Does anyone already have a LISP or know how to tell AutoCAD to zoom extents on the current layout if it is a Paperspace layout?  It only needs to be the current layout when opened, since that's the only one the bug affects, but we don't want model space zoomed to extents automatically.

Since it doesn't seem that Autodesk is going to fix the bug it introduced in 2015 with the statusbar loading over the layout, I guess it's time to add a fix to my custom.lsp file.

IF LAYOUT=PAPERSPACE, THEN:
(command "zoom" "extents")(princ))

[hmsilva]

You're welcome, nrz13!
Glad I could help

Henrique

[Lineabove]

The zoom to extents on opening looks good, but I am not sure after reading the post what lines I should add to my acaddoc.lsp file.

Please add a post with the actual lines.

[nrz13 · Accepted solution]

Lineabove:

Just add the following to your acaddoc.lsp file:

; Zoom Paperspace Layout to Extents on Drawing Load (workaround for AutoCAD 2015/2016 Bug)
(if (and (/= 1 (getvar "tilemode"))
         (= 1 (getvar "cvport"))
    )
  (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "_.zoom extents\r"))
)

[Lineabove]

Thank you.

[Anonymous]

here's one that I found some time ago that will zoom extents all layout tabs and zoom extents the model space...hope it works for you too:)

(defun C:ZA ()
  (foreach lay (layoutlist)
    (setvar 'ctab lay)
    (command "_.pspace" "_.zoom" (getvar 'limmin) (getvar 'limmax))
  ); end foreach
  (setvar 'ctab "Model")
  (command "_.mspace" "_.zoom" "extents" (getvar 'limmin) (getvar 'limmax))
); end defun

[pbejse]

---

[Anonymous]

🤣🤣 sorry...just came across this post thought i'd contribute for the next poor sap that comes along!!🤣