ANY LISP AVAILABLE TO INCREMENTAL THE SUFFIX TEXT OR NUMBER VALUE IN A TEXT OR MTEXT OR ATTRIBUTE VALUE BY 1 OR 2.

[karthikeyanskm]

ANY LISP AVAILABLE TO INCREMENTAL THE SUFFIX TEXT OR NUMBER VALUE IN A TEXT OR MTEXT OR ATTRIBUTE VALUE BY 1 OR 2.

[Kent1Cooper]

Do a little bit of searching.  There are many topics like this in this Forum.

[EnM4st3r]

my lisp i used some time ago to increment suffix:

(defun c:renumber (/ renumber-fn ss gr g2)
  
  (defun renumber-fn (ss val / i obj str prefix)
    (setq i 0)
    (while (< i (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss i))
            str (vla-get-textstring obj)
            prefix (vl-string-right-trim "-0123456789" str)
      )
      (vla-put-textstring obj (strcat prefix (itoa (+ val (atoi (vl-string-subst "" prefix str))))))
      (setq i (1+ i))
    )
  )
  
  (setq ss (ssget '((0 . "TEXT,MTEXT"))))
  
  (princ "\nIncrement[+], Decrement[-] ") ; princs supposed keys
  (while 
    (progn
      (setq gr (grread)
            g2 (cadr gr)
      )
      (cond
        ((= g2 43);43 = [+]
          (renumber-fn ss 1)
          )
        ((= g2 45);45 = [-]
          (renumber-fn ss -1)
        )
      )
    )
  )
)