CheckIntersection

From scripting
Revision as of 05:11, 22 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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
Retrieved from "http://nickpisca.com/BLAST/index.php?title=CheckIntersection&oldid=50"