コリドーのリストを取得する

ドキュメントに含まれるすべてのコリドーのコレクションは、AeccRoadwayDocument.Corridors プロパティに保持されます。

次の例では、ドキュメント内の各コリドーの名前と三角形の辺の最大長を表示します。

Dim oCorridors As AeccCorridors
Set oCorridors = oRoadwayDocument.Corridors
 
Dim oCorridor As AeccCorridor
For Each oCorridor In oCorridors
    Debug.Print "Corridor: " & oCorridor.Name
    Debug.Print oCorridor.MaximumTriangleSideLength 
Next