Difference between revisions of "CheckIntersectionWithMoreOptions"
From scripting
(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...") |
(No difference)
|
Latest revision as of 05:12, 22 April 2017
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