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
VB6 启动CSCAD过程
最新推荐文章于 2025-06-29 11:30:16 发布