Array in polyline

Scripting e Programmazione
1 
Dim crv: crv = Rhino.GetObject
Call Rhino.EnableObjectGrips(crv)
Dim grp: grp = Rhino.ObjectGripLocations(crv)
Call Rhino.AddPolyline(grp)

nell’esempio postato sopra lo script funziona tranne il fatto di non chiudermi la curva ripetendo primo punto

Dim a, i
a = array(1, 2, 3)

ReDim Preserve a(Ubound(a)+1)
a(Ubound(a)) = a(0)

If IsArray(a) Then
	For Each i In a
		msgbox a(i)
	Next
End If


Dim a, i
a = array(1, 2, 3)
If IsArray(a) Then
	For i = 0 To Ubound(a) + 1
		If i = Ubound(a) + 1 Then msgbox a(0): Exit Sub
		msgbox a(i)
	Next
End If

sarebbe possibile risolvere il problema chiusura della polyline diversamente da come fatto sopra ma tipo:

“Call Rhino.AddPolyline(Array(grp, Array(grp(0))))” ho fatto “credo” tutte le combinazioni possibili ma nulla

sono obbligato a inserire il comando Rhino.AddPolyline all’interno di For come fatto nei due esempi?

PS nel primo esempio dell’Array in “For Each” come mai il ciclo inizia da 1?

grazie e un saluto a tutti :slight_smile:

2

fatto altre prove mi sa tanto che si deve eseguire per forza con uno dei due esempi…

3

raggirato il problema usando “_CloseCrv”