怎么样得到想要的窗口

gare1000 · 发表于 2004-6-5 11:46:00

如果当前的系统运行着两个（或以上）auto cad,使用下面的语句建立的的.Application对象，好象默认是指向最先打开的cad 窗口，那么怎样使新建的对象指向自己想要的窗口。AcadApp1Mdl = GetObject(, "AutoCAD.Application")
说详细些：我用语句：
ProcID = Shell("C:\Program Files\AutoCAD 2002\acad.exe e:/cad工程/qty25/图符/qty25模板.dwg ", AppWinStyle.NormalFocus)
打开了一个cad 图文件：qty25模板.dwg，然后想把这个图用下面的代码：设置给PaSpace1Mdl 对象，再进行操作。问题是，如果当前的系统中没有打开过cad 可以正常。可是如果已经有打开的cad 窗口，那么PaSpace1Mdl 就不是指向自己打开的cad窗口，而是指向先打开的cad 窗口。怎么解决这个问题。
AcadApp1Mdl = GetObject(, "AutoCAD.Application")
                                                      If Err.Number  0 Then
                                                                                       Err.Clear()
                                                                                       AcadApp1Mdl = CreateObject("AutoCAD.Application")
                                                                                       If Err.Number  0 Then
                                                                                                                     MsgBox(Err.Description)
                                                                                       Exit Sub
                                                                                       End If
                                                      End If
                                                      AcadApp1Mdl.Visible = True
                                                      AcadDoc1Mdl = AcadApp1Mdl.ActiveDocument
                                                      MoSpace1Mdl = AcadDoc1Mdl.ModelSpace
                                                      PaSpace1Mdl = AcadDoc1Mdl.PaperSpace
还有一个问题：怎样得到cad 的安装路径，用来替换下面的 “C:\Program Files\AutoCAD 2002”？
ProcID = Shell("C:\Program Files\AutoCAD 2002\acad.exe e:/cad工程/qty25/图符/qty25模板.dwg ", AppWinStyle.NormalFocus)