Activate 方法 (ActiveX) 
使指定的图形处于活动状态。 支持的平台:仅限 Windows 返回值 (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
可视化 LISP: Not available  | 
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1   苏公网安备32011402011833)
GMT+8, 2025-11-4 23:58
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.