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