레이어 색상 변경 리습인데 스페이스로 반복잡업가능하게 해주실수있나요?

; LAYER COLOR CHANGE PROGRAM
(defun C:ll(/ EE OE NCO NO)
       (SETVAR “CMDECHO” 1)
       (PROMPT “n>>> Select Entities To Change….. “)
       (SETQ OE (SSGET))
       (SETQ NCO (STRCASE (GETSTRING “n>>> Color Number : “)))
       (SETQ NO 0)
       (WHILE
   (SETQ EE (SSNAME OE NO))
   (command “change” EE “” “p” “c” NCO “”)
   (SETQ NO (1+ NO))
       )
       (PRIN1)
)


레이어 색변경하는 리습인데…

색번호 1번 하면 자동으로 1이 입력되서스페이스만 눌리게하는 문장좀 넣어주실수있나요?