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

コリドーのすべての基線のコレクションは、AeccCorridor.Baselines プロパティに含まれています。

次の例では、コリドーの各基線の基礎となる線形と縦断に関する情報を表示します。

Dim oBaseline As AeccBaseline
For Each oBaseline In oCorridor.Baselines
    Debug.Print "Baseline information -"
    Debug.Print "Alignment    : " & oBaseline.Alignment.Name
    Debug.Print "Profile      : " & oBaseline.Profile.Name
    Debug.Print "Start station: " & oBaseline.StartStation
    Debug.Print "End station  : " & oBaseline.EndStation
    Debug.Print
Next