Shrinks the underlying untrimmed surfaces near to trimming boundaries. For more details, see the ShrinkTrimmedSrf command in the Rhino help file.
Rhino.ShrinkTrimmedSurface (strSurface)
|
strSurface |
Required. String. The identifier of the surface or polysurface to shrink. |
|
Boolean |
True or False indicating success or failure. |
|
Null |
On error. |
Const rhObjectSurface = 8
Const rhObjectPolysurface = 16
Dim strSurface
strSurface = Rhino.GetObject("Select surface or polysurface to shrink", rhObjectSurface + rhObjectPolysurface)
If Not IsNull(strSurface) Then
Rhino.ShrinkTrimmedSurface strSurface
End If