-_Runscript ( Sub Arpoin Dim punti, obj, orig objs=Rhino.Getobjects("Seleziona gli oggetti da copiare") If IsArray(objs) Then orig=Rhino.GetPoint("Seleziona il punto origine") If IsArray(orig) Then punti= Rhino.GetObjects("Seleziona i punti Target", 1) If IsArray(punti) Then Rhino.EnableRedraw(False) Rhino.UnselectAllObjects For i=0 to Ubound(punti) nump = Rhino.PointCoordinates(Punti(i)) Rhino.CopyObjects objs, orig, nump Next End If End If End If Rhino.UnselectAllObjects Rhino.EnableRedraw(True) End Sub Arpoin )