CheckLineNormal

From scripting
Jump to: navigation, search
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