(defun c:DE (/ CAD us1)
(setvar "cmdecho" 0)
(setq us1 (getvar "USERS3"))
(setq CAD (GETSTRING "\nDistance specify: "))
(COMMAND "SETVAR""USERS3"CAD)
(setvar "cmdecho" 1)
(princ))
(defun c:test1 (/ di cad cadu)
(setvar "cmdecho" 0)
(setq di (getvar "USERS3"))
(setq cad (strcat "@"di"<270"))
(setq cadu (strcat "@"di"<90"))
(setq ss (ssget "_:L"))
(command "copy" ss "" "0,0,0" cad )
(command "-Pan""0,0,0"cadu)
(setvar "cmdecho" 1)
(princ))
The problem lies in the following: run the lisp select objects and copy distance, then when I want to continue copying have run the lisp and reselect the objects and so, what I want is to make a loop to continue copiandoy moving with bread now if I understand. :blink: