(* SCHEMA step_merged_ap_schema; *)
-- IN AP238 STEP-NC/AP242 RULE unique_datum_system FOR (product_definition_shape, datum_system ); LOCAL ds : SET OF datum_system := []; sa : SET OF shape_aspect := []; pass : BOOLEAN := TRUE; END_LOCAL; REPEAT ii := 1 TO SIZEOF(product_definition_shape) WHILE pass; sa := bag_to_set(USEDIN(product_definition_shape[ii], 'STEP_MERGED_AP_SCHEMA.SHAPE_ASPECT.OF_SHAPE')); REPEAT iii := 1 TO SIZEOF(sa) WHILE pass; ds := QUERY (ds <* sa| 'STEP_MERGED_AP_SCHEMA.DATUM_SYSTEM' IN TYPEOF(ds)); REPEAT i := 1 TO SIZEOF(ds); REPEAT j := 1 TO SIZEOF(ds); IF i <> j THEN IF ds[i]\datum_system.constituents = ds[j]\datum_system.constituents THEN pass := FALSE; END_IF; END_IF; END_REPEAT; END_REPEAT; END_REPEAT; END_REPEAT; WHERE WR1: pass; END_RULE;
Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00