http://nickpisca.com/BLAST/index.php?title=Random_Percentage_Selection-Kokkugia&feed=atom&action=history
Random Percentage Selection-Kokkugia - Revision history
2024-03-29T06:15:01Z
Revision history for this page on the wiki
MediaWiki 1.28.1
http://nickpisca.com/BLAST/index.php?title=Random_Percentage_Selection-Kokkugia&diff=345&oldid=prev
Nickpisca: 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..."
2017-04-24T20:23:40Z
<p>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..."</p>
<p><b>New page</b></p><div>http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rvb<br />
<br />
https://web-beta.archive.org/web/20101214095847/http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rvb<br />
<br />
<br />
<br />
Option Explicit<br />
'------------------------------------------------------------------------------<br />
' Subroutine: randomSelect<br />
' Purpose: selection of random objects based on percentage<br />
' Author: Roland Snooks | 2007 | www.kokkugia.com<br />
'------------------------------------------------------------------------------<br />
Sub randomSelect<br />
<br />
Dim arrObjects, selPer, arrSuccess(), sCount, i<br />
<br />
' input<br />
arrObjects = Rhino.GetObjects("pick objects to randomly select from", 0)<br />
selPer = Rhino.GetReal("percentage to select", 50) <br />
<br />
' loop through each object<br />
For i = 0 To UBound(arrObjects)<br />
If (Rnd*100) <= selPer Then<br />
' add to array<br />
ReDim Preserve arrSuccess(sCount)<br />
arrSuccess(sCount) = arrObjects(i)<br />
sCount = sCount + 1<br />
End If<br />
Next <br />
<br />
Rhino.SelectObjects arrSuccess<br />
<br />
End Sub <br />
<br />
randomSelect<br />
<br />
<br />
<br />
[[Category:RhinoScript]]</div>
Nickpisca