CheckInfiniteLineNormalIntersection
From scripting
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