Random Percentage Selection-Kokkugia

From scripting
Revision as of 20:23, 24 April 2017 by Nickpisca (talk | contribs) (Created page with "http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rvb https://web-beta.archive.org/web/20101214095847/http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rv...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rvb

https://web-beta.archive.org/web/20101214095847/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