Sub Example_ActiveDocument()
    Dim activeDoc As AcadDocument
    ' Текущий документ AutoCAD
    Set activeDoc = ThisDrawing.Application.ActiveDocument
    MsgBox "Текущий документ: " & activeDoc.name, vbInformation, "ActiveDocument Пример"
End Sub