LeftWidth Example

Land Auto

LeftWidth Example

Sub Example_LeftWidth()
    
    ' This example returns the left width for the
    ' first alignment cross section in the collection.
    Dim alignXSects As AeccCrossSectionBlocks
    Dim alignXSect As AeccCrossSectionBlock
    Set alignXSects = AeccApplication.ActiveDocument.CrossSectionBlocks
    Set alignXSect = alignXSects.Item(0)
    
    'Get the station for the first alignment cross section in the collection
    Dim station As String
    station = alignXSect.station
    
    MsgBox "The left width for the alignment cross section at station " & station & " is: " & _
        Format(alignXSect.LeftWidth, "0.00"), vbInformation, "LeftWidth Example"
    
End Sub