AddPViewport method example

 

Sub AddPViewport_Example()
' This example creates a new paper space viewport
    Dim myPViewport As AcadPViewport
    Dim cenPt(0 To 2) As Double

    cenPt(0) = 20: cenPt(1) = 20: cenPt(2) = 0

    ThisDrawing.ActiveSpace = acPaperSpace
    Set myPViewport = ThisDrawing.PaperSpace.AddPViewport(cenPt, 30, 40)
    ThisDrawing.Regen acAllViewports
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.