Adds a hatch alteration to the property alteration definition.

AddHatchDef( _
 Pattern As String, _
 Scale As String, _
 Rotation As String, _
 Layer As String, _
 Color As String _
 ) As HatchDef

Returns a hatch definition.

Pattern

Name or expression of the hatch pattern

Scale

Hatch scale or expression

Rotation

Hatch rotation or expression

Layer

Layer or expression where the hatch is drawn.

Color

Hatch color or representative expression

The following example builds on sample code for altering queried objects. For more information, click . Add the following code to the example just before qry.AlterTag = True. This code adds a solid, cyan hatch pattern to objects on the WATER layer.

Dim hatdf As HatchDef

Set hatdf = altls.AddHatchDef("Solid", "600", "0", "WATER", "CYAN")