(* SCHEMA cast_parts_schema; *)
FUNCTION get_property_definition_shape_aspect(
c_def_instance: characterized_definition
): SET OF shape_aspect;
LOCAL
pdr_set : SET OF shape_aspect:= [];
pd_set : SET OF property_definition := [];
END_LOCAL;
pd_set := bag_to_set(USEDIN(c_def_instance,
'CAST_PARTS_SCHEMA.PROPERTY_DEFINITION.DEFINITION'));
IF SIZEOF(pd_set) < 1 THEN
RETURN(pdr_set);
END_IF;
REPEAT i := 1 TO HIINDEX(pd_set) BY 1;
pdr_set := pdr_set + bag_to_set(USEDIN(pd_set[i],
'CAST_PARTS_SCHEMA.SHAPE_ASPECT.OF_SHAPE'));
END_REPEAT;
RETURN(pdr_set);
END_FUNCTION;
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:17:49-04:00