FUNCTION IfcConsecutiveSegments

(* SCHEMA IFC4; *)

FUNCTION IfcConsecutiveSegments
  (Segments : LIST [1:?] OF IfcSegmentIndexSelect)
  : BOOLEAN;

 LOCAL
  Result : BOOLEAN := TRUE;
 END_LOCAL;

  REPEAT i := 1 TO (HIINDEX(Segments)-1);
    IF Segments[i][HIINDEX(Segments[i])] <> Segments[i+1][1] THEN
      BEGIN
        Result := FALSE;
        ESCAPE;
      END;
 END_IF;
  END_REPEAT;

  RETURN (Result);

END_FUNCTION;

Referenced By

Defintion IfcConsecutiveSegments is references by the following definitions:

Definition	Type
IfcIndexedPolyCurve	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2024-07-11T21:39:05-04:00