Sub Example_Plot()
    ' Этот пример печатает текущий рисунок в файл.
    
    ' Определите графическую переменную
    Dim currentPlot As ACADPlot
    Set currentPlot = ThisDrawing.Plot
    
    ' Определите название выходного файла.
    ' Обратите внимание: если имя файла существует, будет сгенерирована ошибка.
    Dim plotFileName As String
    plotFileName = "MyPlot"
    
    currentPlot.PlotToFile (plotFileName)
    
End Sub