屬性 ActiveDocument 範例

Sub Example_ActiveDocument()    Dim activeDoc As AcadDocument    ' 傳回 AutoCad 目前使用中的文件    Set activeDoc = ThisDrawing.Application.ActiveDocument    MsgBox "The active document is: " & activeDoc.name, VbInformation, "ActiveDocument Example" End Sub