FUNCTION consistent_geometric_reference

(* SCHEMA structural_analysis_design; *)

  FUNCTION consistent_geometric_reference(
               aspect: GENERIC;
               item: geometric_representation_item
      ): BOOLEAN;

    LOCAL
      item_type   : SET [1:?] OF STRING;
      feacr       : STRING;
      srrs        : STRING;
      aspect_type : SET [1:?] OF STRING;
    END_LOCAL;
    srrs := 'STRUCTURAL_ANALYSIS_DESIGN.';
    feacr := 'STRUCTURAL_ANALYSIS_DESIGN.';
    aspect_type := TYPEOF(aspect);
    item_type := TYPEOF(item);
    IF 'STRUCTURAL_ANALYSIS_DESIGN.SOLID_MODEL' IN item_type THEN
      IF (srrs + 'ELEMENT_VOLUME') IN aspect_type THEN
        RETURN(TRUE);
      END_IF;
    END_IF;
    IF ('STRUCTURAL_ANALYSIS_DESIGN.SURFACE' IN item_type) OR (
        'STRUCTURAL_ANALYSIS_DESIGN.FACE_SURFACE' IN item_type) THEN
      IF SIZEOF([feacr + 'VOLUME_3D_FACE',feacr + 'VOLUME_2D_FACE',feacr +
           'SURFACE_3D_FACE',feacr + 'SURFACE_2D_FACE'] * aspect_type) = 1
           THEN
        RETURN(TRUE);
      END_IF;
    END_IF;
    IF ('STRUCTURAL_ANALYSIS_DESIGN.CURVE' IN item_type) OR (
        'STRUCTURAL_ANALYSIS_DESIGN.EDGE_CURVE' IN item_type) THEN
      IF SIZEOF([feacr + 'VOLUME_3D_EDGE',feacr + 'VOLUME_2D_EDGE',feacr +
           'SURFACE_3D_EDGE',feacr + 'SURFACE_2D_EDGE',srrs + 'CURVE_EDGE'] 
          * aspect_type) = 1 THEN
        RETURN(TRUE);
      END_IF;
    END_IF;
    RETURN(FALSE);

  END_FUNCTION; -- consistent_geometric_reference

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:15:08-04:00