提问快，回答快，给分快！！！

Question

以下是SoHo_Andy帮助我做的调出CAD的代码，我运行提示是：实时错误429；ActiveX不能创建对象。请问是为什么？怎么解决？？
Dim acadapp As Object   
Dim acaddoc As Object      
Dim mospace As Object     Private Sub Command1_Click()
    Set acadapp = CreateObject("autocad.application")
    If Err Then
        MsgBox Err.Description
        Exit Sub
    End If
    Set acaddoc = acadapp.ActiveDocument   
    Set mospace = acaddoc.ModelSpace 
    
    Dim dwgname As String
    dwgname = "d:\drawing.dwg"
    If Dir(dwgname) <> "" Then
        acaddoc.Open dwgname      '打开一个CAD文件
    Else
        acaddoc.new ("acad")   
    End If
    
    acadapp.Visible = True  '使AutoCad可见
    
End Sub

Answer 1

可能是版本的事
你查查你的注册表中是否存在 autocad.application 的键值我安装的AutoCAD R14 ,我的注册表中有
autocad.application
autocad.application.14
autocad.application.15
三个CAD应用对象键值都可以创建CAD，你试试后面两个对象能否成功

Answer 2

.15有进步,
acaddoc.Open dwgname      '打开一个CAD文件
实时错误