Sub Example_Layout()
    'Этот пример использует объект Layout, полученный из пространства модели.
    'Мы затем показываем информацию от объекта Layout.
    
    Dim Layout As ACADLayout
    
    'Присоединитесь к объекту Layout
    Set Layout = ThisDrawing.ModelSpace.Layout
    MsgBox "Мы теперь имеем доступ к свойствам и методам объекта Layout пространства модели! "
    
    'Получите имя Листа пространства модели
    MsgBox "Имя Листа пространства модели: " & Layout.name
    
    'Освободите Объект
    Set Layout = Nothing
    MsgBox "Объект Layout был отпущен!"
End Sub