サーフェスから縦断を作成する

縦断は、線形上の標高で構成されるオブジェクトです。個々の線形には、その AeccAlignment.Profiles プロパティに縦断のコレクションが含まれています。 AeccProfiles.AddFromSurface は、新しい縦断を作成し、線形パス上の指定されたサーフェスからその標高情報を取得します。

Dim oProfiles As AeccProfiles
Set oProfiles = oAlignment.Profiles
Dim oProfile As AeccProfile
 
' Add a new profile for the alignment "oAlignment" based
' on the elevations of the surface "oSurface".
Set oProfile = oProfiles.AddFromSurface( _
  "Profile01", _
  aeccExistingGround, _
  oProfileStyle.Name, _
  oSurface.Name, _
  oAlignment.StartingStation, _
  oAlignment.EndingStation, _
  "0")