Ein mit Rhino-Script generiertes Schallschluckpanel, aus Styrodur CNC-gefräst. Das einfache Script erzeugt Klötze mit unterschiedlicher, zufälliger Höhe.
—
Dieses Panel ist aus Styrodur, so ein Isolationszeug aus dem Baumarkt, ca. 1m x 0.5m gross, ca. 80mm hoch.
Fräszeit ca. 1.5h, je nachdem.
—
Option Explicit
Dim i, j , k, x, y, strObject, strCurve, arrTranslation
x = 45
y = 30
For i = 1 To x
For j = 1 To y
k = Rnd()
Rhino.AddPlaneSurface Rhino.WorldXYPlane, 20, 20
strObject = Rhino.FirstObject
strCurve = Rhino.AddLine(Array(0,0,0), Array(0,0,k*100))
Rhino.ExtrudeSurface strObject, strCurve
strObject = Rhino.FirstObject
arrTranslation = Array (((i-1)*26),((j-1)*26),0)
Rhino.MoveObject strObject, arrTranslation
Next
Next
Call Main()
Sub Main()
End Sub
—