Rhino.HatchScale (strObject [, dblScale])
strObject |
Required. String. The identifier of a hatch object. |
dblScale |
Optional. Number. The scale factor. |
Number |
If a scale factor is not specified, the current scale factor if successful. |
Number |
If a scale factor is specified, the previous scale factor 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.HatchScale(strObject) > 1.0 Then
Rhino.HatchScale strObject, 1.0
End If
Next
End If