CheckIntersectionWithMoreOptions

From scripting
Revision as of 05:12, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function CheckIntersectionWithMoreOptions(Object1 As Variant, Object2 As Variant, CurPart As Part, CurHSFactory As HybridShapeFactory) As Boolean On Error GoTo Blast Dim Te...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function CheckIntersectionWithMoreOptions(Object1 As Variant, Object2 As Variant, CurPart As Part, CurHSFactory As HybridShapeFactory) As Boolean
On Error GoTo Blast
Dim TestInt As HybridShapeIntersection
Set TestInt = CurHSFactory.AddNewIntersection(Object1, Object2)
CurPart.UpdateObject TestInt
CheckIntersectionWithMoreOptions = True
Exit Function
Blast:
CheckIntersectionWithMoreOptions = False
End Function