AutoCAD2002与visual basic 6.0如何连接？

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

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如何连接？

发表回复

精选推荐