横断抽出ラインを作成する

横断抽出ラインは線形上に配置される線分セグメントで、通常は線形パスに垂直に、および一定間隔に配置されます。横断抽出ラインは、横断ビューで参照できるサーフェス横断の位置と方向を表します。

横断抽出ラインは、グループで作成されます。線形のすべての横断抽出ライン グループは、AeccAlignment.SampleLineGroups コレクションに格納されます。 このコレクションの Add メソッドは新しい空のグループを作成し、パラメータとしてグループの名前、グループの作成先のレイヤ、[] のスタイル オブジェクト、横断抽出ラインのスタイル オブジェクト、およびラベル スタイル オブジェクトを取ります。

' Get all the styles we will need for our sample line object.
' We will use whatever default styles the document contains.
Dim oGroupPlotStyle As AeccGroupPlotStyle
Set oGroupPlotStyle = oDocument.GroupPlotStyles.Item(0)
 
Dim oSampleLineStyle As AeccSampleLineStyle
Set oSampleLineStyle = oDocument.SampleLineStyles.Item(0)
 
Dim oSampleLineLabelStyle As AeccLabelStyle
Set oSampleLineLabelStyle = oDocument _
  .SampleLineLabelStyles.Item(0)
 
Dim oSampleLineGroups As AeccSampleLineGroups
Set oSampleLineGroups = oAlignment.SampleLineGroups
 
' Create a sample line group using the above styles and drawn
' to layer "0".
Dim sLayerName as String
sLayerName = "0"
Dim oSampleLineGroup As AeccSampleLineGroup
Set oSampleLineGroup = oSampleLineGroups.Add( _
  "Example Sample Line Group", _
  sLayerName, _
  oGroupPlotStyle, _
  oSampleLineStyle, _
  oSampleLineLabelStyle)