FUNCTION unique_in_product_definition

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION unique_in_product_definition
      (item : representative_shape_representation ) : BOOLEAN;
   LOCAL
      local_p_d : SET OF product_definition := [];
      local_s_r : SET OF shape_representation := [];
      i : INTEGER;
      j : INTEGER;
   END_LOCAL;
      local_p_d := using_product_definition_of_shape_representation(item);
      IF SIZEOF(local_p_d) <> 1 THEN
         RETURN (TRUE);
      ELSE
         REPEAT i := 1 TO HIINDEX(local_p_d);
            local_s_r := find_shape_representation_of_product_definition(local_p_d[i]);
            REPEAT j := 1 TO HIINDEX(local_s_r);
               IF ('STEP_MERGED_AP_SCHEMA.REPRESENTATIVE_SHAPE_REPRESENTATION' IN TYPEOF(local_s_r[j])) AND (local_s_r[j] :<>: item) THEN
                  RETURN (FALSE);
               END_IF;
            END_REPEAT;
         END_REPEAT;
      END_IF;
      RETURN (FALSE);
END_FUNCTION;

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:20-04:00