|
发表于 2004-11-16 20:41:00
|
显示全部楼层
我是这样引用的:
Sub linkacad(Acadapp)
On Error GoTo err:
'Set Acadapp = GetObject(, "AutoCAD.application") 'for acad2000/2002
Set Acadapp = GetObject(, "AutoCAD.application.16") 'for acad2004
Acadapp.Visible = True
Exit Sub
err:
MsgBox ("请检查是否已经运行AutoCAD!") 'for acad2000/2002
'MsgBox ("请检查是否已经运行AutoCAD2004!") 'for acad2004
Set Acadapp = Nothing
End Sub
然后insertpoint = Acadapp.ActiveDocument.Utility.GetPoint(, "选择插入点(按ESC退出):")
分别引用2000/2004的类型库,结果2000可用,2004不可用。斑竹你的方法我看不懂,不用引用cad类型库,前7行就能将oApp指定为autocad?? |
|