基線リージョン内の適用されたアセンブリのリストを取得する

基線リージョンで使用されるすべての適用アセンブリのコレクションは、AeccBaselineRegion.AppliedAssemblies プロパティに含まれています。

次の例では、基線リージョン内の各アセンブリの構造に関する情報を表示します。

Dim oAppliedAssembly As AeccAppliedAssembly
For Each oAppliedAssembly In oBaselineRegion.AppliedAssemblies
    Debug.Print "Applied Assembly"
    Dim lCount As Long
    lCount = oAppliedAssembly.GetShapes().Count
    Debug.Print "  Num Shapes: " & lCount
    Debug.Print
    lCount = oAppliedAssembly.GetLinks().Count
    Debug.Print "  Num Links: " & lCount
    lCount = oAppliedAssembly.GetPoints().Count
    Debug.Print "  Num Points: " & lCount
Next

AeccAppliedAssembly オブジェクトには、その基線測点の位置は含まれていません。 代わりに、計算された各ポイントには、その基線測点、オフセット、および標高からその位置を調べるための AeccCalculatedPoint.GetStationOffsetElevationToBaseline というメソッドが含まれています。計算された各シェイプには、そのシェイプを形成するすべてのリンクのコレクションが含まれ、計算された各リンクには、そのリンクを定義するすべてのポイントのコレクションが含まれています。最後に、各シェイプ、リンク、およびポイントには、その要素に適用するすべてのコリドー コードの配列が含まれています。

次の例では、適用アセンブリに含まれるすべての計算されたポイントを取得して、それらの位置を出力します。

Dim oPoint As AeccCalculatedPoint
For Each oPoint In oAppliedAssembly.GetPoints()
   Dim vPos As Variant
   vPos = oPoint.GetStationOffsetElevationToBaseline()
   Debug.Print "Position:  Station = " & vPos(0) & _
     " Offset = " & vPos(1) & " Elevation = " & vPos(2)
Next