Random Percentage Selection-Kokkugia
From scripting
http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rvb
Option Explicit '------------------------------------------------------------------------------ ' Subroutine: randomSelect ' Purpose: selection of random objects based on percentage ' Author: Roland Snooks | 2007 | www.kokkugia.com '------------------------------------------------------------------------------ Sub randomSelect Dim arrObjects, selPer, arrSuccess(), sCount, i ' input arrObjects = Rhino.GetObjects("pick objects to randomly select from", 0) selPer = Rhino.GetReal("percentage to select", 50) ' loop through each object For i = 0 To UBound(arrObjects) If (Rnd*100) <= selPer Then ' add to array ReDim Preserve arrSuccess(sCount) arrSuccess(sCount) = arrObjects(i) sCount = sCount + 1 End If Next Rhino.SelectObjects arrSuccess End Sub randomSelect