CATIA VBA 干涉检测 的另一种表达可以是 CATIA VBA 干扰检测

以下代码展示如何使用Clash和Group对象检查干涉情况：

```vba

Sub CATMain()

   ' 获取文档的根产品'

   Dim RootProd As Product

   Set RootProd = CATIA.ActiveDocument.Product

   ' 获取活动文档的选择对象'

   Dim objSelection As Selection

   Set objSelection = CATIA.ActiveDocument.Selection

   ' 获取两个已选择的对象'

   If (objSelection.Count2 <> 2) Then

       MsgBox "在运行脚本之前，您必须选择两个产品以进行干涉计算", vbOKOnly, "未选择产品"

       Exit Sub

   End If

   Dim FirstProd As Product

   Dim SecondProd As Product

   Set FirstProd = objSelection.Item2(1).Value

   Set SecondProd = objSelection.Item2(2).Value

   ' 创建用于干涉计算的组'

   Dim objGroups As Groups

   Set objGroups = RootProd.GetTechnologicalObject("Groups")

   Dim grpFirst As Group

   Dim grpSecond As Group

   Set grpFirst = objGroups.Add()

   Set grpSecond = objGroups.Add()

   ' 将所选产品添加到组中'

   grpFirst.AddExplicit FirstProd

   grpSecond.AddExplicit SecondProd

   ' 获取Clashes集合的访问权限'

   Dim objClashes As Clashes

   Set objClashes = RootProd.GetTechnologicalObject("Clashes")

   ' 创建新的干涉'

   Dim newClash As Clash

   Set newClash = objClashes.Add()

   newClash.FirstGroup = grpFirst

   newClash.SecondGroup = grpSecond

   newClash.ComputationType = catClashComputationTypeBetweenTwo

   newClash.Compute

   Dim cConflicts As Conflicts

   Set cConflicts = newClash.Conflicts

   For I = 1 To cConflicts.Count

       Set oConflict = cConflicts.Item(I)

       'Worksheets("Clash Results").Cells(I + 2, 1).Value = I

       Debug.Print oConflict.FirstProduct.Name

       Debug.Print oConflict.SecondProduct.Name

       Debug.Print oConflict.Value

       Debug.Print oConflict.Type

       Debug.Print oConflict.Status

       Debug.Print oConflict.Comment

   Next

End Sub

```

以上代码可用于在CATIA中执行干涉检测，并将结果记录到Excel表中。通过使用VBA和Excel，可以提高干涉分析的效率。