인터넷에서 구한 연속숫자 lisp 인데요

명령 입력하면 선택의 역순으로 숫자가 매겨져요
이걸 선택순으로 되게 하고 싶은데 어떻게 하면 되나요??

;;; 연속 숫자 넘버링
;;;
(defun c:nb (/ sno1 sno3 sno4 sno5 sno6 sno7 sno8 sno10 sno11 sount text)
(setq sntext (getstring “n앞에 붙을 문자 입력:”))
(setq sno1 (getreal “n시작할 번호를 지정:”))
(setq sno3 (ssget ‘((0 . “text”))))
(setq sno4 (sslength sno3))
(setq count (- sno4 1))
(repeat sno4
(setq sno5 (entget (ssname sno3 count)))
(setq sno6 (cdr (assoc 1 sno5)))
(setq sno7 (assoc 1 sno5))
(setq sno8 (rtos sno1 2 0))
(setq text (strcat sntext sno8))
(setq sno10 (cons 1 text))
(setq sno11 (subst sno10 sno7 sno5))
(entmod sno11)
(setq sno1 (1+ sno1))
(setq count (1- count))
)
(princ)
)