(defun C:LON (/ X)
  (SETQ X (GETSTRING "\nEnter Layer <At Keyboard> To Turn On: "))
  (COMMAND ".LAYER" "ON" X "")
  (PRINC)
)