FUNCTION unique_in_shape_aspect

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION unique_in_shape_aspect
      (item : representative_shape_representation ) : BOOLEAN;
   LOCAL
      local_s_a : SET OF shape_aspect := [];
      local_s_r : SET OF shape_representation := [];
      i : INTEGER;
      j : INTEGER;
   END_LOCAL;
      local_s_a := using_shape_aspect_of_shape_representation(item);
      IF SIZEOF(local_s_a) <> 1 THEN
         RETURN (TRUE);
      ELSE
         REPEAT i := 1 TO HIINDEX(local_s_a);
            local_s_r := find_shape_representation_of_shape_aspect(local_s_a[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