OverflowPoints Example
Sub Example_OverflowPoints()
' This example returns the first point in the OverflowPoints
' for the first WaterShed in the collection.
Dim surf As AeccSurface
Dim wShed As AeccWaterShed
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set wShed = surf.Outputs.WaterSheds.Item(0)
Dim coords As Variant
coords = wShed.OverflowPoints
MsgBox "The first OverFlowPoint for the first WaterShed is: " & coords(0) & ", " & coords(1) & ", " & coords(2) _
, vbInformation, "OverflowPoints Example"
End Sub