Here is an example, you may want to look at this as well its a GOTO for jumping to a specific layout. http://www.cadtutor.net/forum/showth...ts-Goto-layout
Code:
;; Zoom extents in All Layouts (excluding Model)
;; Alan J. Thompson
(or *Acad* (setq *Acad* (vlax-get-acad-object)))
(or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument *Acad*)))
((lambda (ctab)
(foreach layout (layoutlist)
(setvar 'ctab layout)
(vla-put-mspace *AcadDoc* :vlax-false)
(vla-zoomextents *Acad*)
)
(setvar 'ctab ctab)
)
(getvar 'ctab)
)
(princ)