[求助]数字插入的问题

walkmanlh

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

xazhji

哈哈！我这里有！不仅能+、-、*、/ 样样都可以，数字也可以自己定，我把这个工具叫“屏幕算盘”。

walkmanlh

嘿嘿，这位大虾，贴出来嘛！！

龙龙仔

;;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)
)