(DEFUN C:LCC (/ X) ;Layer Copy To Current Layer
  (SETQ X (SSGET))
    (COMMAND ".COPY" X "" "0,0,0" "0,0,0")
    (COMMAND ".CHANGE" X "" "P" "LA" (GETVAR "CLAYER") "")
    (PROMPT (STRCAT "\n\t<" (ITOA (SSLENGTH X)) 
				"> Entities Copied To Layer <"
			     (GETVAR "CLAYER") ">" ))
  (PRINC)
)