用lisp编程能不能实现这样的功能？

hpy

用DTEXT命令写一组数据 1，2，3，4，5，6，7，8，9，10，......，n
1. 如果其中的任意一个数据加上一个数后，其后面的数据自动加上相同的数。比如第一个数1加上1后，后面的数自动变为3，4，5，6，7，8，9，10，......，n+1
2. 如果在任意两个数之间插入一个数，比如在4和5之间插入5，则后面的数自动变为6，7，8，9，......

前生

可以.

hpy

请问如何实现？能麻烦你编一下程码？先谢谢了！

龙龙仔

;|数字插入的问题
有很多单行文本是有一定数字排列的，比如下面
ab-1,ab-2,ab-3.....（每一个是一个单独的文本）
由于修改的原因想插入一个，使以前的数字依次向后推移，怎么解决？
就是说要把ab-2改为ab-3,ab-3改为ab-4,ab-4改为ab-5......
斑竹能否编个程序方便解决这个问题。|;

;;USAGEtt <识别符号> <数值> <加、减、乘、除>)
;;USAGEtt "-" 1 "+")
(defun TT (TEX GAIN MARK / SS N TE TTE POS)
  (setq SS (ssget '((0 . "TEXT"))))
  (if SS
    (progn
      (setq N 0)
      (repeat (sslength SS)
        (if
          (wcmatch
            (setq TE (cdr (assoc 1 (setq TTE (entget (ssname SS N))))))
            (strcat "*" TEX "*")
          )
           (progn
             (setq POS (vl-string-position (ascii TEX) TE))
             (setq TE
                    (strcat
                      (substr TE 1 (+ POS 1))
                      (rtos
                        ((eval (read MARK)) (atof (substr TE (+ POS 2))) GAIN)
                      )
                    )
             )
             (entmod (setq TTE (subst (cons 1 TE) (assoc 1 TTE) TTE)))
           )
        )
        (setq N (1+ N))
      )
    )
  )
  (princ)
)

hpy

非常感谢龙龙仔的热心！使用了你的程序后觉得与我希望的功能有点差距。斑竹的程序功能是先给定一个数值，然后选择文本进行改变（如果文本分布在整个图形中，则须一个一个选择）。
    不好意思!我没有把问题表达清楚。我希望的程序功能是这样的：通过一个程序写出一组数据（为单行文本）1，2，3，4，5，6，7，8，9，10，...... ，n 以后由于修改的原因，希望达到以下两个目的：
1. 如果其中的任意一个数据加上一个数后，其后面的数据自动加上相同的数。比如第一个数1加上1后，后面的数自动变为3，4，5，6，7，8，9，10，......，n+1
2. 如果在任意两个数之间插入一个数，比如在4和5之间插入5，则后面的数自动变为6，7，8，9，......
     我希望改动了一个数后，后面的数字自动改变，而不需进行选择。不知这个问题能不能解决?!
     再次谢谢龙龙仔！谢谢所有热心的朋友！期待你们的帮助!