縦断に関する一般情報を表示するデータ帯は、AeccBandProfileDataStyle 型で定義します。 このデータ帯内の情報は、基本グラフの主グリッド マークと副グリッド マーク、線形ブレーキ測点の変化点、および垂直ジオメトリまたは水平ジオメトリの変化点に表示できます。
各ラベルは、次のプロパティ フィールドを使用できます。
| AeccBandLabelStyle 文字コンポーネントで使用できる有効なプロパティ フィールド |
|---|
| <[Station Value(Uft|FS|P2|RN|AP|Sn|TP|B2|EN|W0|OF)]> |
| <[Raw Station(Uft|FS|P2|RN|AP|Sn|TP|B2|EN|W0|OF)]> |
| <[Profile1 Elevation(Uft|P2|RN|AP|Sn|OF)]> |
| <[Profile2 Elevation(Uft|P3|RN|AP|Sn|OF)]> |
| <[Profile1 Elevation Minus Profile2 Elevation(Uft|P3|RN|AP|Sn|OF)]> |
| <[Profile2 Elevation Minus Profile1 Elevation(Uft|P3|RN|AP|Sn|OF)]> |
次の例は、2 つの異なる位置に横断標高データを表示するデータ帯スタイルの作成を示しています。
Dim oBandProfileDataStyle As AeccBandProfileDataStyle
Set oBandProfileDataStyle = oDocument.ProfileViewBandStyles _
.ProfileDataBandStyles.Add("Profile Band")
With oBandProfileDataStyle
' Add ticks and labels to each horizontal
' geography location.
.HGPLabelDisplayStylePlan.Visible = True
.HGPTickDisplayStylePlan.Color = 10 ' red
.HGPTickDisplayStylePlan.Visible = True
.HGPLabelStyle.TextComponents.Item(0).Contents = _
"<[Station Value(Uft|FS|P0|RN|AP|Sn|TP|B2|EN|W0|OF)]>"
.HGPLabelStyle.TextComponents.Item(0).Color = 11 ' red
.HGPLabelStyle.TextComponents.Item(0).Visibility = True
' 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 Info"
.TitleStyle.TextHeight = 1.0
.TitleStyle.TextBoxWidth = 2.0
' Hide the rest of the information locations.
.VGPLabelStyle.TextComponents.Item(0).Visibility = False
.MajorIncrementLabelStyle.TextComponents.Item(0). _
Visibility = False
.MajorStationLabelDisplayStylePlan.Visible = False
.MajorTickDisplayStylePlan.Visible = False
.MinorIncrementLabelStyle.TextComponents.Item(0). _
Visibility = False
.MinorStationLabelDisplayStylePlan.Visible = False
.MinorTickDisplayStylePlan.Visible = False
.VGPLabelDisplayStylePlan.Visible = False
.VGPTickDisplayStylePlan.Visible = False
.StationEquationLabelStyle.TextComponents.Item(0). _
Visibility = False
.StationEquationLabelDisplayStylePlan.Visible = True
.StationEquationTickDisplayStylePlan.Visible = True
End With
このスタイルは、次のようなデータ帯を生成します。
