English.
Hi all!
I created .ghx for Parametric Design of Bottle. I defined profile curves giving control points with slider, definition of hight, shifting, and offset based on referenced…
Dim S As New NurbsSurface
Dim k1 As New Integer Dim k2 As New Integer Dim k3 As New Integer
Dim pt_2 As New point3d Dim pt_3 As New point3d Dim pt_4 As New point3d
k1 = 13 k2 = 14 k3 = 15
For i As Integer = 0 To 7 If k1 > 15 Then k1 = k1 - 15 End If pt_2 = L_pts(k1)
If k2 > 15 Then k2 = k2 - 15 End If pt_3 = L_pts(k2)
If k3 > 15 Then k3 = k3 - 15 End If pt_3 = L_pts(k3)
S = nurbsSurface.CreateFromCorners(centre, pt_2, pt_3, pt_4) TAB.add(S)
k1 = k1 + 3 k2 = k2 + 3 k3 = k3 + 3
Next
A = S
You dont realy need to understand the script but I want to be able to declare a dim as a Surface and on the core creat different surface from 4 pt.
Thanks for your Help,
Best regards,
Renaud Ganière…
dont get you, i am saying sleect numbers in range 1 to 10, starting from 1 with a step of 2.
1 to 10 by 3 = 1 4 7 10
1 to 10 by 5 = 1 6
1 to 10 by 1 = 1 to 10 = 1 2 3 4 5 6 7 8 9 10
Added by Steve Lewis at 3:15pm on November 11, 2013