シェイプ スタイル

すべてのシェイプ スタイル オブジェクトのコレクションは、AeccRoadwayDocument.ShapeStyles プロパティに存在します。 このスタイル オブジェクトには、アセンブリとサブアセンブリのシェイプの外観(輪郭と内部領域を含む)を調整するためのプロパティが含まれています。

注:

シェイプ スタイル オブジェクトはシェイプ オブジェクトと一緒に使用できませんが、代わりに道路スタイル セットと一緒に使用できます。

' Create a new shape style and change it so that it has
' an orange border and a yellow hatch fill.
Dim oShapeStyle As AeccRoadwayShapeStyle
Set oShapeStyle = oRoadwayDocument.ShapeStyles.Add("Style3")
With oShapeStyle
    .AreaFillDisplayStylePlan.color = 50 ' yellow
    .AreaFillDisplayStylePlan.Visible = True
    .AreaFillHatchDisplayStylePlan.HatchType = aeccHatchPreDefined
    .AreaFillHatchDisplayStylePlan.Pattern = "LINE"
    .BorderDisplayStylePlan.color = 30 ' orange
    .BorderDisplayStylePlan.Visible = True
End With