Rhino.HatchPattern (strObject [, strHatch])
|
strObject |
Required. String. The identifier of a hatch object. |
|
strHatch |
Optional. String. The name of an existing hatch pattern to replace the current hatch pattern. |
|
String |
If a hatch pattern name is not specified, the current hatch pattern if successful. |
|
String |
If a hatch pattern name is specified, the previous current hatch pattern if successful. |
|
Null |
On error. |
Dim arrObjects, strObject
arrObjects = Rhino.NormalObjects
If IsArray(arrObjects) Then
For Each strObject in arrObjects
If Rhino.IsHatch(strObject) And Rhino.HatchPattern(strObject) = "Solid" Then
Rhino.SelectObject strObject
End If
Next
End If