Difference between revisions of "CheckInfiniteLineNormalIntersection"
From scripting
(Created page with " Function CheckInfiniteLineNormalIntersection(PtObj As Variant, SurfObj As Variant, ConstSet As HybridBody) As Boolean On Error GoTo blast Dim TestInt As HybridShapeLineNorm...") |
(No difference)
|
Latest revision as of 05:11, 22 April 2017
Function CheckInfiniteLineNormalIntersection(PtObj As Variant, SurfObj As Variant, ConstSet As HybridBody) As Boolean On Error GoTo blast Dim TestInt As HybridShapeLineNormal Set TestInt = MyHSFactory.AddNewLineNormal(SurfObj, PtObj, 0, 5, True) TestInt.SetLengthType 1 ConstSet.AppendHybridShape TestInt CATIA.ActiveDocument.Part.UpdateObject TestInt If CheckIntersection(TestInt, SurfObj) Then CheckInfiniteLineNormalIntersection = True Else CheckInfiniteLineNormalIntersection = False End If MyHSFactory.DeleteObjectForDatum TestInt Exit Function blast: MyHSFactory.DeleteObjectForDatum TestInt CheckInfiniteLineNormalIntersection = False End Function