IsIntersectionResultCurve
From scripting
Function IsIntersectionResultCurve(Obj1 As Variant, Obj2 As Variant, ConstSet As HybridBody) As Boolean On Error GoTo Blast If CheckIntersection(Obj1, Obj2, MyPart, MyHSFactory) Then Dim SamInt As HybridShapeIntersection Set SamInt = MyHSFactory.AddNewIntersection(Obj1, Obj2) ConstSet.AppendHybridShape SamInt If CrvCheck(SamInt) Then MyHSFactory.DeleteObjectForDatum SamInt IsIntersectionResultCurve = True Exit Function End If MyHSFactory.DeleteObjectForDatum SamInt End If Blast: IsIntersectionResultCurve = False End Function