Sub Example_Dictionaries()
    ' Этот пример находит текущую коллекцию словарей и добавляет
    ' новый словарь к той коллекции.
    
    Dim dict As AcadDictionary
    Set dict = ThisDrawing.Dictionaries.Add("TEST")
    MsgBox "Новый словарь " & dict.name & " добавился к коллекции словарей.", vbInformation, "Dictionaries Пример"
End Sub