CheckLineNormal
From scripting
Function CheckLineNormal(PtObj As Variant, SurfObj As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeLineNormal Set TestInt = MyHSFactory.AddNewLineNormal(SurfObj, PtObj, 0, 5, True) CATIA.ActiveDocument.Part.UpdateObject TestInt CheckLineNormal = True Exit Function Blast: CheckLineNormal = False End Function