Display method example

Private Sub DisplayMethodExample()

     ' This example creates a paperspace viewport and makes it active.

     

     Dim newPViewport As IntelliCAD.PViewport

     Dim cenPt As Point

     

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

     ' Create a paperspace Viewport object

     ThisDocument.ActiveSpace = vicPaperSpace

     Set newPViewport = ThisDocument.PaperSpace.AddPViewport(cenPt, 50, 60)

     newPViewport.Display True

End Sub