CrossSectionPointCodes Example
Sub Example_CrossSectionPointCodes()
' This example returns the count of point codes for the
' first cross section in the collection.
Dim align As AeccAlignment
Dim xSect As AeccCrossSection
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Set xSect = align.CrossSections.Item(0)
MsgBox "The number of point codes in the first cross section is: " _
& xSect.CrossSectionPointCodes.Count, vbInformation, "CrossSectionPointCodes Example"
End Sub