ElevationOverride Example

ElevationOverride Example

Sub Example_ElevationOverride()

    ' This function gets the Elevation for the first PointGroup

    ' in the collection.

    Dim pntGrp As AeccPointGroup

    Set pntGrp = AeccApplication.ActiveProject.PointGroups.Item(0)

    If pntGrp.ElevationOverride = True Then

        MsgBox "The ElevationOverride for the first PointGroup is turned on.", _

            vbInformation, "ElevationOverride Example"

    Else

        MsgBox "The ElevationOverride for the first PointGroup is turned off.", _

            vbInformation, "ElevationOverride Example"

    End If

End Sub