This lisp will copy selected objects to an existing layer you type to it:
(defun c:col (/ lr tmp ent-lst) ; Copy to layer
(setvar “CMDECHO” 1)
(setq ent-lst (ssget))
(setvar “CMDECHO” 0)
(command “copy” ent-lst “” “0,0” “0,0”)
(setq lr (getvar “CLAYER”))
(setq tmp (getstring (strcat “Copy to layer <” lr “> :”)))
(if (/= tmp “”)
(setq lr tmp)
)
(command “change” ent-lst “” “p” “la” lr “”)
(princ)
)