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