레이어 바꾸는 리습 질문입니다

(defun c:00()
 (prompt “nSet 0 Layer… “)
    (setvar “cmdecho” 0)
 (command “-layer” “s” “0” “”)
    (setvar “cmdecho” 1)
)
(defun c:0()
 (prompt “nFor 0_Layer… “)
    (setvar “cmdecho” 0)
 (setq ent (ssget))
 (command “chprop” ent “” “c” “bylayer” “lt” “bylayer” “la” “0” “”)
    (setvar “cmdecho” 1)
)
(defun c:01()
 (prompt “nSet 1 Layer… “)
    (setvar “cmdecho” 0)
  (if (= (tblsearch “layer” “1”) nil)
   (command “‘-layer” “n” “1” “c” “1” “1” “l” “center2” “1” “”)
   (command “‘-layer” “c” “1” “1” “l” “center2” “1” “”)
  );endif
 (command “-layer” “s” “1” “”)
    (setvar “cmdecho” 1)
)
(defun c:1()
 (prompt “nFor 1 Layer… “)
 (setq ent (ssget))
    (setvar “cmdecho” 0)
  (if (= (tblsearch “layer” “1”) nil)
   (command “‘-layer” “n” “1” “c” “1” “1” “l” “center2” “1” “”)
   (command “‘-layer” “c” “1” “1” “l” “center2” “1” “”)
  );endif
 (command “chprop” ent “” “c” “bylayer” “lt” “bylayer” “la” “1” “”)
    (setvar “cmdecho” 1)

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
위와 같은 리습을 사용하고 있습니다.
객체를 선택하고 1을 입력하고 엔터를 누르면
명령창에 다음과 같이 나타납니다.

명령: 1
For 1 Layer… 1개를 찾음

그리고 엔터를 한번 더 누르면 해당 객체가 1번 레이어로 바뀝니다.
즉, 현재는 단축키를 입력하고 엔터를 두번 눌러야 해당 기능이 작동합니다.

객체를 선택하고 1을 입력하고 엔터를 누르면 바로 1번 레이어로 바뀔 수 있도록 하려면
위의 리습에서 어떤 부분을 수정해야 할까요?
 고수분들 제발 도와주세요..부탁드립니다.