社区 › VB › [VBA]三维实体干涉检查

该怎么办呢难哦 发表于 2004-4-29 11:40:00

[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.Number0 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 发表于 2004-4-29 12:06:00

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

查看完整版本: [VBA]三维实体干涉检查