Rhino.AddHatchPatterns (strFileName [, blnReplace])
|
strFileName |
Required. String. The name of the hatch pattern file to import. |
|
blnReplace |
Optional. Boolean. If hatch pattern names already in the document match hatch pattern names in the pattern definition file, then the existing hatch patterns will be redefined. If omitted, existing hatch patterns will not be redefined (False). |
|
Array |
The names of the newly added hatch patterns if successful. |
|
Null |
If not successful, or on error. |
Dim strFileName, arrPatterns, strPattern
strFileName = Rhino.OpenFileName("Import", "Pattern Files (*.pat)|*.pat||")
If Not IsNull(strFileName) Then
arrPatterns = Rhino.AddHatchPatterns(strFileName)
If IsArray(arrPatterns) Then
For Each strPattern In arrPatterns
Rhino.Print strPattern
Next
End If
End If