我想用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

请问"C:\CAD\ABCAD\SCHEMA.CAD!Layet3"中的ABCAD是指CAD文件名么？我是想直接新建一个dwg文件。而且我改成了你这个还是报错activex部件不能创建对象

这个不是判断CAD是否打开嘛？所以用户使用的时候只是打开了CAD这个软件，但是不知道打开的是什么CAD文件，也无法判断文件位置了

哦哦哦 谢谢你！