ラベル スタイルは、すべてのスタイル オブジェクトと同様に図面間で共有できます。これを行うには、スタイルを追加する図面を目標にして、スタイルの exportTo メソッドを呼び出します。 次の例では、アクティブな図面から別の開いている図面 Drawing1.dwg に、MajorStationLabelStyles コレクションの最初のスタイルが書き出されます。
Dim oDocument As AeccDocument
Set oDocument = oCivilApp.ActiveDocument
Dim dbDestination As AeccDatabase
Set dbDestination = oCivilApp.Documents("Drawing1.dwg").Database
Call oDocument.AlignmentLabelStyles.MajorStationLabelStyles(0).ExportTo(dbDestination)