Recursos para Rhinoscript y Grasshopper

Hola a todos, os recordamos que el próximo martes comenzamos de nuevo las clases, con el segmento del curso dedicado a grasshopper y rhinoscript. A continuación os dejamos los enlaces a unos cuantos recursos que os podrán ser de utilidad: De rhinoscript, os recomendamos bajar el manual rhinoscript 101, creado por David Rutten:

http://en.wiki.mcneel.com/default.aspx/McNeel/RhinoScript101.html

Y […]

CECLEC – Inicio de las clases de Grasshopper / Rhinoscript

Hola a todos,

El próximo día 2 de febrero, comenzamos, en el horario habitual, el segmento del ceclec dedicado a grasshopper & rhinoscript.

Para esta parte del curso, necesitaremos tener instalado en nuestros ordenadores, el Rhino 4.0; el plugin Grasshopper; el plugin Monkey para editar rhinoscript; así como la última versión de Rhinoscript.

Para aquellos […]

SunSurfaceSplit

Os subimos el script para utilizar la inclinación del sol como parámetro que explicamos en la última clase

‘Script written by Miguel Mesa

‘Script copyrighted by {LAC}

‘Script version martes, 26 de agosto de 2008 3:18:07

Call SunSurfaceSplit()

Sub SunSurfaceSplit()

Dim strSurfaceID : strSurfaceID = […]

Suavizar políneas

Este es el Script para suavizar polilíneas:

Option Explicit ‘Script para suavizar polilíneas y hacer un offset de las mismas Call SuavizarPolilineas() Sub SuavizarPolilineas() Dim arrCrvs,strCrv, arrPoints,arrPoint Dim K,i,arrNPt,hh,kk, Offset, Degree arrCrvs = Rhino.GetObjects(“Select curves”, 4) Offset = Rhino.GetReal(“Offset?”) Degree = Rhino.GetReal(“Degree?”,3,1,100) If IsNull(arrCrvs) Then Exit Sub ReDim arrCC(UBound(arrCrvs)) hh=0 For Each strCrv In […]

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/

[…]

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 […]