(DEFUN C:LSC (/ X) ;Layer Set Current
  (SETQ X (CDR (ASSOC 8 (ENTGET (CAR (ENTSEL
	     "\nSelect Object To Set Layer Current: "))))))
  (COMMAND ".LAYER" "S" X "")
  (PRINC)
)