Sub Example_Database()
    ' Это пример справочника объекта Database, полученного от
    ' пространства модели.
    ' Информация от объекта Database затем отображается
    
    Dim Database As AcadDatabase
    
    ' Присоединитесь к объекту Database
    Set Database = ThisDrawing.ModelSpace.Database
    MsgBox "Мы теперь имеем доступ к свойствам и методам объекта Database! "
    
    ' Установите число Blocks в этой базе данных
    MsgBox "Число Blocks в этой базе данных: " & Database.Blocks.count

    ' Объект освобождаем
    Set Database = Nothing
    MsgBox "Объект Database был освобождён! "
End Sub