FUNCTION unique_link_usage

(* SCHEMA step_merged_ap_schema; *)

-- IN AP214
FUNCTION unique_link_usage
      (link : kinematic_link ) : BOOLEAN;
   LOCAL
      mechs : SET OF mechanism;
      joints : SET OF kinematic_joint;
      struct : kinematic_structure;
   END_LOCAL;
      joints := bag_to_set(USEDIN(link, 'STEP_MERGED_AP_SCHEMA.KINEMATIC_JOINT.FIRST_LINK') + USEDIN(link, 'STEP_MERGED_AP_SCHEMA.KINEMATIC_JOINT.SECOND_LINK'));
      struct := joints[1].structure;
      REPEAT i := 2 TO SIZEOF(joints);
         IF joints[i].structure :<>: struct THEN
            RETURN (FALSE);
         END_IF;
      END_REPEAT;
      mechs := bag_to_set(USEDIN(struct, 'STEP_MERGED_AP_SCHEMA.MECHANISM.STRUCTURE_DEFINITION'));
      IF SIZEOF(mechs) <> 1 THEN
         RETURN (FALSE);
      END_IF;
      RETURN (TRUE);
END_FUNCTION;

Referenced By

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00