Sub Example_Active()
    ' Этот пример создает два новых рисунка и определяет, какой из рисунков
    ' является активным.
    
    Dim NewDrawing1 As AcadDocument
    Dim Newdrawing2 As AcadDocument
    Set NewDrawing1 = ThisDrawing.Application.Documents.Add("")
    Set Newdrawing2 = ThisDrawing.Application.Documents.Add("")
    
    Dim activeStatus As String
    Dim drawing As AcadDocument
    activeStatus = ""
    For Each drawing In ThisDrawing.Application.Documents
    If drawing.Active Then
            activeStatus = activeStatus & drawing.name & " является активным." & vbCrLf
    Else
            activeStatus = activeStatus & drawing.name & " не активен." & vbCrLf
    End If
    Next drawing
    MsgBox activeStatus
End Sub