Sub Example_PlotConfigurations()
    ' Этот пример обратится к коллекции PlotConfigurations текущего рисунка,
    ' добавит графическую конфигурацию, и перечисляет основную
    ' информацию о графических конфигурациях в рисунке.

    Dim PlotConfigurations As AcadPlotConfigurations
    Dim PlotConfiguration As AcadPlotConfiguration
    Dim msg As String
    
    ' Получите коллекцию PlotConfigurations от объекта документа
    Set PlotConfigurations = ThisDrawing.PlotConfigurations
    
    ' Если нет никаких графических конфигураций, то добавьте
    If PlotConfigurations.count = 0 Then
        ' *** Настраивают новую конфигурацию ***
        PlotConfigurations.Add "NEW_CONFIGURATION"
    End If
    
    msg = vbCrLf & vbCrLf
    
    ' Получите названия графических конфигураций в этом рисунке
    For Each PlotConfiguration In PlotConfigurations
        msg = msg & PlotConfiguration.name & vbCrLf
    Next
    
    ' Покажите список доступных графических конфигураций
    MsgBox "Есть " & PlotConfigurations.count & " графическая(их) конфигурация(й) в " & _
            ThisDrawing.WindowTitle & ":" & msg
End Sub