algorithmic modeling for Rhino
Tags:
For i As Double = 0.0 To (1.0 + 0.5*rowStep) Step rowStep
Private Sub RunScript(ByVal Brp As OnBrep, ByVal Col As Integer, ByVal Row As Object, ByRef A As Object)
Dim srf As IOnSurface = Brp.Face(0)
Dim U As OnInterval = srf.Domain(0)
Dim V As OnInterval = srf.Domain(1)
Dim Rows As New List(Of On3dPoint)
For i As Int32 = 0 To Row
For j As Int32 = 0 To Col
Dim s As Double = U.ParameterAt(i / Row)
Dim t As Double = V.ParameterAt(j / Col)
Dim pt As On3dpoint = srf.PointAt(s, t)
Rows.Add(pt)
Next
Next
A = Rows
End Sub
Welcome to
Grasshopper
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
© 2024 Created by Scott Davidson. Powered by