请问为什么vb 调用CAD时报错 activex部件不能创建对象

[weixin_46503551]

我想用vb设计程序先打开CAD，然后CAD中打开scr脚本文件进行自动绘图，这个代码老是在检查CAD是否打开那个地方报错activex部件不能创建对象是为啥？

引用

Private Sub Command1_Click()
Dim acadApp As AcadApplication
'On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application") '检查CAD是否打开
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application") '打开CAD
If Err Then
MsgBox Err.Number & ":" & Err.Description '打开失败
Exit Sub
End If
End If

acadApp.Visible = True


End Sub

[XiaoCkxx]

你好，请问你解决了吗