FUNCTION using_product_definition_of_shape_representation

(* SCHEMA assembly_feature_relationship_schema; *)

FUNCTION using_product_definition_of_shape_representation
    (item: shape_representation) : SET OF product_definition;
LOCAL
  local_s_d_r: SET OF shape_definition_representation := [];
  local_p_d_s: SET OF product_definition_shape := [];
  local_p_d: SET OF product_definition := [];
  i : INTEGER;
END_LOCAL;

-- find shape_definition_representations 
  local_s_d_r  := local_s_d_r + bag_to_set (USEDIN (item, 
 'PRODUCT_PROPERTY_REPRESENTATION_SCHEMA.' +
 'SHAPE_DEFINITION_REPRESENTATION.USED_REPRESENTATION')); 

-- find product_definition_shape & product_definitions
REPEAT i := 1 TO HIINDEX (local_s_d_r);
   IF (('PRODUCT_PROPERTY_DEFINITION_SCHEMA.PRODUCT_DEFINITION_SHAPE' IN 
     TYPEOF (local_s_d_r[i].definition))
     AND
     ('PRODUCT_DEFINITION_SCHEMA.PRODUCT_DEFINITION' IN TYPEOF
       (local_s_d_r[i].definition.definition))) 
   THEN local_p_d := local_p_d + local_s_d_r[i].definition.definition;
   ELSE IF (('PRODUCT_PROPERTY_DEFINITION_SCHEMA.PROPERTY_DEFINITION' IN 
     TYPEOF (local_s_d_r[i].definition))
     AND
     ('PRODUCT_DEFINITION_SCHEMA.PRODUCT_DEFINITION' IN TYPEOF
       (local_s_d_r[i].definition.definition)))
   THEN local_p_d := local_p_d + local_s_d_r[i].definition.definition;
   END_IF;
   END_IF;
END_REPEAT;
RETURN (local_p_d);
END_FUNCTION;

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:00-04:00