IfcLoopHeadToTail
函数定义
如果对于输入边循环的边，每条边的结束顶点与其后续边的开始顶点相同，则此函数返回TRUE。
IFC2x2中的新功能
EXPRESS Specification
FUNCTION IfcLoopHeadToTail
(ALoop : IfcEdgeLoop) : LOGICAL;
LOCAL
N : INTEGER;
P : LOGICAL := TRUE;
END_LOCAL;
N := SIZEOF (ALoop.EdgeList);
REPEAT i := 2 TO N;
P := P AND (ALoop.EdgeList[i-1].EdgeEnd :=:
ALoop.EdgeList[i].EdgeStart);
END_REPEAT;
RETURN (P);
END_FUNCTION;
##########################
标签：FUNCTION,END,ALoop,IfcLoopHeadToTail,EdgeList,TRUE From： https://www.cnblogs.com/herd/p/18165238