OverrideElevation Example
Sub Example_OverrideElevation()
' This example returns the OverrideElevation for the first CogoPoint in the collection.
' This example assumes the first point in the collection is in a
' Point Group named "Example Group".
Dim cogoPnts As AeccCogoPoints
Dim cogoPnt As AeccCogoPoint
Set cogoPnts = AeccApplication.ActiveProject.CogoPoints
' Filter CogoPoints collection on GroupName
cogoPnts.GroupName = "Example Group"
Set cogoPnt = cogoPnts.Item(0)
MsgBox "The OverrideElevation for the first CogoPoint in the collection is: " & _
cogoPnt.OverrideElevation, vbInformation, "OverrideElevation Example"
End Sub