Sub Example_ActiveSpace()
    ' Этот пример переключает свойство ActiveSpace от пространства листа
    ' к пространству модели.
    ' Покажите установку потока для TILEMODE
    MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Пример"
     
    ' Измените активный документ на пространство листа
    ThisDrawing.ActiveSpace = acPaperSpace
    MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Пример"
   
    ' Измените активный документ на пространство модели
    ThisDrawing.ActiveSpace = acModelSpace
    MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Пример"
End Sub