Activate メソッド(ActiveX)

指定された図面をアクティブにします。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.Activate

object

タイプ: Document

このメソッドが適用されるオブジェクト。

戻り値(RetVal)

戻り値はありません。

注意

追加の注意はありません。

例

VBA:

Sub Example_ActivateMethod()
    ' This example creates two new drawings and activates each drawing in turn.
    
    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

Visual LISP:

Not available