IfcConsecutiveSegments

此函数验证是否连接段索引列表以表示连续曲线。除最后一段外，任何一段的最后一个索引应与下一段的第一个索引相同。

注：如果最后一段的最后一个索引与第一段的第一个索引相同，则曲线闭合。

IFC4 增加的新函数

EXPRESS Specification

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;