コリドー コレクションには、新しいコリドーを作成するための AeccCorridors.Add メソッドが含まれています。 このメソッドでは、既存の線形、縦断、およびアセンブリに基づいてコリドーが作成されます。
アセンブリ間の測点距離はこの API では設定できないので、AeccCorridors.Add メソッドを呼び出す前にプロパティ ページ ダイアログ ボックスで設定しておく必要があります。
' Assuming oAlignment, oProfile, and oAssembly represent ' valid AeccAlignment, AeccProfile, and AeccAssembly objects. Dim oCorridors As AeccCorridors Set oCorridors = oRoadwayDocument.Corridors Dim oCorridor As AeccCorridor Set oCorridor = oCorridors.Add( _ "Corridor01", _ oAlignment.Name, _ oProfile.Name, _ oAssembly.Name)