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