AutoCAD2002与visual basic 6.0如何连接？

zjn0987

AutoCAD2000和visual basic的连接书上有，可我的是2002的，用那个程序不好用，不知道怎么连接了，请大家帮帮忙，谢谢

兰州人

与版本无关。

给段程序理解一下。

On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application")
If Err Then
   Err.Clear
   On Error Resume Next
   Set obj_Acad = CreateObject("autocad.application")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKCancel, "警告！"
      Exit Function
      End If
End If
obj_Acad.Visible = True
Set obj_Doc = obj_Acad.ActiveDocument
Set obj_ModelSpace = obj_Doc.ModelSpace
'MsgBox "运行结束！", vbOKOnly, "工程1！"
boo = True

zjn0987

好用，谢谢！

Exit Sub应该是

不是Exit Function