Superelevation

Just some sample snippets of code to add superelevation to an alignment via VBA:

Dim oAlignment As AeccAlignment

Dim oSuperElevationData As AeccSuperElevationData
Set oSuperElevationData = oAlignment.SuperElevationData

Dim oSuperElevDataElem As AeccSuperElevationDataElem
Dim dSta As Double
dSta = 625
oSuperElevData.Add dSta, oSuperElevDataElem

oSuperElevDataElem.SegmentCrossSlope(aeccSuperLeftInLaneCrossSlope) = 0.05
oSuperElevDataElem.SegmentCrossSlope(aeccSuperLeftInShoulderCrossSlope) = 0.06
oSuperElevDataElem.SegmentCrossSlope(aeccSuperLeftOutLaneCrossSlope) = 0.07
oSuperElevDataElem.SegmentCrossSlope(aeccSuperLeftOutShoulderCrossSlope) = 0.08
oSuperElevDataElem.SegmentCrossSlope(aeccSuperRightInLaneCrossSlope) = 0.09
oSuperElevDataElem.SegmentCrossSlope(aeccSuperRightInShoulderCrossSlope) = 0.1
oSuperElevDataElem.SegmentCrossSlope(aeccSuperRightOutLaneCrossSlope) = 0.11
oSuperElevDataElem.SegmentCrossSlope(aeccSuperRightOutShoulderCrossSlope) = 0.12