横断を使用する

各横断抽出ラインには、その横断抽出ラインに基づいた横断のコレクションが含まれています。個々の横断は AeccSection 型のオブジェクトによって表され、横断上のサーフェスの統計情報を取得するメソッドを備えています。 横断の初期スタイルは AeccSampledSurfaces.Add メソッドに渡される AeccSectionStyle スタイルによって設定されますが、AeccSection.Style プロパティを使用して各横断のスタイルを個別に設定することもできます。

Dim oSampleLines as AeccSampleLines
Set oSampleLines = oSampleLineGroup.SampleLines
 
' For each sample line, go through all the sections that
' were created based on it.
Dim i As Integer
Dim j As Integer
For i = 0 To oSampleLines.Count - 1
   Dim oSections As AeccSections
   Set oSections = oSampleLines.Item(i).Sections
 
   ' For each section, print its highest elevation and set
   ' some of its properties.
   Dim oSection as AeccSection
   For Each oSection in oSections
      Debug.Print "Max Elevation of "; oSection.Name;
      Debug.Print " is: "; oSection.ElevationMax
       oSection.DataType = aeccSectionDataTIN
      oSection.StaticDynamic = aeccSectionStateDynamic
   Next
Next i