ObjectMeshQuality

Returns or sets the render mesh quality of an object's custom render mesh parameters.

Rhino.ObjectMeshQuality (strObject [, intQuality])

strObject

Required. Object. The identifier of an object that has custom render mesh parameters.

intQuality

Optional. Number. The render mesh quality, either:

Value	Description
0	Jagged and faster. Objects may look jagged, but they should shade and render relatively quickly.
1	Smooth and slower. Objects should look smooth, but they may take a very long time to shade and render.
2 (Default)	Use the document's current render mesh parameters.

Number	If intQuality is not specified, the current render mesh quality if successful.
Number	If intQuality is specified, the previous render mesh quality if successful.
Null	If the object does not have custom render mesh parameters, or on error.

Dim strObject

strObject = Rhino.GetObject("Select object")

If Rhino.ObjectHasMesh(strObject) = True Then

Rhino.ObjectMeshQuality strObject, 1

End If