Copy and rotate, move and rotate

hello when executing the commands the elements are duplicated in the same place, will there be any way that does not happen? and that the command be repeated

Thank you.

((defun c: cr () 
(princ "\ n Copiar, & 
Girar: \ n") 
(setq ss (ssget)) 
(comando "copiar" ss "" "0" "0") (comando 
"mover" ss "" pause pause) (comando "rotar" ss "" "@" pause))

(defun c: mr () 
(princ "\ nMover, & 
Rotate: \ n") 
(setq ss (ssget)) 
(comando "Move" ss "" "0" "0") (comando 
"move" ss "" pause pause) (comando "rotar" ss "" "@" pause))

hello when executing the commands the elements are duplicated in the same place, will there be any way that does not happen? and that the command be repeated

Thank you.

 

((defun c: cr () 
(princ "\ n Copiar, & 
Girar: \ n") 
(setq ss (ssget)) 
(comando "copiar" ss "" "0" "0") (comando 
"mover" ss "" pause pause) (comando "rotar" ss "" "@" pause))

(defun c: mr () 
(princ "\ nMover, & 
Rotate: \ n") 
(setq ss (ssget)) 
(comando "Move" ss "" "0" "0") (comando 
"move" ss "" pause pause) (comando "rotar" ss "" "@" pause))

This line creates a copy in the same place

(comando "copiar" ss "" "0" "0")

This line does nothing

(comando "Move" ss "" "0" "0")

If you want to copy it should be

(comando "copiar" ss "" pause)

If you want to move it should be

(comando "move" ss "" pause)

Note only one pause is needed, and it will always work on the originally selected entities

command: MOCORO ?