ZoomCenter method example

Sub ZoomCenter_Example()

    Dim insPt(0 To 2) As Double

    insPt(0) = 0: insPt(1) = 9: insPt(2) = 0

    ThisDrawing.Application.ZoomCenter insPt, 20

End Sub

 


Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved.