Public Sub StartAcad()
On Error Resume Next
Set AcadApp = GetObject(, "BricscadApp.AcadApplication")
If Err Then
Err.Clear
Set AcadApp = CreateObject("BricscadApp.AcadApplication")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub
05-16
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交