{2:2} {2:3}
Each branch has 10 points. I'd like all the points in {0} to draw lines to each sub-branch {0,#}, {1} to {1:#}, etc. I am simply confounded, how would this be accomplished?
Thanks!
…
D modelling for Architecture.
Videos of this tutorial Series:
1. How to do CONCEPT DESIGN 3D Modelling in Rhino (Part 1 of 3); Beginner
https://www.youtube.com/watch?v=ZbMPZ...
2. How to do CONCEPT DESIGN: Material Textures in Rhino (Part 2 of 3)
https://www.youtube.com/watch?v=h8XRw...
3. How to do CONCEPT DESIGN -Create 3D Views in Rhino (Part 3 of 3);
https://www.youtube.com/watch?v=1RZMR...
Feel Free to email us at Rhino4Arch@gmail.com for any help or information.…
tion and the points array that follow. I was used to the Rhino.EvaluateSurface(Strobj, ArrParam) to pick pints on a surface.
Then I understand that points are identified with var pt and added with function pt_list.Add(pt) . But can't understand the whole syntax. This code is supposed to create hexagons!
Dim lines As New List(Of OnPolyline)()
'Point Culling
Dim ptArr As New On3dPointArray()
Dim pt_list As New List(Of On3dPoint)
For i As Int32 = 0 To u - 2 Step 2
For j As Int32 = 0 To v - 3 Step 4
ptArr.Append(arrPt(i + 1, j).x, arrPt(i + 1, j).y, arrPt(i + 1, j).z)
ptArr.Append(arrPt(i + 2, j + 1).x, arrPt(i + 2, j + 1).y, arrPt(i + 2, j + 1).z)
ptArr.Append(arrPt(i + 2, j + 2).x, arrPt(i + 2, j + 2).y, arrPt(i + 2, j + 2).z)
ptArr.Append(arrPt(i + 1, j + 3).x, arrPt(i + 1, j + 3).y, arrPt(i + 1, j + 3).z)
ptArr.Append(arrPt(i, j + 2).x, arrPt(i, j + 2).y, arrPt(i, j + 2).z)
ptArr.Append(arrPt(i, j + 1).x, arrPt(i, j + 1).y, arrPt(i, j + 1).z)
ptArr.Append(arrPt(i + 1, j).x, arrPt(i + 1, j).y, arrPt(i + 1, j).z)
Dim pline As New OnPolyline(ptArr)
lines.Add(pline)
Dim pt As New On3dPoint((arrPt(i + 1, j).x + arrPt(i + 1, j + 3).x) / 2, (arrPt(i + 1, j).y + arrPt(i + 1, j + 3).y) / 2, (arrPt(i + 1, j).z + arrPt(i + 1, j + 3).z) / 2)
pt_list.Add(pt)
ptArr.destroy
Next
Next…
Added by Jon Malkovich at 7:16pm on November 3, 2009