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

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

我在VB中编写如下打开autocad2004图形文件的代码<BR>Option Explicit<BR>Public AcadAppObj As AcadApplication<BR>Public Curdwg As AcadDocument


Private Sub Command1_Click()<BR>'连接Autocad2004<BR>On Error Resume Next<BR>Set AcadAppObj = GetObject(, "autocad.application.16")<BR>If Err Then<BR>                       Err.Clear<BR>                       Set AcadAppObj = CreateObject("autocad.application.16")<BR>                       If Err Then<BR>                                                       MsgBox "不能运行AutoCAD!"<BR>                                                       Exit Sub<BR>                       End If<BR>End If<BR>AcadAppObj.Visible = True<BR>Set Curdwg = AcadAppObj.ActiveDocument


<BR>       Curdwg.Open "E:\习题\平面图\齿轮.dwg"<BR>       Curdwg.Active                               <BR>End Sub


为何说       Curdwg.Active       属性的无效使用，AcadAppObj和Curdwg的值溢出上下文,且autocad2004并没有打开所要打开的图形文件，请问各位究竟是何原因。

mccad 发表于 2004-2-21 14:05:00

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


Set Curdwg = AcadAppObj.ActiveDocument

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

对

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

能否说的具体些,该进行怎样的操作才能实现打开图形文件.
页: [1]
查看完整版本: 如何编写打开autocad2004文件的vb代码