Verifies that a hatch pattern is the current hatch pattern.
Rhino.IsHatchPatternCurrent (strHatch)
|
strHatch |
Required. String. The name of an existing hatch pattern. |
|
True |
If successful. |
|
False |
If not successful. |
|
Null |
On error. |
Dim strHatch
strHatch = Rhino.GetString("Hatch pattern name")
If Rhino.IsHatchPattern(strHatch) Then
If Rhino.IsHatchPatternCurrent(strHatch) Then
Rhino.Print "The hatch pattern is current."
Else
Rhino.Print "The hatch pattern is not current."
End If
Else
Rhino.Print "The hatch pattern does not exist."
End If