vba激活图形

Bingo940

在一打开一个CAD图形drawing1的情况下，我已用open语句打开了drawing2，怎么写程序激活drawing2，最后怎么关闭drawing2？
另知道drawing2的存放路径（D:\cad\图形），怎么把这个文件赋值给一个对象？
求热心人帮忙！！！

wangshuping42

Option Explicit

Sub test()

    Dim doc As AcadDocument
    Set doc = ThisDrawing.Application.Documents.Open("D:\cad\图形\drawing2.dwg")    'drawing2赋给变量doc
    doc.Activate    '激活
    doc.Save    '保存
   
    Do Until doc.Saved  '确认已保存
        DoEvents
    Loop
    doc.Close '关闭
   
End Sub