社区 › VB › AutoCAD2002与visual basic 6.0如何连接？

zjn0987 发表于 2008-3-28 10:34:00

AutoCAD2002与visual basic 6.0如何连接？

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

兰州人 发表于 2008-3-28 13:34:00

与版本无关。
给段程序理解一下。
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 发表于 2008-3-28 14:04:00

好用，谢谢！
Exit Sub应该是
不是Exit Function

查看完整版本: AutoCAD2002与visual basic 6.0如何连接？