VL-function for ZOOM extents

I need to know which function to use to do a zoom extents when I create a
VPORT in a LAYOUT
(I can't use (COMMAND "_ZOOM" ..)

Thanks

 

(vla-zoomextents (vlax-get-acad-object))

This changes the current viewport only

 

(vla-zoomextents (vla-get-application
(vla-get-activedocument
(vlax-get-acad-object))))

 

Just to expand a bit (run from a layout, obviously):

(defun C:Test (/ app doc vport)
(vl-load-com)
(setq app (vlax-Get-Acad-Object)
doc (vla-Get-ActiveDocument app))
(vla-ZoomAll app)
(setq vport (vla-AddPViewport
(vla-Get-PaperSpace doc)
(vlax-3D-Point (getvar "ViewCtr"))
10.0
7.5))
(vla-Display vport :vlax-True)
(vla-Put-MSPace doc :vlax-True)
(vla-ZoomExtents app)
(vla-Put-MSPace doc :vlax-False))

--
R. Robert Bell


"Jason Piercey" <nomail> wrote in message (vla-zoomextents (vlax-get-acad-object))

This changes the current viewport only

 

Thanks to all for the answear