리습 수정요청 드려 봅니다.

인터넷에서 찾았습니다.
글자를 하나하나 클릭하면 숫자가 증가되면서 원본글자는 없어지는데요
원본글자를 살리면서 앞에 숫자가 입력됬으면 합니다.

숫자가써지고 한칸띄어서부터 원본글자를 살리고싶은데요.
현재는클릭해야 글자지정이 됩니다만 드레그해서 글자지정할수도 있으면 더 좋겠습니다.
너무 필요해서 새벽에 올려봅니다……. ㅠㅠㅠㅠ 
예)         SUS 2T 2EA  
               SUS 1T 9EA
                    SUS 5T 1EA

             위에글자를 하나하나 클릭하면

              01 SUS 2T 2EA  
               02 SUS 1T 9EA
                    03 SUS 5T 1EA         
                         
            이런식 입니다.  염치없지만 부탁드려 봅니다.
              유료라도 좋으니 댓글부탁드립니다.
  
;*************************순차적으로 숫자를 써줌********************* 

(defun c:qqq()
     (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)