ElevationContours Example

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