求救，CAD2002与VB通信问题

galaxy24 · 发表于 2004-2-17 23:24:00

Sub Ch2_ConnectToAcad()
   Dim acadApp As AcadApplication
   On Error Resume Next

   Set acadApp = GetObject(, ".Application")
   If Err Then
   Err.Clear
   Set acadApp = CreateObject("AutoCAD.Application")
   If Err Then
   MsgBox Err.Description
   Exit Sub
   End If
   End If
   MsgBox "Now running " + acadApp.Name + _
   " version " + acadApp.Version
End Sub
这是CAD2002帮助里面提供的连接方法，可是我的vb就是连接了CAD，另外CAD2004版本我也试过，也是不行。能帮我分析一下可能会是什么原因吗？谢谢