Difference between revisions of "IsIntersectionResultCurve"
From scripting
(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