Dim arrObjects, arrNew
arrObjects = Rhino.GetObjects("Select object to copy in-place")
If IsArray(arrObjects) Then
Rhino.UnselectObjects arrObjects
arrNew = Rhino.CopyObjects(arrObjects)
If IsArray(arrnew) Then
Rhino.SelectObjects arrNew
End If
End If
col codice postato, con Rhino.SelectObjects arrNew seleziona tutto Array di oggetti
nel mio script questo metodo non mi funziona debbo per forza usare un for con indice
For i = 0 To UBound(obj)
Rhino.SelectObjects(obj(i))
Next
ma se gli oggetti già ci sono nella variabile obj perché non mi funziona Rhino.SelectObjects obj
ps credo che si per via che che uso sempre un ciclo per aggiungere gli oggetti ma esiste una soluzione?