DisplayPlotPreview Example

Using Programming Languages other than VBA

Sub Example_DisplayPlotPreview()
	' This example creates a circle and then performs
	' a plot preview.

	' Create the circle
	Dim circleObj As AcadCircle
	Dim center(0 To 2) As Double
	Dim radius As Double
	center(0) = 2: center(1) = 2: center(2) = 0
	radius = 1
	Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
	ZoomAll

	' Preview the plot of the circle
	ThisDrawing.Plot.DisplayPlotPreview acFullPreview
	
End Sub

 

   Comments?