SectionVolume Example

SectionVolume Example

Sub Example_SectionVolume()

    ' This example calculates the volume data for the second cross section in the

    ' cross section collection for the first alignment in the collection.

    Dim aligns As AeccAlignments

    Dim align As AeccAlignment

    Dim xSect As AeccCrossSection

    Set aligns = AeccApplication.ActiveProject.Alignments

    Set align = aligns.Item(0)

    Set xSect = align.CrossSections.Item(0)

    ' Get the cross section station and format it

    Dim station As String

    station = aligns.DoubleToStaFormat(xSect.station)

    ' Define result variables

    Dim cutArea As Double

    Dim cutCentroid As Double

    Dim cutVolume As Double

    Dim fillArea As Double

    Dim fillCentroid As Double

    Dim fillVolume As Double

    ' Get volume data

    xSect.SectionVolume kVolumeByAvgEndArea, 1#, 1#, 1#, cutArea, cutCentroid, cutVolume, fillArea, fillCentroid, fillVolume

    MsgBox "The volume data at station " & station & " is: " & vbCrLf & _

        "Cut Area: " & Format(cutArea, "0.00") & vbCrLf & _

        "Cut Centroid: " & Format(cutCentroid, "0.00") & vbCrLf & _

        "Cut Volume: " & Format(cutVolume, "0.00") & vbCrLf & _

        "Fill Area: " & Format(fillArea, "0.00") & vbCrLf & _

        "Fill Centroid: " & Format(fillCentroid, "0.00") & vbCrLf & _

        "Fill Volume: " & Format(fillVolume, "0.00"), vbInformation, "SectionVolumn Example"

End Sub