基線の計画線のリストを取得する

主基線に沿って配置されるすべての計画線のセットは、AeccBaselineFeatureLines 型のオブジェクトである AeccBaseline.MainBaselineFeatureLines プロパティに保持されます。このオブジェクトには、すべての計画線に関する情報(使用されるすべてのコードなど)が含まれています。その AeccBaselineFeatureLines.FeatureLinesCol プロパティは、計画線コレクションのコレクションです。 各計画線(AeccFeatureLine 型のオブジェクト)には、その計画線の作成に使用するコード文字列とすべての計画線ポイントのコレクションが含まれています。

次の例では、すべての計画線コレクションと主基線に沿って配置されている計画線を表示します。また、各計画線のコードとすべてのポイント位置も表示します。

Dim oBaselineFeatureLines As AeccBaselineFeatureLines
Set oBaselineFeatureLines = oBaseline.MainBaselineFeatureLines
 
Dim oFeatureLinesCol As AeccFeatureLinesCol
Set oFeatureLinesCol = oBaselineFeatureLines.FeatureLinesCol
Debug.Print "# line collections:" & oFeatureLinesCol.Count
 
Dim oFeatureLines As AeccFeatureLines
For Each oFeatureLines In oFeatureLinesCol
   Debug.Print "Feature Line collection"
   Debug.Print "# lines in collection: " & oFeatureLines.Count
   Dim oFeatureLine As AeccFeatureLine
   For Each oFeatureLine In oFeatureLines
      Debug.Print
      Debug.Print "Feature Line code: " & oFeatureLine.CodeName
 
      ' Print out all point locations of the
      ' feature line.
      Dim oFeatureLinePoint As AeccFeatureLinePoint
      For Each oFeatureLinePoint In oFeatureLine.FeatureLinePoints
         Dim X As Double
         Dim Y As Double
         Dim Z As Double
         X = oFeatureLinePoint.XYZ(0)
         Y = oFeatureLinePoint.XYZ(1)
         Z = oFeatureLinePoint.XYZ(2)
         Debug.Print "Point: " & X & ", " & Y & ", " & Z
      Next ' Points in a feature line
   Next ' Feature lines
Next ' Collections of feature lines