algorithmic modeling for Rhino
Private Sub RunScript(ByVal obj As Brep, ByVal lay As String, ByVal col As Color, ByRef A As Object)
  Dim lay_index As Int32 = doc.Layers.Find(lay, True)
  If (lay_index < 0) Then
    lay_index = doc.Layers.Add(lay, col)
  End If
  Dim att As New DocObjects.ObjectAttributes()
  att.LayerIndex = lay_index
  A = doc.Objects.AddBrep(obj, att)
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
    