VerticalScale Example

Examples:

l CrossSectionBlock (Civil Engineering Feature)

l ProfileBlock (Civil Engineering Feature)

Sub Example_VerticalScale_CrossSectionBlock()

    ' This example returns the vertical scale 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 vertical scale for the alignment cross section at station " & station & " is: " & _

        Format(alignXSect.VerticalScale, "0.00"), vbInformation, "VerticalScale Example"

End Sub

Sub Example_VerticalScale_DatabasePreferences()

    ' This example returns the vertical scale setting for the current drawing.

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.Preferences

    MsgBox "The current vertical scale for this drawing is: " & dbPref.VerticalScale, _

        vbInformation, "VerticalScale Example"

End Sub

Sub Example_VerticalScale_ProfileBlock()

    ' This example returns the vertical scale for the first alignment profile

    ' in the collection.

    Dim alignProf As AeccProfileBlock

    Set alignProf = AeccApplication.ActiveDocument.ProfileBlocks.Item(0)

    MsgBox "The vertical scale for the first alignment profile is: " & _

        Format(alignProf.VerticalScale, "0.00"), vbInformation, "VerticalScale Example"

End Sub