方法 Activate 範例

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 " & drawing.name & " is active."     Next drawing End Sub