ElevationXDRef Example

Land Auto

previous page next page

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

previous page start next page