Yep, We're Morons Sometimes!

Testing 3D Printing

Scripting Hunt 2

I will post the script tomorrow, and explain better the concept.

Scripting Hunt 1

Following with what we did in the previous class. I created for the initial script one line based on this variable:
x = i+y * sin(i)
y = i * cos (i)
z = i
For then with the command Rhino.CopyObject and Rhino.RotateObjects create another one with a rotation angle of 180º.
In the second script I just created cones using the points of both lines and in witch of these created a torus. The final object turned out pretty interesting.
You can Find the script here:

Script1

Option Explicit'Script written by

'Script copyrighted by

'Script version Tuesday, January 15, 2008 1:25:35 PM

Call Main()Sub Main() Dim point(50)

'my array Dim i, x, y, z 'more variables

For i = 0 To 50 'looping

x =i+y * sin(i) 'coordinates

y = i * cos (i)

z = i point(i) = array(x,y,z) ' for each hole inside of the array, there is anather array, who create the point

Next

rhino.AddPoints(point) 'here we print the points Call mifunction(point) ' we call here the function

End Sub
Function mifunction(point) 'declare the function Dim Curve1: Curve1 = rhino.AddCurve(point) 'the code
Dim Curve2: Curve2 = Rhino.CopyObject(Curve1) Dim arrObjects, arrPoint
arrObjects = Rhino.GetObjects
If IsArray(arrObjects) Then
arrPoint = Rhino.GetPoint("Center point of rotation")
If IsArray(arrPoint) Then
Rhino.RotateObjects arrObjects, arrPoint, 180.0, ,vbTrue
End If
End If
End Function 'end of the function

Script2

Option Explicit'Script written by

'Script copyrighted by

'Script version terça-feira, 22 de Janeiro de 2008 00:59:29
Call Main()Sub Main()

Dim strCurve, strCurve2, strCurve3

Dim Domain, Domain2, Domain3, Param, Param2, Param3, Point, Point2, Point3, i, sections

sections = 50

ReDim collection(sections)

ReDim collection2(sections)

ReDim collection3(sections)

strCurve = rhino.GetObject

If isnull (strCurve) Then Exit Sub

strCurve2 = rhino.GetObject

If isnull (strCurve2) Then Exit Sub

strCurve3 = rhino.GetObject

If isnull (strCurve3) Then Exit Sub

Domain = Rhino.CurveDomain(strCurve)

Domain2 = Rhino.CurveDomain(strCurve2)

Domain3 = Rhino.CurveDomain(strCurve3)

For i = 0 To sections Param = i*((Domain(1)-Domain(0))/sections)

Param2 = i*((Domain2(1)-Domain2(0))/sections)

Param3 = i*((Domain3(1)-Domain3(0))/sections)

point = Rhino.EvaluateCurve(strCurve, Param)

Rhino.AddPoint point point2 = Rhino.EvaluateCurve(strCurve2, Param2)

Rhino.AddPoint point2 point3 = Rhino.EvaluateCurve(strCurve3, Param3) Rhino.AddPoint point3

collection(i) = point

collection2(i) = point2

collection3(i) = point3

Next

Dim Newpoint, Newpoint2, Newpoint3

Dim dblradius, dblradius1, arrheight, arrheight2, arrheight3, arrbase, arrbase2, arrbase3

Dim arrcircle, arrcircle2, arrcircle3

Dim dblMajorRadius, dblMinorRadius

dblradius = 3 dblradius1 = 2

dblMajorRadius =3 dblMinorRadius =2

For i = 0 To sections

Newpoint = collection(i) Newpoint2 = collection2(i) Newpoint3 = collection3(i)
arrbase = Newpoint arrbase2 = Newpoint2 arrbase3 = Newpoint3 If isarray(arrbase) Then arrheight = Newpoint2 If isarray(arrheight)

Then

rhino.AddCone arrbase, arrheight, dblradius1

If isarray(arrbase2)

Then arrheight2 = Newpoint3

If isarray(arrheight)

Then rhino.AddCone arrbase2, arrheight2, dblradius

If isarray(arrbase3)

Then arrheight3 = Newpoint

If isarray(arrheight3)

Then rhino.AddCone arrbase3, arrheight3, dblradius

End If End If End If End If End If End If
Rhino.AddTorus Newpoint, dblMajorRadius, dblMinorRadius

Rhino.AddTorus Newpoint2, dblMajorRadius, dblMinorRadius

Rhino.AddTorus Newpoint3, dblMajorRadius, dblMinorRadius

Next
End Sub

P.s_Once you paste the script in the script editor, you have to repair the spaces since here is incorrectly formatted because it is posted in html (different Language)

Interactive structure-chip develop

In this project the idea was working with a rotational input and light output for an electronic interactive structure. Developed with 11 architects where I was included. We got off to a great start with the milling, and chip making, but eventually we had a few problems with the milling, resulting with a nice little groove cut into the bed of the machine.

We decided for the panel that it would be much nicer if the actual object that you controlled was the object that changed, so for this experience, we devised a series of 8×8x8cm cubes that would contain the electronic components.

These 9 cubes were mounted on a large base board, allowing the sensor to be fixed and the cubes to rotate. Many long discussions were fought about the layout of the cubes, but ultimately we decided that a fairly regular pattern would suit the project\experiment better.

Upon completion we managed to have 7 cubes working perfectly, 1 that is constantly on and one that has now chip at all. In addition to the 5 chips that we managed to destroy during the production process somehow. We had a look at these and apparently they look perfect, but just won’t work.
The panel its self allows you to vary the rate at which the light blinks by the amount that you rotate the cubes.

Participants:

Vagia Pantou (Greece)

Pete Booth(Australia)

Verena Vogler (Germany)

Monica Szawiola (Poland)

Mariana Paz (Mexico)

Eduardo Mayo (Spain)

Eugenio Adame (Mexico)

Georgios Machairas (Greece)

Krzysztof Gornicki (Poland)

Alessio Carta (Italy)

The Ripple- CNC mill

The understanding of CAM software is crucial to understand the working of milling machine and its tools. Optimization is possible in the following relationship

Intended Design — Digital Model — Selected Tool — CAM Parameters — Estimate Time (€€€!)

The exercise attempts to exploit CAM parameters for generating texture on the given surface. Following are the values for milling with a 26mm diameter, round nose milling tool, required for the desired effect.

THE HITCH
The experimental flip of the processes, (Parallel cut preceding the Rough cut instead of vice versa) proves erroneous. Besides other problems as follows:

- Issue 1: The milling machine’s belts (controlling Y-direction movement) slip over the sprocket due to a broken rubber tooth.

- Result 1: Unequal thickness of ridges (and valleys), some as thin as 1 mm

- Issue 2: Usually the horizontal cut is step 1, followed by parallel finish. The sequence was flipped.

- Result 2: The thin ridges were severed violently during stage 2 as the tool attempted to mill horizontal rough cut.

SOLUTION
Milling stalled twice. The process which was supposed to take 20 minutes took an hour both due to technical and design problems. A parallel horizontal cut is proposed to save the texture on the surface and is executed perfectly.

Intended result

Final Result