我的机子为什么不能运行这个代码?

machinecn

Public acadApp As AcadApplication
Public Sub OpenAutoCAD()
   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
         End
         Exit Sub
      End If
   End If
   acadApp.Visible = True
End Sub
提示ActiveX对象不能创建
我已经引用了CAD2000类型库了

mccad

对于2002应该为：AutoCAD.Application.15
对于2004应该为：AutoCAD.Application.16

myfreemind

可能你引用错了！

machinecn

没有错啊，我引用的是AUTOCAD2000 object library，有问题？