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