(DEFUN C:LM0 (/ X) ;Layer Move To 0 (Zero)
  (SETQ X (SSGET))
  (COMMAND ".CHANGE" X "" "P" "LA" "0" "")
  (PROMPT (STRCAT "\n\t<" (ITOA (SSLENGTH X)) 
			   "> Entities Moved To Layer <0> "))
  (PRINC)
)