Toggles the display control of the PViewport object on or off.
Supported platforms: Windows only
VBA:
object.Display Status
Type: PViewport
The object this method applies to.
Access: Input-only
Type: Boolean
No return value.
The display control must be on before the MSpace property can be used to activate the model space editing capabilities.
Use the ViewportOn property to determine if a paper space viewport display has already been turned on with this method.
VBA:
Sub Example_DisplayMethod()
' This example creates a paper space viewport and makes it active.
Dim newPViewport As AcadPViewport
Dim centerPoint(0 To 2) As Double
Dim height As Double
Dim width As Double
height = 30#
width = 40#
centerPoint(0) = 30#: centerPoint(1) = 30#: centerPoint(2) = 0#
' Create a paper space Viewport object
ThisDrawing.ActiveSpace = acPaperSpace
Set newPViewport = ThisDrawing.PaperSpace.AddPViewport(centerPoint, width, height)
ZoomAll
newPViewport.Display True
' Before making a pViewport active,
' the mspace property needs to be True
ThisDrawing.mspace = True
ThisDrawing.ActivePViewport = newPViewport
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_DisplayMethod()
;; This example creates a paper space viewport and makes it active.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq centerPoint (vlax-3d-point 30 30 0)
height 30
width 40)
;; Create a paper space Viewport object
(vla-put-ActiveSpace doc acPaperSpace)
(setq newPViewport (vla-AddPViewport (vla-get-PaperSpace doc) centerPoint width height))
(vla-ZoomAll acadObj)
(vla-Display newPViewport :vlax-true)
;; Before making a pViewport active,
;; the mspace property needs to be True
(vla-put-MSpace doc :vlax-true)
(vla-put-ActivePViewport doc newPViewport)
)