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

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

本帖最后由 xo0000ox 于 2011-9-5 11:26 编辑

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时自动创建的那个空图形。我现在autocad里面有一个空图形，两个我打开的图形(1.dwg和2.dwg)。应该如何操作才能让自己访问到1.dwg或者2.dwg啊？

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

Set pname1 = Application.ActiveDocument

账号		自动登录	找回密码
密码			注册