Sub Example_MainDictionary()
    ' Этот пример возвращает текущую установку MainDictionary. Затем
    ' изменяет значение и наконец сбрасывает значение назад к оригинальной
    ' установке.
    
    Dim preferences As AcadPreferences
    Dim currMainDictionary As String
    Dim newMainDictionary As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение MainDictionary
    currMainDictionary = preferences.Files.MainDictionary
    MsgBox "Текущее значение для MainDictionary " & currMainDictionary, vbInformation, "MainDictionary Пример"
    
    'Измените значение для MainDictionary
    newMainDictionary = "TestMainDictionary"
    preferences.Files.MainDictionary = newMainDictionary
    MsgBox "Новое значение для MainDictionary " & newMainDictionary, vbInformation, "MainDictionary Пример"
    
    'Сбросьте MainDictionary к его оригинальному значению
    preferences.Files.MainDictionary = currMainDictionary
    MsgBox "Значение MainDictionary сброшено к " & currMainDictionary, vbInformation, "MainDictionary Пример"
End Sub