Set View To All Layouts

[wispoxy]

I need a lisp to put into my Startup Suite that will set views to all (paperspace) layouts, see image. Thanks.

AutoCAD 2017

[Ranjit_Singh2 · Accepted solution]

The height and width of your view will depend on several factors and would not be exactly 3'-3" and 6'-1". For instance, where is you property window located, what size it is, how big is the prompt line etc. You can however set the center and the zoom extents.

(defun c:somefunc ( / )
(command "._zoom" '(-16.5 32.5 0.0) '(56.5 -6.5 0.0)))

EDITED: For all layouts

(defun c:somefunc ( / curtab)
(setq curtab (getvar 'ctab))
(foreach i (layoutlist)
(setvar 'ctab i)
(command "._zoom" '(-16.5 32.5 0.0) '(56.5 -6.5 0.0)))
(setvar 'ctab curtab))

[wispoxy]

I'll test it out and share results.

[rkmcswain]

This should get you started.

(vl-cmdf "._Zoom" "_C" "20,13" "39")

[wispoxy]

Exactly what I needed. Thank you so much.  🙂

[Ranjit_Singh2]

You are welcome