-runscript (Option Explicit Call CopyToPoints() Sub CopyToPoints Dim idObjs : idObjs = Rhino.GetObjects("Objects to copy", ,True, True, True) Dim ptFrom : ptFrom = Rhino.GetPoint("Point to copy from") Dim ptTarget : ptTarget = Rhino.GetPointCoordinates("Points to copy to", False) Dim i For i = 0 To UBound(ptTarget) Call Rhino.CopyObjects(idObjs, ptFrom, ptTarget(i)) Next End Sub)