open打开图形，没有打开，新手弱弱的问，在线等ing！

bob_0377

Private Sub Form_Load()

Dim acadapp As Object      '建立Application对象
Dim acaddoc As Object      '建立Document对象
Dim mospace As Object      '建立Model Space 对象
On Error Resume Next

Set acadapp = GetObject(, "AutoCAD.application")   '若AutoCad已启动 , 则直接得到

If Err Then
   Err.Clear
   Set acadapp = CreateObject("autocad.application")   '若AutoCad未启动，则运行它
   If Err Then
     MsgBox Err.Description
     Exit Sub
   End If
End If

acadapp.Visible = True  '使AutoCad可见
Set acaddoc = acadapp.ActiveDocument   '设acaddoc为当前图形文件
Set mospace = acaddoc.ModelSpace  '设mospace为当前图形文件的模型空间

Dim dwgname As String
dwgname = "D:\课题\新疆油田\石南21电子文档归档\工艺\DL222加0\DL122加5\DWG22加5.dwg"
If Dir(dwgname) <> "" Then
     acaddoc.Open dwgname      '打开一个CAD文件
Else
     MsgBox "File " & dwgname & " does not exist."

End If

End Sub

请各位大侠帮忙！小弟感激不尽！

我用的是AutoCAD2005   操作系统是简体中文XP

 

wyj7485

End Sub前少个end if

bob_0377

不好意思，拷贝的时候掉了。

我现在修改过来还是不行啊！

请再指点！

静侯！

雪山飞狐_lzh

  set  objDoc = ACadApp.Documents.Open("c:\1.dwg")

bob_0377

lzh741206发表于2005-7-12 20:13:00 set objDoc = ACadApp.Documents.Open(\"c:\1.dwg\")

多谢lzh741206斑竹的指点，小弟 的问题已经解决！！！