Rhino.HatchPatternNames ()
None.
Array |
An array of hatch pattern names if successful. |
Null |
If not successful, or on error. |
Dim arrPatterns, strPattern, strDesc
arrPatterns = Rhino.HatchPatternNames
For Each strPattern In arrPatterns
strDesc = Rhino.HatchPatternDescription(strPattern)
If IsNull(strDesc) Then
Rhino.Print strPattern
Else
Rhino.Print strPattern & " - " & strDesc
End If
Next