適用されたアセンブリの外観は、道路スタイル セットによって定義されます。道路スタイル セットは、指定されたコード文字列を使用するシェイプとリンクに割り当てられたシェイプ スタイルとリンク スタイルのセットです。すべてのスタイル セットのコレクションは、AeccRoadwayDocument.StyleSets プロパティに含まれます。 スタイル セット自体は、AeccRoadwayStyleSetItem オブジェクトのコレクションです。 各スタイル セット項目は、既存のシェイプ スタイル オブジェクトまたはリンク シェイプ オブジェクトのいずれかを参照する AeccRoadwayStyleSetItem.CodeStyle プロパティを持ちます。 新しいスタイル セット項目をスタイル セットに追加するには、AeccRoadwayStyleSet.Addメソッドを使用します。このメソッドは、スタイル オブジェクトの種類、コード文字列、およびスタイル オブジェクトそのものを記述するパラメータを取ります。 使用する特定のスタイル セットは、AeccRoadwayStyleSet.InitAsCurrent メソッドで選択します。
' Create a new style set using our previously created styles. Dim oStyleSet As AeccRoadwayStyleSet Set oStyleSet = oRoadwayDocument.StyleSets.Add("Style Set 01") Call oStyleSet.Add( _ aeccLinkType, _ "TOP", _ g_oRoadwayDocument.LinkStyles.Item("Style2")) Call oStyleSet.Add( _ aeccShapeType, _ "BASE", _ oRoadwayDocument.ShapeStyles.Item("Style3")) ' Assign our new style set as the style set in current use. oStyleSet.InitAsCurrent