리습 문의 – 현재 화면에 표시되는 LAYER를 선택해서 변경

안녕하세요
캐드 화면에 보이는 현재 LAYER (도면층)을 변경하는 리습입니다.
한가지 기능을 추가 하고 싶어서 문의 드립니다.
명령어 실행후 선택하는 느낌을 낼수 있을까요?
추가로, 드래그 해서 선택 할수 있게 변경이 가능할까요?
많은 고수님들의 도움을 요청드립니다.



(defun c:AA()
 (if (setq sel (car (entsel “n현재로 변경할 레이어 객체 선택 :”)))
   (progn
   (setq layer (cdr (assoc 8 (entget sel))))
   (setvar “clayer” layer)
   (princ (strcat “n현재 레이어: ” layer))
  )
 )
 (princ)
)