Read-Write

Pattern As String

Sets or returns a hatch pattern name or expression.

If you are using a range table to provide hatch patterns conditionally, use TextDef.TextValue to reference the range table by supplying a range expression as an argument. For more information, click .

The following example consists of two procedures that you call from the sample code for altering queried objects. To go to the sample code, click . The first procedure sets a hatch pattern to ANSI36, and the second changes the pattern to ANSI38. Add a call to chghat1 just before the call to qry.Define in the sample code. Run the sample code and look at the Actrix drawing that displays the water bodies with the ANSI36 hatch pattern. Delete the call to chghat1 from the sample code, and add a call to chghat2. Rerun the sample code.

Sub chghat1(prj As Project, altls As AlterLines)

 

Dim i As Integer

Dim altl As Variant

Dim hatdf As HatchDef

Set hatdf = altls.AddHatchDef("ANSI36", _

"600", _ 

"90", _ 

"WATER", _ 

"CYAN") 

End Sub

 

Sub chghat2(prj As Project, altls As AlterLines)

 

Dim i As Integer

Dim altl As Variant

Dim hatdf As HatchDef

For i = 0 To prj.CurrQuery.AlterProp.Count - 1

Set altl = altls.Item(i) 

If altl.Property = kAlterationHatch Then 

Set hatdf = altls.Item(i) 

hatdf.Pattern = "ANSI38" 

End If 

Next i

 

End Sub