CheckLineNormal

From scripting
Revision as of 05:12, 22 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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