g trouble with the end point. I used the PointCoordinates to get the location of the start point but i need to use those to create a new point with the same x and y coordinates but with a new z coordinate.
In psudo code:
Dim box box = Rhino.GetObject("Select objects to move", , , True)
If IsNull(box) Then Exit Sub Dim start: start= Rhino.SurfaceVolumeCentroid(box)
Dim coord: coord= Rhino.PointCoordinate(start)
Randomize
Dim i :i= int((15*RND) -15)
If 15>i<15 Then print("true")
Dim last: last= Rhino.AddPoints(coord(0),coord(1),coord(2)+i)
Call Rhino.MoveObject(box,start,last)
Any ideas?…
Added by Nels Long at 11:21am on December 12, 2010
ve it) rotated by 15, group 3 ( above group 2) rotated 15 degrees relative to group 2.
The distance between the cubes, the number of cubes on each contour must remain as shown in attached gh file.
I understand we can achieve this with series or with shift, however am unable to figure out where to plug it in to achieve the desired result.
Please guide.
Many Thanks…
s (i. e. 5) and circles (i. e. 3). I find the closest points from the given point to the circles and I draw the lines between those (so I hace 15 points, 3 for each point). What I need now is to Grasshopper to select the longest (or the shortest) of each three lines.
Any sugestions..
(attahfed you'll see the Rhino file)
Thanks a lot fellows. Any help I'll apprreciate a lot.…
rner
___________{0;5} <--- This or
0 0.0 <--- This
1 1.0
2 2.0
3 3.0
...
15 15.0
If it is the latter then you can simply add 0.5 to every number using the addition component
EDIT: An alternative would be to start your series at 0.5 instead of 0
S input of [Series] = 0.5…
so you want the 15 biggest numbers, but not in largest to smallest order within themselves? Do you want duplicates or no? Can you post your file with the list?