Rhinoscript – select random objects

'---------------------------------------------------------
'
'	Select random objects by percentage from selection
'	2012.06.02 Chris Daniel Kim
'
'---------------------------------------------------------
arrObjects = Rhino.GetObjects("Pick objects")
dblPercentage = Rhino.GetReal("Set percentage", 50, 0,100)

NumItems = int(dblPercentage*UBound(arrObjects)/100)
Rhino.Print NumItems & " elements will stay."

arrObjectsCopy = arrObjects

Dim i,j,tmp

Randomize 'Shuffle
For i = 1 To UBound(arrObjects) - 1
	' Pick a random element.
	j = Int((UBound(arrObjects) - i + 1) * Rnd + i)
	' Swap.
	tmp = arrObjectsCopy(i)
	arrObjectsCopy(i) = arrObjectsCopy(j)
	arrObjectsCopy(j) = tmp
Next

'Cut the tail
Redim Preserve arrObjectsCopy(NumItems)

Rhino.SelectObjects (arrObjectsCopy)

Tagged with:

Categorised as: Generative design