ElevationXDRef Example

ElevationXDRef Example

Sub Example_ElevationXDRef()

    ' This function gets the ElevationXDRef for the first PointGroup

    ' in the collection.

    Dim pntGrp As AeccPointGroup

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

    MsgBox "The ElevationXDRef for the first PointGroup is: " & _

        pntGrp.ElevationXDRef, vbInformation, "ElevationXDRef Example"

End Sub