번호를 매기는 lisp 수정 좀 도와주세요

순차적으로 숫자를 써주는 리습을 손보고있는데
클릭으로만 번호가 바뀌네요.
잘못해서 text를 클릭하지못하고 허공을 클릭하면 다시 명령어를 치고 바꿔나가야합니다..

이 부분을 드래그하여 그 순차적으로 숫자를 나열시키고 싶은데 어딜 어떻게 바꿔야하는지
고수님들 도와주세요..


(defun c:ww()
     (setq n (getint “nStarting number: “))
     (while (setq e (car(entsel “nSelect number to change..:”)))
            (setq e (entget e))
            (setq nn (itoa n))
            (cond ((= 1 (strlen nn)) (setq nn (strcat “0” nn)))
                  ((= 2 (strlen nn)) (setq nn (strcat “” nn)))
            )
            (setq old (assoc 1 e)
                  new (cons 1 nn)
            )
            (setq e (subst new old e))
            (entmod e)
            (setq n (1+ n))
    )
)
; *************************************************************************

(defun c:www()
     (setq n (getint “nStarting number: “))
     (while (setq e (car(entsel “nSelect number to change..:”)))
            (setq e (entget e))
            (setq nn (itoa n))
            (cond ((= 1 (strlen nn)) (setq nn (strcat “00” nn)))
                  ((= 2 (strlen nn)) (setq nn (strcat “0” nn)))
                  ((= 3 (strlen nn)) (setq nn (strcat “” nn)))
            )
            (setq old (assoc 1 e)
                  new (cons 1 nn)
            )
            (setq e (subst new old e))
            (entmod e)
            (setq n (1+ n))
    )
)

; *************************************************************************
(defun c:wwww()
     (setq n (getint “nStarting number: “))
     (while (setq e (car(entsel “nSelect number to change..:”)))
            (setq e (entget e))
            (setq nn (itoa n))
            (cond ((= 1 (strlen nn)) (setq nn (strcat “000” nn)))
                  ((= 2 (strlen nn)) (setq nn (strcat “00” nn)))
                  ((= 3 (strlen nn)) (setq nn (strcat “0” nn)))
                  ((= 4 (strlen nn)) (setq nn (srrcat ” ” nn)))
            )
            (setq old (assoc 1 e)
                  new (cons 1 nn)
            )
            (setq e (subst new old e))
            (entmod e)
            (setq n (1+ n))
    )
)
; **********************************************************************
(defun c:w()
     (setq n (getint “nStarting number: “))
     (while (setq e (car(entsel “nSelect number to change..:”)))
            (setq e (entget e))
            (setq nn (itoa n))
            (cond ((= 1 (strlen nn)) (setq nn (strcat “” nn)))
            )
            (setq old (assoc 1 e)
                  new (cons 1 nn)
            )
            (setq e (subst new old e))
            (entmod e)
            (setq n (1+ n))
    )
)
(VMON)

——————————————————————————————————————————–
리습에 대한 내용입니다. (혹시 몰라서 리습파일도 올려드리겠습니다.)