This script allows the user to rebuild surfaces that fall within a certain point count range. The user is asked to select a series of surfaces and is then prompted to select a minimum and maximum point count as well as a point count for rebuilding if the surface falls within these parameters. Additionally, the ability to override the degree of curvature is included if the value is zero the existing curvature is retained.
Rhino Script
Option Explicit 'Script written by <David Mans> 'Script copyrighted by <Neoarchaic Studio> 'Script version Tuesday, June 09, 2009 3:07:42 PM Call Main() Sub Main() Dim curves, arrValue curves = Rhino.GetObjects("Select Surfaces to Rebuild", 8,, True) If isNull(curves) Then Exit Sub arrValue = Rhino.PropertyListBox(array("(U) Range Minimum", "(U) Range Maximum", "(U) Point Count", "(U) Degree (0=current)", "(V) Range Minimum", "(V) Range Maximum ", "(V) Point Count", "(V) Degree(0=current)"), array(2, 10, 5, 0, 2, 10, 5, 0)) If isNull(arrValue) Then Exit Sub Call Rhino.EnableRedraw(False) Call reBuildRange(curves, array(CInt(arrValue(0)), CInt(arrValue(4))), array(CInt(arrValue(1)), CInt(arrValue(5))), array(CInt(arrValue(2)), CInt(arrValue(6))), array(CInt(arrValue(3)), CInt(arrValue(7)))) Call Rhino.EnableRedraw(True) End Sub Function reBuildRange(arrSurfaces, minVal, maxVal, arrValue, arrDegree) reBuildRange = Null Dim i, tVal(1), tDeg(1),tBln(1) Dim arrOutput() ReDim arrOutput(uBound(arrSurfaces)) For i = 0 To uBound(arrSurfaces) Step 1 'calculate for U then V For j = 0 To 1 Step 1 'find the existing point count, set rebuild to false tVal(j) = Rhino.SurfacePointCount(arrSurfaces(i))(j) tBln(j) = False 'if the point count is in range then set rebuild to true and specify new point count If tVal(j) >= minVal(j) And tVal(j) <= maxVal(j) Then tBln(j) = True tVal(j) = arrValue(j) Else tVal(j) = tVal(j) End If 'if degree is set to zero use existing surface degree, otherwise specify new surface degree If arrDegree(j) <= 0 Then tDeg(j) = Rhino.SurfaceDegree(arrSurfaces(i))(j) Else tDeg(j) = arrDegree(j) End If Next 'if both U and V point counts fall within specified range, rebuild surface If tBln(0) = True And tBln(1) = True Then arrOutput(i) = Rhino.RebuildSurface(arrSurfaces(i), tDeg, tVal) Else arrOutput(i) = arrSurfaces(i) End If Next reBuildRange = arrOutput End Function