CATIA V5: Mastering Advanced Parametric and Hybrid 3D Design
' Create Relation Dim relation1 As Relation Set relation1 = parameters1.CreateFormula("Thickness_Formula", "Thickness = Overall_Length / 20", "Thickness")
' CATVBA to create a Global Parameter driven by a Rule Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument