IfcLoopHeadToTail

西北逍遥發表於2024-05-01
OOPAI

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;

##########################