Boundary Example
Sub Example_Boundary()
' This example returns the first point in the Boundary
' 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.Boundary
MsgBox "The first Boundary point for the first WaterShed is: " & coords(0) & ", " & coords(1) & ", " & coords(2) _
, vbInformation, "Boundary Example"
End Sub