社区 › VB › 如何编写打开autocad2004文件的vb代码

apple06 发表于 2004-2-21 12:50:00

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

我在VB中编写如下打开2004图形文件的代码
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 发表于 2004-2-21 14:05:00

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

whyer 发表于 2004-2-21 14:15:00

对

apple06 发表于 2004-2-25 09:52:00

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

查看完整版本: 如何编写打开autocad2004文件的vb代码