randomMemberSelection [class 20100113]

script below randomly selects members within a group of objects and puts them into another layer.

Option Explicit
'Script written by
'Script copyrighted by
'Script version Wednesday, January 13, 2010 10:58:41 AM

Call Main()
Sub Main()
	Dim allMem
	allMem = rhino.getobjects("select the objects")
	Dim i
	Dim flag
	For i = 0 To UBound (allMem)
		flag = Rnd()
		If flag < 0.25 Then
			Rhino.ObjectLayer allMem(i), "Layer 03"
		End If
	Next
End Sub

Advertisement

~ by onuryucegun on 2010/01/13.