Difference between revisions of "CheckIntersection"
From scripting
(Created page with " Function CheckIntersection(Object1 As Variant, Object2 As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeIntersection Set TestInt = MyHSFactory.AddNewIn...") |
(No difference)
|
Latest revision as of 05:11, 22 April 2017
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