Dim AcadApp as Object '定义一个对象
On Error Resume Next
Set AcadApp =GetObject(,".Application")
If Err Then '如果没有一个AutoCAD副本在运行
Err.Clear
Set AcadApp =CreateObject("AutoCAD.Application")
AcadApp.Visable =True '启动一个AutoCAD副本并设为可见
If Err Then
MsgBox Err.Description '如果失败,给出错误提示
Exit Sub
End If
End If
用上面的代码加载CAD时怎么运行到AcadApp.Visable =True 时出错,提示对象不支持该属性和方法。