Getting Applied Subassembly Information

An applied subassembly consists of a series of calculated shapes, links, and points, represented by objects of type AeccCalculatedShape, AeccCalculatedLink, and AeccCalculatedPoint respectivly.

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

Applied subassemblies also contain a reference to the archetype subassembly (of type AeccSubassembly) in the subassembly database.

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