社区 › VBA/VB/ActiveX/API 编程技术 › Documents应用一例

ningyong58 发表于 2010-12-14 11:13:55

Documents应用一例

当有n个dwg文件打开时，下面程序可实现让MyA3.dwg文件成为当前文件时。
Sub lss()
Dim ff As AcadDocument
With ThisDrawing
    Set ff = .Application.Documents.Item("MyA3.dwg")
    Debug.Print TypeName(ff)
    ff.Activate
End With
End Sub

查看完整版本: Documents应用一例