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.