CADopia - AddPViewport method

Adds a Paperspace Viewport given the center, width and height.

Syntax

     objectVariable = object.AddPViewport([Center], [Width], [Height])

where:

     Center is a Point object specifying the coordinate location for viewport center;

     Width and Height are double-precision variables representing the dimensions of the viewport.

AddPViewport method example

Private Sub CommandButton10_Click()

     Dim myViewport As CADopia.PViewport

     Dim cenPt As CADopia.Point

     Set cenPt = Library.CreatePoint(4, 4, 0)

     ThisDocument.ActiveSpace = vicPaperSpace

     Set myViewport = ThisDocument.PaperSpace.AddPViewport(cenPt, 33, 44)

     ThisDocument.Regen vicAllViewports

End Sub