(DEFUN C:LMX (/ X Y) ;Layer Move To Layer X
  (SETQ X (SSGET))
  (SETQ Y (GETSTRING "\nEnter Target Layer Name: "))
  (COMMAND ".CHANGE" X "" "P" "LA" Y "")
  (PROMPT (STRCAT "\n\t<" (ITOA (SSLENGTH X)) 
			   "> Entities Moved To Layer <"
			   Y ">" ))          
  (PRINC)
)