如何编写打开autocad2004文件的vb代码

apple06

我在VB中编写如下打开AutoCAD2004图形文件的代码
Option Explicit
Public AcadAppObj As AcadApplication
Public Curdwg As AcadDocument Private Sub Command1_Click()
'连接Autocad2004
On Error Resume Next
Set AcadAppObj = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set AcadAppObj = CreateObject("autocad.application.16")
If Err Then
MsgBox "不能运行AutoCAD!"
Exit Sub
End If
End If
AcadAppObj.Visible = True
Set Curdwg = AcadAppObj.ActiveDocument
Curdwg.Open "E:\习题\平面图\齿轮.dwg"
Curdwg.Active
End Sub 为何说 Curdwg.Active 属性的无效使用，AcadAppObj和Curdwg的值溢出上下文,且autocad2004并没有打开所要打开的图形文件，请问各位究竟是何原因。

mccad

开始启动后，本身AutoCAD没有打开着的图形，所以这一句有问题：

1. Set Curdwg = AcadAppObj.ActiveDocument

复制代码

whyer

对

apple06

能否说的具体些,该进行怎样的操作才能实现打开图形文件.