선택한 객체의 레이어만 남기고 마지막 선택한 객체의 레이어를 현재로 지정하는 방법??

수고많으십니다.

아래와 같은 레이어 관련 리습을 쓰고 있습니다.

(defun c:lo(/ OS var8 nn1 n11 nn2)
 
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (command “clayer” “0”) (princ) )
(setq os (getvar “osmode”))

 (setq var8 (getvar “clayer”))
(setq nn1 (entsel “n표시할 레이어에 속한 객체를 선택하세요. <ENTER = ALL> “))

  (if (/= nn1 nil)
(progn
(setq n11 “”)
(while nn1
 (setq nn2 (car nn1))
 (setq n1 (cdr (assoc 8 (cdr (entget nn2)))))
 (setq n11 (strcat n11 “,” n1))
 (setq nn1 (entsel “n표시할 레이어에 속한 객체를 선택하세요. <ENTER = ALL> “))
)
(command “layer” “off” “*” “y” “”)
(command “layer” “on” n11 “”)
)

(progn
(command “layer” “on” “*” “”))
)
      (PROMPT “선택객체의 레이어만 보기”)
      (PRINC)
)

여기에서 최종 선택한 객체의 레이어를 현재 레이어로 설정하고자 합니다.
도움 부탁드립니다.