屬性 Active 範例

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 & " is active." & vbCrLf       Else          activeStatus = activeStatus & drawing.name & " is not active." & vbCrLf       End If    Next drawing    MsgBox activeStatus End Sub