algorithmic modeling for Rhino
Create a list of nurbsSurface
Hello,
I have somme difficulty to creat a surface from 4 pt:
Private Sub RunScript(ByVal L_pts As List(Of Point3d), ByVal centre As Point3d, ByRef A As Object)
Dim TAB As New list (Of NurbsSurface)
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
Views: 321
Replies to This Discussion
-
Permalink Reply by David Rutten on
-
And what is the error you get? If you post the files I need to recreate this it's a lot easier for me to figure out what the problem is.
--
David Rutten
david@mcneel.com
Poprad, Slovakia
-
-
Permalink Reply by RG on
-
Hello, thanks for help:)
I send you the file.
Best Regards,
RG
- Attachments:
-
-
Flower_Surface.3dm, 55 KB -
Flower_Surface.gh, 3 KB
-
-
About
Welcome to
Grasshopper
Translate
Search
Photos
Videos
© 2024 Created by Scott Davidson.
Powered by
