社区 › VBA/VB/ActiveX/API 编程技术 › 我的机子为什么不能运行这个代码?

machinecn 发表于 2003-7-13 11:03:00

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

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 发表于 2003-7-13 12:22:00

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

myfreemind 发表于 2003-7-13 12:41:00

可能你引用错了！

machinecn 发表于 2003-7-14 15:35:00

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

查看完整版本: 我的机子为什么不能运行这个代码?