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

Sub Example_ActiveLayout()
    ' 本示例遍历文档集合并使用 ActiveLayout 对象列出所有打开的文档的活动布局。

    Dim DOC As AcadDocument
    Dim msg As String
    
    ' 如果没有打开的文档，则退出
    If Documents.count = 0 Then
        MsgBox "没有打开的文档!"
        Exit Sub
    End If
    
    msg = vbCrLf & vbCrLf   ' 以空格开始
    
    ' 遍历文档并使用文档对象的 ActiveLayout 属性判断活动的布局名称
    For Each DOC In Documents
        msg = msg & DOC.WindowTitle & ": " & DOC.ActiveLayout.name
    Next
    
    ' 显示结果
    MsgBox "打开图形中的活动布局为: " & msg
End Sub