|
三维实体干涉检查:试着编了下断代码,为何检测不出?那句有错?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
|
|