Categories
Cursos Foro

CNC – Discretización de superficie

A continuación os dejo lo que sería la traslación del script que vimos hace unas semanas en clase (el fabRibs), al grashopper. Lo que hace este script es discretizar una superficie dada, en una serie de costillas cuyo número, altura y espesor podemos definir, viendo las diferentes soluciones al instante. Ésta solución, ofrece dos geometrías como resultado, por un lado, la geometría real 3d, para poder usarla en documentación, renders, etc…, y por otro lado, la geometría en superficies para, usando el script unrollSrf, obtener en el plano todas las costillas para pasarlas a la máquina CNC.

Está recién “cocinado” , con lo que es posible que pueda dar algunos errores. Podeis usar los comentarios para indicarlos, o para cualquier otra estimación que querrais hacer al respecto, ya sea sobre el uso del archivo dentro del grasshopper (aunque creo que está todo bien indicado y no deberíais de tener problemas para usarlo sin liaros), sobre soluciones alternativas a la propuesta, o mejoras que pudiéseis implantar a la misma.

Os lo podeis bajar haciendo click aquí

Categories
Cursos

Descargas para la clase del 2008.11.17

Para la clase de hoy es imprescindible que os bajéis y os instaléis estos dos plugins.

Grasshopper (http://grasshopper.rhino3d.com/)

y Point Set Reconstruction (http://en.wiki.mcneel.com/default.aspx/McNeel/PointsetReconstruction.html)

Además, os recomendamos una página interesante con bastantes ejemplos

http://rhinoscriptingresources.blogspot.com/

Categories
Cursos Foro

Ejercicio 2008.11.11 – Unir los puntos

Una posible solución al ejercicio que se planteó al final de la clase del pasado día 11:

Option Explicit

Dim arrPuntos
Dim n
Call Main()

Sub Main()
arrPuntos=Rhino.GetPointCoordinates (“seleccionar los puntos”)
n=UBound(arrPuntos)+1
Rhino.Print(n & ” puntos seleccionados”)
If IsArray(arrPuntos) Then
Enlazar()
End If
End Sub

Function Enlazar()
Dim i,j
For i=0 To UBound(arrPuntos)
For j=0 To UBound(arrPuntos)
If i<>j Then
If Rhino.Distance(arrPuntos(i),arrPuntos(j))<100 Then
Rhino.addline arrPuntos(i),arrPuntos(j)

End If
End If
Next
Next
End Function