使用 VBA 以外的其它编程语言

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