FUNCTION get_geometric_model
(input : Item_shape) : SET [0:?] OF Geometric_model;
LOCAL
sda : SET OF Shape_description_association := [];
gm : SET OF Geometric_model := [];
END_LOCAL;
sda := bag_to_set(USEDIN(input,
'SHAPE_PROPERTY_ASSIGNMENT_ARM.' +
'SHAPE_DESCRIPTION_ASSOCIATION.' + 'REPRESENTED_CHARACTERISTIC'));
REPEAT i := 1 TO SIZEOF(sda) BY 1;
gm := gm + sda[i].representation;
END_REPEAT;
RETURN(gm); END_FUNCTION; -- get_geometric_model
|