使指定的图形处于活动状态。 支持的平台:仅窗口 返回值(RetVal)无返回值。 言论没有额外的评论。 例子工 务 局: 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 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-12 18:15
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.