AddPViewport method example

Private Sub CommandButton10_Click()

     Dim myViewport As IntelliCAD.PViewport

     Dim cenPt As IntelliCAD.Point

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

     ThisDocument.ActiveSpace = vicPaperSpace

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

     ThisDocument.Regen vicAllViewports

End Sub