Sub Example_HasExtensionDictionary()
    ' Этот пример выполнит итерации через каждый объект в текущем рисунке
    ' и определит, имеет ли этот объект связанный Extension Dictionary
    
    Dim DrawingObject As AcadObject
    Dim ExtensionDictionaryResults As String
    
    ' Удостоверьтесь, что этот рисунок содержит объекты перед продолжением
    If ThisDrawing.ModelSpace.count = 0 Then
        MsgBox "Нет никаких объектов в текущем рисунке."
        Exit Sub
    End If
    
    For Each DrawingObject In ThisDrawing.ModelSpace
        ' Определите, содержит ли объект Extension Dictionary
        Select Case DrawingObject.HasExtensionDictionary
            Case True
                ExtensionDictionaryResults = ExtensionDictionaryResults & DrawingObject.ObjectName & " имеет связанного Extension Dictionary" & vbCrLf
            Case False
                ExtensionDictionaryResults = ExtensionDictionaryResults & DrawingObject.ObjectName & " не имеет связанного Extension Dictionary" & vbCrLf
        End Select
    Next
    
    MsgBox ExtensionDictionaryResults
End Sub