Sub Example_DisplayPlotPreview()
    ' Этот пример создает круг и затем исполняет графический
    ' предварительный просмотр.
    
    ' Создайте круг
    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
    
    ' Предварительно просмотрите печать круга
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview
        
End Sub