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-1-19 07:23
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.