Zoom in on the active drawing to a specified center.
You can move a specific point in your drawing to the center of the graphics area. The ZoomCenter method is useful for resizing an object and bringing it to the center of the viewport. With ZoomCenter, you can specify a scale size by entering a magnification relative to the current view.
The following example shows the effects of using ZoomCenter to display a view at the same size and at twice the size:
(vl-load-com) (defun c:Ch3_ZoomCenter() (alert (strcat "Perform a ZoomCenter using:\n" "Center: 3, 3, 0\n" "Magnification: 10")) (setq Center (vlax-3d-point 3 3 0) magnification 10) (setq acadObj (vlax-get-acad-object)) (vla-ZoomCenter acadObj Center magnification) )
Sub Ch3_ZoomCenter() MsgBox "Perform a ZoomCenter using:" & vbCrLf & _ "Center: 3, 3, 0" & vbCrLf & _ "Magnification: 10", , "ZoomCenter" Dim Center(0 To 2) As Double Dim magnification As Double Center(0) = 3: Center(1) = 3: Center(2) = 0 magnification = 10 ThisDrawing.Application.ZoomCenter Center, magnification End Sub