Sub Example_ActivateMethod()
    ' Этот пример создает два новых рисунка и активизирует каждый рисунок по очереди.
    
    Dim NewDrawing1 As AcadDocument
    Dim Newdrawing2 As AcadDocument
    Set NewDrawing1 = ThisDrawing.Application.Documents.Add("")
    Set Newdrawing2 = ThisDrawing.Application.Documents.Add("")
    
    Dim drawing As AcadDocument
    For Each drawing In ThisDrawing.Application.Documents
        drawing.Activate
        MsgBox "Рисунок " & drawing.name & " активен."
    Next drawing
End Sub