请教，图层隔离？

sbwdx

下面代码，来自明经，不知出自哪位老师，请问，能否在，执行命令结束后（未选图层已关闭，选择图层保留），增加，选择，保留图层的上的所有对象？
(defun C:EE (/ ss cnt c en lay)        ;仅显选择图层
  (setvar "CMDECHO" 0)
  (command ".undo" "be")
  (prompt "\n选择需要保留的图层:")
  (setq ss (ssget))
  (setq cnt (sslength ss))
  (setq cnt (1- cnt))
  (command "-LAYER" "OFF" "*" "Y" "")
  (setq c 0)
  (while (<= c cnt)
    (setq en (ssname ss c))
    (setq lay (cdr (assoc 8 (entget en))))
    (command "-LAYER" "ON" lay "")
    (setq c (1+ c))
  )
        (command ".undo" "e")
        (setvar "cmdecho" 1)
  (princ)
)