vba激活图形

Bingo940 · 发表于 2014-8-11 09:19:00

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

wangshuping42 · 发表于 2014-8-22 11:57:00

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

vba激活图形

发表回复

精选推荐