Smooths a mesh object by averaging the positions of vertices. For more information, see the Rhino help file for the Smooth command.
Rhino.SmoothMesh (strObject, dblFactor [, blnXSmooth [, blnYSmooth [, blnZSmooth [, blnFixBoundaries [, intCoordinateSystem [, arrPlane]]]]]])
| strObject | Required. String. The object's identifier. | 
| dblFactor | Required. Number. The smoothing factor, which controls how much vertices move towards the average of the neighboring points. | 
| blnXSmooth | Optional. Boolean. When True (Default) control points move in X-axis direction. | 
| blnYSmooth | Optional. Boolean. When True (Default) control points move in Y-axis direction. | 
| blnZSmooth | Optional. Boolean. When True (Default) control points move in Z-axis direction. | 
| blnFixBoundaries | Optional. Boolean. When True (Default) the curve ends do not move. | 
| intCoordinateSystem | Optional. Number. The current coordinate system, where 0 = World (Default), 1 = Construction plane, 2 = Object. | 
| arrPlane | Optional. Plane. If intCoordinateSystem = 1, then the construction plane. | 
| Boolean | True if successful, False otherwise. | 
| Null | On error. | 
Const RH_MESH = 32
Dim strObject
strObject = Rhino.GetObject("Select a mesh to smooth", RH_MESH)
If Rhino.IsMesh(strObject) Then
Call Rhino.SmoothMesh(strObject, 0.2)
End If