1+2+3+4+5+6 = 21
1+2+3+4+5+6+7 = 28
1+2+3+4+5+6+7+8 = 36
1+2+3+4+5+6+7+8+9 = 45
Is there a tool, that can do me that job?
How do I get this List {1,3,6,10,15,21,28,36,45}?…
Added by Ahmed Hossam at 2:19pm on September 22, 2013
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…