[VBA]三维实体干涉检查

该怎么办呢难哦

三维实体干涉检查：试着编了下断代码，为何检测不出？那句有错？ Private Sub CommandButton1_Click()
On Error Resume Next
Me.Hide
Dim returnobj(2) As AcadEntity
Dim objnumber As Integer
Dim basepnt As Variant
objnumber = objnumber + 1
ThisDrawing.Utility.GetEntity returnobj(objnumber), basepnt, "选择实体" returnobj(objnumber).Highlight (True)
Me.Show
If Err.Number <> 0 Then
Err.Clear
objnumber = objnumber - 1
MsgBox ("未选中实体，重选")
Exit Sub
End If Dim interferenceobj As Acad3DSolid
If objnumber = 2 Then
Set interferenceobj = returnobj(1).CheckInterference(returnobj(2), True)
interferenceobj.Delete
If Err.Number = 0 Then
MsgBox ("两三维实体干涉")
interference = True
objnumber = 0
Else
MsgBox ("两三维实体不干涉")
interference = False
objnumber = 0
Err.Clear
End If
End If


End Sub

雪山飞狐_lzh

差For循环，只能选择一次，你怎么判断