新手求教：请问在用VBA打开两个图形，怎么切换对这两个图形的访问啊？

xo0000ox · 发表于 2011-9-5 11:25:00

Dim pname1 As String
Dim pname2 As String
pname1 = "D:\1.dwg"
pname2 = "D:\2.dwg"
If (Dir(pname1) "") And (Dir(pname2) "") Then
ThisDrawing.Application.Documents.Open pname1
ThisDrawing.Application.Documents.Open pname2
我用了上面的代码打开了两个图形，然后我要分别访问这两个Document，但是Thisdrawing应该是指向了第一次启动时自动创建的那个空图形。我现在autocad里面有一个空图形，两个我打开的图形(1.dwg和2.dwg)。应该如何操作才能让自己访问到1.dwg或者2.dwg啊？

cqy · 发表于 2011-9-10 09:18:00

Set pname1 = Application.ActiveDocument

新手求教：请问在用VBA打开两个图形，怎么切换对这两个图形的访问啊？

发表回复

精选推荐