Difference between revisions of "CheckLineNormal"
From scripting
(Created page with " Function CheckLineNormal(PtObj As Variant, SurfObj As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeLineNormal Set TestInt = MyHSFactory.AddNewLineNorm...") |
(No difference)
|
Latest revision as of 05:12, 22 April 2017
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