(DEFUN C:LMC (/ X) ;Layer Move To Current Layer
  (SETQ X (SSGET))
  (COMMAND ".CHANGE" X "" "P" "LA" (GETVAR "CLAYER") "")
  (PROMPT (STRCAT "\n\t<" (ITOA (SSLENGTH X)) 
			   "> Entities Moved To Layer <"
			   (GETVAR "CLAYER") ">" ))
  (PRINT)
)