Difference between revisions of "IsIntersectionResultCurve"

From scripting
Jump to: navigation, search
(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...")
 
(No difference)

Latest revision as of 07:00, 22 April 2017

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