CheckIntersection
From scripting
Function CheckIntersection(Object1 As Variant, Object2 As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeIntersection Set TestInt = MyHSFactory.AddNewIntersection(Object1, Object2) CATIA.ActiveDocument.Part.UpdateObject TestInt CheckIntersection = True Exit Function Blast: CheckIntersection = False End Function