CheckIntersection

From scripting
Jump to: navigation, search
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