CheckIntersectionWithMoreOptions
From scripting
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