Watersheds Example

Watersheds Example

Sub Example_Watersheds()

    ' This example returns the number of WaterSheds 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

    MsgBox "The number of WaterSheds in the first Surface is: " & surfOut.WaterSheds.Count _

        , vbInformation, "WaterSheds Example"

End Sub