Grasshopper

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: 328

Replies to This Discussion

Permalink Reply by David Rutten on December 13, 2011 at 10:51am

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 December 14, 2011 at 2:55am

Hello, thanks for help:)

I send you the file.

Best Regards,

RG

Attachments:
Permalink Reply by RG on December 14, 2011 at 3:42am

I m stupid... I put two times pt_3...

Sorry

RSS

About

Scott Davidson created this Ning Network.

Translate

Search

Photos

  • Add Photos
  • View All

Videos

  • Add Videos
  • View All

© 2024   Created by Scott Davidson.   Powered by

Badges  |  Report an Issue  |  Terms of Service