为何连接不上cad?望赐教~！

backarmy

我用的是XP系统，VB6.0和AutoCAD2005，为何用VB连接不上CAD，望赐教，谢过先！ Public acadApp As AcadApplication
Public acadDoc As Object
Public moSpace As Object
Public paSpace As Object Sub main() On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
Set paSpace = acadDoc.PaperSpace
acadApp.Visible = acTrue
Form1.Show End Sub
下面是我相关图片：

bland

Set acadApp = GetObject(, "AutoCAD.Application")加版本如何那？ Set acadApp = GetObject(, "AutoCAD.Application.16.2")

backarmy

不行啊，老大！


斑竹呢？快说说，急用！

雪山飞狐_lzh

Set acadApp = GetObject(, "AutoCAD.Application.16")

backarmy

好的,谢谢!