Sub Example_ModelType()
    'Этот пример создает объект конфигурации печати и затем находит ModelType для объекта.
    
    Dim PlotConfigObj As AcadPlotConfiguration

    'Создает Объект
    Set PlotConfigObj = ThisDrawing.PlotConfigurations.Add("NewPlotConfiguration")
    
    'Найдите текущий ModelType
    Dim currModelType As Boolean
    currModelType = PlotConfigObj.ModelType
    MsgBox "ModelType для объекта: " & currModelType
    
End Sub