IsIntersectionResultCurve
From scripting
Revision as of 07:00, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function IsIntersectionResultCurve(Obj1 As Variant, Obj2 As Variant, ConstSet As HybridBody) As Boolean On Error GoTo Blast If CheckIntersection(Obj1, Obj2, MyPart, M...")
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