FUNCTION a3ms_validate_element_types

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION a3ms_validate_element_types
      (ei : data_equivalence_inspection_report;
       cr : a3m_equivalence_criterion_for_shape ) : LOGICAL;
   LOCAL
      compared_et : a3ms_element_type_name;
      comparing_et : a3ms_element_type_name;
      deiir : data_equivalence_inspection_instance_report;
      aeiiri : a3m_equivalence_inspection_instance_report_item;
      deiep : data_equivalence_inspected_element_pair;
   END_LOCAL;
      IF 'STEP_MERGED_AP_SCHEMA.DATA_EQUIVALENCE_INSPECTION_INSTANCE_REPORT' IN TYPEOF(ei) THEN
         deiir := ei;
         REPEAT i := 1 TO SIZEOF(deiir.inspected_instances);
            IF 'STEP_MERGED_AP_SCHEMA.A3M_EQUIVALENCE_INSPECTION_INSTANCE_REPORT_ITEM' IN TYPEOF(deiir.inspected_instances[i]) THEN
               aeiiri := deiir.inspected_instances[i];
               deiep := aeiiri.inspected_element;
               compared_et := a3ms_get_element_type(deiep.compared_elements);
               comparing_et := a3ms_get_element_type(deiep.comparing_elements);
               IF NOT (compared_et IN cr.compared_element_types) AND (compared_et <> etns_external_representation_item) OR NOT (comparing_et IN cr.comparing_element_types) AND (comparing_et <> etns_external_representation_item) THEN
                  RETURN (FALSE);
               END_IF;
               IF 'STEP_MERGED_AP_SCHEMA.MISMATCH_OF_POINT_CLOUD_AND_RELATED_GEOMETRY' IN TYPEOF(cr) THEN
                  IF ((comparing_et <> etns_external_representation_item) AND (compared_et <> etns_external_representation_item)) AND (compared_et = comparing_et) THEN
                     RETURN (FALSE);
                  END_IF;
               ELSE
                  IF ((comparing_et <> etns_external_representation_item) AND (compared_et <> etns_external_representation_item)) AND (compared_et <> comparing_et) THEN
                     RETURN (FALSE);
                  END_IF;
               END_IF;
            END_IF;
         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