SurfaceName Example
Sub Example_SurfaceName()
' This example uses SurfaceName to displays the name of the surface
' for the first existing ground profile in the first alignment in the collection.
Dim align As AeccAlignment
Dim EGProf As AeccEGProfile
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Set EGProf = align.EGProfiles.Item(0)
MsgBox "The SurfaceName for the first existing ground profile is: " _
& EGProf.SurfaceName, vbInformation, "SurfaceName Example"
End Sub