레이어변경 리습인데 수정좀해주세요…

레이어 수정 리습으로 받은건데 제가 전에 쓰던거랑 조금 달라서

조금 불편해서 그런데 수정 좀 부탁드릴께요..

(defun c:cc()     <– 기본cc +  레이어이름까지 넣고 싶어요..
; (setq ent (entsel))
  (setq lll (ssget))
  (setq ob (getstring “nChange Layer Key IN ==>”))   <—이 단계를 생략하고 싶어요..
  (command “change” lll “” “p” “la” ob “”)(princ)
  (beep)  <— 요게 머하는건지 잘모르겠네요..
  (prompt “END OF CHANGE LAYER…..”)(princ)
)

이 리습을..

예) pipe라는 레이어가있을때  바꾸고 싶은객체 선택후 ccpipe치고 엔터치면 바뀔수있도록..
      또는 ccpipe 엔터후 바꾸고싶은 객체 선택후 엔터치면 바뀔수있도록…
      그리구 위에꺼 사용시 (beep)에서 기능오류라고 뜨네요…

부탁드리겠습니다….