適用されたサブアセンブリの情報を取得する

適用されたサブアセンブリは、一連の計算されたシェイプ、リンク、およびポイントで構成され、それらはそれぞれ AeccCalculatedShape、AeccCalculatedLink、および AeccCalculatedPoint 型のオブジェクトによって表されます。

Dim S, O, E As Double
With oAppliedSubassembly
    S = .OriginStationOffsetElevationToBaseline(0)
    O = .OriginStationOffsetElevationToBaseline(1)
    E = .OriginStationOffsetElevationToBaseline(2)
End With
Debug.Print "Station to baseline   : " & S
Debug.Print "Offset to baseline    : " & O
Debug.Print "Elevation to baseline : " & E

また、適用されたサブアセンブリには、サブアセンブリ データベース内の原型サブアセンブリ(AeccSubassembly 型)の参照も含まれています。

' Get information about the subassembly template.
Dim oSubassembly As AeccSubassembly
Set oSubassembly = oAppliedSubassembly.SubassemblyDbEntity
Debug.Print "Subassembly name: " & oSubassembly.Name