- 积分
- 1107
- 明经币
- 个
- 注册时间
- 2004-1-28
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
<BR>如果当前的系统运行着两个(或以上)auto cad,使用下面的语句建立的AutoCAD的.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")<BR> If Err.Number <> 0 Then<BR> Err.Clear()<BR> AcadApp1Mdl = CreateObject("AutoCAD.Application")<BR> If Err.Number <> 0 Then<BR> MsgBox(Err.Description)<BR> Exit Sub<BR> End If<BR> End If
AcadApp1Mdl.Visible = True<BR> AcadDoc1Mdl = AcadApp1Mdl.ActiveDocument<BR> MoSpace1Mdl = AcadDoc1Mdl.ModelSpace<BR> 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) |
|