(DEFUN C:LSX (/ X) ;Layer Set X
  (SETQ X (GETSTRING "\nEnter Layer <At Keyboard> To Set Current: "))
  (COMMAND ".LAYER" "S" X "")
  (PRINC)
)