Difference between revisions of "CheckProjection"

From scripting
Jump to: navigation, search
(Created page with " Function CheckProjection(CElement As Variant, CSupport As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeProject Set TestInt = MyHSFactory.AddNewProject...")
 
(No difference)

Latest revision as of 05:13, 22 April 2017

Function CheckProjection(CElement As Variant, CSupport As Variant) As Boolean
On Error GoTo Blast
Dim TestInt As HybridShapeProject
Set TestInt = MyHSFactory.AddNewProject(CElement, CSupport)
CATIA.ActiveDocument.Part.UpdateObject TestInt
CheckProjection = True
Exit Function
Blast:
CheckProjection = False
End Function