CheckProjection

From scripting
Jump to: navigation, search 
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
Retrieved from "http://nickpisca.com/BLAST/index.php?title=CheckProjection&oldid=54"