2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim cad As AcadApplication
Set cad = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set cad = CreateObject("AutoCAD.Application")
End If
cad.Visible = True
End Sub
Private Sub Command1_Click()
Dim cad As AcadApplication
Set cad = GetObject(, "AutoCAD.Application.19")
If Err Then
Err.Clear
Set cad = CreateObject("AutoCAD.Application.19")
End If
cad.Visible = True
End Sub
Private Sub Command2_Click()
Dim p1(2) As Double, p2(2) As Double, p3(2) As Double
Dim MyCad As AcadApplication 'mechaniacal 对象
Dim MyDoc As AcadDocument
Dim MyLine As AcadLine
Dim dima As AcadDimAligned
On Error Resume Next
Set MyCad = GetObject(, "AutoCad.application")
If Err Then
Err.Clear
Set MyCad = CreateObject("AutoCad.application")
End If
MyCad.Visible = True
end sub
我不加 on error resume next,那么我再cad运行的时候,用 Set MyCad = GetObject(, "AutoCad.application"),肯定会出错
然后出错了,程序自然也不会往下一行读取 If Err 语句,自然起不到判断cad是否在运行的作用,但是加上on on error resume next,出错后程序继续
往下执行,才能执行 If Err Then
if err
Err.Clear
Set MyCad = CreateObject("AutoCad.application")
End If
您觉得是这样吗