(DEFUN C:LCX (/ X Y) ;Layer Copy To Layer X
  (SETQ X (SSGET))
  (SETQ Y (GETSTRING "\nEnter Target Layer Name: "))
    (COMMAND ".COPY" X "" "0,0,0" "0,0,0")
    (COMMAND ".CHANGE" X "" "P" "LA" Y "")
    (PROMPT (STRCAT "\n\t<" (ITOA (SSLENGTH X)) 
				"> Entities Copied To Layer <"
			     Y ">" ))          
  (PRINC)
)