|
||||||
|
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/M… Y [...] 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 [...]
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 = Rhino.GetObject(“Selecciona una Superficie”, 8, [...] 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 [...] 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/ [...] 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 [...] |
|
|||||
|
Copyright © 2012 {LAC} - Todos los derechos reservados Powered by WordPress & Atahualpa |
||||||
