레이어 숨기기, 보이기 리습 수정 부탁드립니다.

(defun c:rg()
       (setq e (car (entsel “pick an object on the desired layer:”)))
       (if e (progn
       (setq e (entget e))
       (setq n (cdr (assoc 8 e)))
       (command “layer” “set” n “”)))
       (command “layer” “off” “*” “” “”)
       (prin1)
)
———————————————————————————————
(defun c:gg()
       (command “layer” “on” “*” “”)(prin1)
)


——————————————————————————————

다른 고수분들이 만드신 리습을 복사해서 쓰는 처지라 리습 수정할 실력이 안되여 요청합니다.


첫번째 리습은 선택한 객체의 레이어만 보이게 하는 기능입니다.

그리고 두번째 리습은 첫번째 리습 사용으로 인해 숨겨진 레이어들을 다시 모두 보이게 하는 기능입니다.

문제는 첫번째 두번째 리습을 사용하면 기본레이어가 첫번째 리습사용시 선택했던 레이어로 변경되는 부분입니다.


그래서 수정되었으면 하는 부분이 

첫번째 두번째 리습 사용 후에도 항상 기본레이어가 변경이 안되도록 하였으면 합니다.