線形スタイルを作成する

スタイルは、線形内の方向矢印、曲線、放物線、線分など、線形の作成方法に関するさまざまな側面を定義します。すべての測点スタイルは、AeccDocument.AlignmentStyles コレクションに含まれています。 線形スタイルは、線形オブジェクトによって使用される前にコレクションに追加する必要があります。通常、スタイルは線形が最初に作成されたときにその線形に追加されますが、AeccAlignment.Style プロパティを通して既存の線形に割り当てることもできます。

Dim oAlignmentStyle As AeccAlignmentStyle
Set oAlignmentStyle = oAeccDocument.AlignmentStyles _
  .Add("Sample alignment style")
 
' Do not show direction arrows.
oAlignmentStyle.ArrowDisplayStylePlan.Visible = False 
oAlignmentStyle.ArrowDisplayStyleModel.Visible = False
' Show curves in violet.
oAlignmentStyle.CurveDisplayStylePlan.color = 200 ' violet
oAlignmentStyle.CurveDisplayStyleModel.color = 200 ' violet
' Show straight sections in blue.
oAlignmentStyle.LineDisplayStylePlan.color = 160 ' blue
oAlignmentStyle.LineDisplayStyleModel.color = 160 ' blue
 
' Assign the style to an existing alignment.
oAlignment.Style = oAlignmentStyle.Name