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
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