algorithmic modeling for Rhino
Tags:
For i As Double = 0.0 To (1.0 + 0.5*rowStep) Step rowStepPrivate 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 SubWelcome 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
    © 2025               Created by Scott Davidson.             
    Powered by