Adapts old Lisp to move selected objects - if selection is nil

[mihai_bantas]

Hello to all, I have an older lisp code that works very well ... but I want to make a small change and I admit that I'm a little stuck in the situation ...the code moves different objects to the specified points
What i want to add to this code is the following phrase ... suppose I have 5 objects to move and the code forces me to move 10 objects ... how do I just move 5 objects instead of 10 objects

If someone can help me with a hint of advice ...remain grateful

[ВeekeeCZ · Accepted solution]

... hit enter when you're done.

(defun c:MN ( / idx ss pnt)
  
  (setq idx 0)
  
  (while (and (princ (strcat "Select items " (itoa (setq idx (1+ idx))) "! <done>"))
              (setq ss (ssget "_:L"))
              (setq pnt (getpoint (strcat "\Selects the point of moving elements " (itoa idx) ": ")))
              )
    (command "_.move" ss ""
             "_none" pnt
             "_none" (list (+ 60.87 (* 420. (1- idx))) 93.91)))
  (princ)
  )

[mihai_bantas]

Thanks for help BeekeeCZ  ... the code goes fine