vb起动cad r14后出现问题

china-hz

利用VB起动AutoCAD R14后，出现上次说的对话框，在CAD中出现""base.dcl": Invalid file name."字样，请问如何解决。

lcad

你是怎么用VB起动r14的？

china-hz

public acadapp as object
Private Sub Form_Load()
    On Error Resume Next
    Set acadapp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadapp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox ("不能运行AutoCAD R14，请检查。")
            Exit Sub
        End If
    End If
    acadapp.Visible = True
End Sub