(defun c:copy2lay ()
  (princ "\nObjekte waehlen, die auf einen anderen Layer kopiert werden")
  (setq AS (ssget))
  (if (not AS) (quit))
  (setq nLayer (getstring "\nauf Layer: "))
  (if (not (tblsearch "LAYER" nLayer)) (progn
     (princ "\nAchtung, Layer ist nicht vorhanden und wird neu angelegt!")
     (command "_layer" "_m" nLayer "")
  ))
  (command "_copy"    AS "" (list 0 0 0) (list 0 0 0)
           "_change"  AS "" "_P" "_layer" nLayer ""
  )
  (princ)
)