(defun c:mv ();mehrfach versetzen...funktioniert 20mal 
     (setq x1 (entsel "Wähle: "))
     (terpri)
     (setq stp1 (getpoint "Auf welche Seite."))
     (terpri)
     (setq x2 (getdist "Abstand:"))
     terpri
     (command "versetz" x2 x1 stp1 "")
     (setq x3 (getdist "Abstand:"))
      (setq sux (+ x2 x3))
      (command "versetz" sux x1 stp1 "")

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 


     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 


     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 


     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

 (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 


     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 


     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

     (setq x3 (getdist "Abstand:"))
      (setq sux (+ sux x3))
       (command "versetz" sux x1 stp1 "")
         terpri 

  )