ElevationContours Example
Sub Example_ElevationContours()
' This example returns the number of ElevationContours at 100.0,
' in the first surface in the collection.
Dim surf As AeccSurface
Dim surfOut As AeccSurfaceOutputs
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set surfOut = surf.Outputs
surfOut.ElevationContours.Elevation = 100#
MsgBox "The number of ElevationContours at 100.0 in the first Surface is: " & _
surfOut.ElevationContours.Count, vbInformation, "ElevationContours Example"
End Sub