lisp코딩 질문입니다

필요한 곳이 있어서 만든 리습 입니다.
적용 예는 a102b31라는 text에서 제일 마지막 두자리를 제가 원하는 값[ex)10] 으로 바꾸고 곧바로 다음 객체 선택시 처음 입력한 값에  +1 씩[(11이 되겠죠?)]  계속 진행되는 리습입니다.
한가지 기능을 더 추가하고 싶은데 도무지 모르겠네요

만약 a102b31 을 제가 a102b10로  수정하고 리습명령을 종료한후에 다시 명령을 실행했을때
저 10라는 값이 그대로 남아 객체 선택시 a102b11으로 나타났으면 합니다..
고수님들의 도움이 필요해요..



(defun c:textlist1 ()
(setq change (getstring “대체 값”))
  (setq change1 (atoi change))
  (while (> 10000 change1)
  (setq se (ssget)) ;객체 선택
  (setq ss (cdr (setq sss(assoc 1 (setq ssss (entget (ssname se 0))))))) ;ss(최종 text) sss(1. text) ssss(객체엔티티)
  (setq count (strlen ss)) ; repeat 횟수를 text글자수 만큼 지정

  (setq step 1)
  (setq head “” tail “” return nil) ; head 리스트 앞부분 tail 리스트 뒷부분
  (setq b “b”) ;리스트 나누기 위한 변수 (수정 필요)
 

  (repeat count
    (if (< 47 (ascii (setq return (substr ss step 1))) 58) ;if문 조건 (아스키코드 사용 47~58사이 즉 0~9 사이 숫자가 맞으면 true)
      (setq tail (strcat tail return)) ;true실행문 (숫자를 tail 리스트 함에 넣는다)

      (if (= return b) ;if문 nil 값나올경우 실행  (text탐색중 b가 나오면 true)
        (progn
 (setq head (list head) tail (list tail))
 (setq list1 (append head tail))
 (setq head “” tail “”)
 (setq head (strcat head return))
 ) ;true 실행문
 (setq head (strcat head return))) ;nil 실행문
      ) ;if문 끝
 

    (setq step (1+ step))
    ) ;repeat 끝

  (setq head (list head) tail (list tail))
  (setq list2 (append head tail))
 
  (setq list1 (list list1) list2 (list list2))
  (setq listall (append list1 list2))

  (setq final (cadr(nth 1 listall)))

 
  (setq final (itoa change1))
 
  (setq list1a (car (car list1))
        list1b (cadr (car list1))
        list2a (car (car list2))
        list2b (cadr (car list2)))
  (setq newlist (strcat list1a list1b list2a final))
  (setq ssss (subst (cons 1 newlist) sss ssss)) ;ss(최종 text) sss(1. text) ssss(객체엔티티)
  (entmod ssss)
  (setq change1 (1+ change1)))

  (princ))