PointCodeDescription Example

Land Auto

PointCodeDecription Example

Sub Example_PointCodeDescription()
    
    ' ' This example returns the point code description for the first cross
    ' ' section in the collection.
    Dim align As AeccAlignment
    Dim xSects As AeccCrossSections
    Set align = AeccApplication.ActiveProject.Alignments.Item(0)
    Set xSects = align.CrossSections
    
    ' 'Get the the description for point code 1
    Dim desc As String
    desc = xSects.PointCodeDescription(1)
    
    MsgBox "The description for point code 1 is: " & _
    "Description: " & desc, vbInformation, "PointCodeDescription Example"
    
End Sub