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

Comments are closed.