Creating a Profile From a Surface

A profile is an object consisting of elevations along an alignment. Each alignment contains a collection of profiles in its AeccAlignment.Profiles property. The AeccProfiles.AddFromSurface creates a new profile and derives its elevation information from the specified surface along the path of the alignment.

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")