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