縦断スタイルは AeccProfileStyle 型のオブジェクトであり、縦断の外観を定義します。 ドキュメント内のすべての縦断スタイルのコレクションは、AeccDocument.LandProfileStyles プロパティに格納されます。 このスタイルには、AeccDisplayStyle 型のオブジェクトが含まれています。このオブジェクトは、線形の方向を示す矢印の表示と、縦断を構成する線分、線分の拡張、曲線、放物曲線の拡張、対称放物線、および非対称放物線の表示を制御します。 新しい縦断スタイルのプロパティは、ドキュメントの環境設定によって定義されます。
Dim oProfileStyle As AeccProfileStyle
Set oProfileStyle = oDocument.LandProfileStyles
.Add("Profile Style 01")
' For all profiles that use this style, line elements
' will be yellow, curve elements will be shades of green,
' and extensions will be dark grey. No arrows will be shown.
With oProfileStyle
.ArrowDisplayStyleProfile.Visible = False
.LineDisplayStyleProfile.Color = 50 ' yellow
.LineDisplayStyleProfile.Visible = True
.LineExtensionDisplayStyleProfile.Color = 251 ' grey
.LineExtensionDisplayStyleProfile.Visible = True
.CurveDisplayStyleProfile.Color = 80 ' green
.CurveDisplayStyleProfile.Visible = True
.ParabolicCurveExtensionDisplayStyleProfile.Color = 251 ' grey
.ParabolicCurveExtensionDisplayStyleProfile.Visible = True
.SymmetricalParabolaDisplayStyleProfile.Color = 81 ' green
.SymmetricalParabolaDisplayStyleProfile.Visible = True
.AsymmetricalParabolaDisplayStyleProfile.Color = 83 ' green
.AsymmetricalParabolaDisplayStyleProfile.Visible = True
End With
' Properties for 3d display should also be set.