All Frameworks Object Hierarchy This Framework Indexes
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim part1 As Document Set part1 = CATDocs.Add("CATPart") Dim mass As RealParam Set mass = part1.Part.Parameters.CreateReal("mass", 5.) Dim depth As RealParam Set depth = part1.Part.Parameters.CreateReal("depth", 0.) Dim selectdepth As Relation Set selectdepth = part1.Part.Relations.CreateProgram ("select_depth", "Select depth with respect to mass", "if (mass>2kg) { depth=2mm } else { depth=1mm }")
Copyright © 2003, Dassault Systèmes. All rights reserved.