横断勾配摺り付けデータ帯スタイル

AeccBandProfileDataStyle データ帯は、横断勾配摺り付けに関する情報を表示します。 また、このデータ帯は、横断勾配摺り付け要素の勾配を線分として表示し、勾配量を表す中心線から上または下の距離を表示できます。このような方法で表される横断勾配摺り付け要素は次のとおりです。

データ帯の中心に参照ラインを表示して、ユーザが要素線分を解釈しやすいようにできます。

また、データ帯は、線形の横断勾配摺り付けの変化点にティック マークと文字ラベルを表示できます。データ帯では、次のものにマークできます。

文字ラベルのラベル スタイルでは、次のプロパティ フィールドを使用できます。

AeccBandLabelStyle 文字コンポーネントで使用できる有効なプロパティ フィールド
<[Station Value(Uft|FS|P2|RN|AP|Sn|TP|B2|EN|W0|OF)]>
<[Superelevation critical point text(CP)]>
<[Cross slope - Left outside pavement(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Left inside pavement(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Right outside pavement(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Right inside pavement(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Left outside shoulder(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Left inside shoulder(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Right outside shoulder(FP|P2|RN|AP|Sn|OF)]>
<[Cross slope - Right inside shoulder(FP|P2|RN|AP|Sn|OF)]>

次の例では、路肩の外側の勾配を(右路肩は黄色、左路肩は青で)表示するデータ帯 スタイルを作成します。また、グレーの参照ラインも追加します。

Dim oBandSuperElevationStyle As AeccBandSuperElevationStyle
Set oBandSuperElevationStyle = oDocument.ProfileViewBandStyles _
  .SuperElevationBandStyles.Add("Superelevation Band")
 
 
With oBandSuperElevationStyle
   ' Add graphical display of the slope of the left and right
   ' outside shoulders.  If the line is above the centerline, 
   ' then the slope is positive.
   .LeftOutsideShoulderLineDisplayStylePlan.Visible = True
   .LeftOutsideShoulderLineDisplayStylePlan.color = 151
   ' Color 151 = pale blue
   .RightOutsideShoulderLineDisplayStylePlan.Visible = True
   .RightOutsideShoulderLineDisplayStylePlan.color = 51
   ' Color 51 = pale yellow
 
   ' Add a reference line through the center of the data band.
   .ReferenceLineDisplayStylePlan.Visible = True
   .ReferenceLineDisplayStylePlan.color = 252 ' gray
 
   ' Modify how the title is displayed.
   .TitleBoxDisplayStylePlan.color = 10 ' red
   .TitleBoxDisplayStylePlan.Linetype = "DOT"
   .TitleBoxDisplayStylePlan.Visible = True
   .TitleBoxTextDisplayStylePlan.color = 80 ' green
   .TitleBoxTextDisplayStylePlan.Visible = True
   .TitleStyle.Text = "Profile Geometry"
   .TitleStyle.TextHeight = 0.0125
   .TitleStyle.TextBoxWidth = 0.21
 
   ' Hide the rest of the information locations and
   ' graphical displays.
   .FullSuperLabelDisplayStylePlan.Visible = False
   .FullSuperTickDisplayStylePlan.Visible = False
   .LeftInsidePavementLineDisplayStylePlan.Visible = False
   .LeftInsideShoulderLineDisplayStylePlan.Visible = False
   .LeftOutsidePavementLineDisplayStylePlan.Visible = False
   .LevelCrownLabelDisplayStylePlan.Visible = False
   .LevelCrownTickDisplayStylePlan.Visible = False
   .NormalCrownLabelDisplayStylePlan.Visible = False
   .NormalCrownTickDisplayStylePlan.Visible = False
   .ReverseCrownLabelDisplayStylePlan.Visible = False
   .ReverseCrownTickDisplayStylePlan.Visible = False
   .RightInsidePavementLineDisplayStylePlan.Visible = False
   .RightInsideShoulderLineDisplayStylePlan.Visible = False
   .RightOutsidePavementLineDisplayStylePlan.Visible = False
   .ShoulderBreakOverLabelDisplayStylePlan.Visible = False
   .ShoulderBreakOverTickDisplayStylePlan.Visible = False
   .TransitionSegmentLabelDisplayStylePlan.Visible = False
End With

このスタイルは、次のようなデータ帯を生成します。

親トピック: データ帯スタイルを定義する