ID Example
Examples:
l Boundary
Sub Example_Id_Boundary()
' This example returns the Id
' for the first Boundary in the collection.
Dim surf As AeccSurface
Dim bound As AeccBoundary
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set bound = surf.Inputs.Boundaries.Item(0)
MsgBox "The Id for the Boundary is: " & bound.Id _
, vbInformation, "Id Example"
End Sub
Sub Example_Id_BreakLine()
' This example returns the Id
' for the first BreakLine in the collection.
Dim surf As AeccSurface
Dim brkLine As AeccBreakLine
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set brkLine = surf.Inputs.BreakLines.Item(0)
MsgBox "The Id for the BreakLine is: " & brkLine.Id _
, vbInformation, "Id Example"
End Sub
Sub Example_Id_ContourItem()
' This example returns the Id
' for the first ContourItem in the collection.
Dim surf As AeccSurface
Dim cont As AeccContourItem
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set cont = Surf.Inputs.ContourItems.Item(0)
MsgBox "The Id for the ContourItem is: " & cont.Id _
, vbInformation, "Id Example"
End Sub
Sub Example_Id_Watershed()
' This example returns the ID of 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)
MsgBox "The Id for the first WaterShed in the collection is: " & wShed.Id _
, vbInformation, "Id Example"
End Sub