algorithmic modeling for Rhino
Sub RunScript(ByVal arr_crv As List(Of OnCurve))
Dim arr_nc As New List (Of OnNurbsCurve)
For i As Int32=0 To arr_crv.Count - 1
Dim nurbsCrv As New OnNurbsCurve
arr_crv(i).GetNurbForm(nurbsCrv) 'convert OnCurve to OnNurbsCurve
arr_nc.Add(nurbsCrv)
Next
'create a untrimed surface from 2,3 or 4 edge
A = Rhutil.RhinoCreateEdgeSrf(arr_nc.ToArray())
End Sub
Welcome to
Grasshopper
© 2025 Created by Scott Davidson.
Powered by