設計速度を指定する

線形の全長にわたって設計速度を割り当てて、その線形に基づいた将来の道路設計で使用できます。線形の速度のコレクションは、AeccAlignment.DesignSpeeds プロパティに含まれます。 コレクションの各項目は、AeccDesignSpeed 型のオブジェクトです。これには、未処理測点値、その測点から次の設計速度または線形の終点までの速度、およびオプションの文字列コマンドが含まれます。

Dim oDesignSpeed As AeccDesignSpeed
' Starting at station 0 + 00.00
Set oDesignSpeed = oAlignment.DesignSpeeds.Add(0#)
oDesignSpeed.Value = 45
oDesignSpeed.Comment = "Straightaway"
 
' Starting at station 4 + 30.00
Set oDesignSpeed = oAlignment.DesignSpeeds.Add(430#)
oDesignSpeed.Value = 30
oDesignSpeed.Comment = "Start of curve"
 
' Starting at station 14 + 27.131 to the end.
Set oDesignSpeed = oAlignment.DesignSpeeds.Add(1427.131)
oDesignSpeed.Value = 35
oDesignSpeed.Comment = "End of curve"
' Make Alignment speed-based
oAlignment.DesignSpeedBased = True