OverrideElevation Example

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