LISP to trim the first character of multiple texts

[Anonymous]

I need a Lisp that can trim the first character of multiple texts.

Please help

thank you in advance.

[Kent1Cooper]

If they're all Text/Mtext without any internal formatting  before the first "real" character, maybe something like this [in simplest terms, minimally tested]:

(defun C:T-1 (/ ss n tdata)
  (prompt "\nTo remove the first character from Text/Mtext,")
  (if (setq ss (ssget '((0 . "*TEXT"))))
    (repeat (setq n (sslength ss)); then
      (setq tdata (entget (ssname ss (setq n (1- n)))))
      (entmod
        (subst
          (cons 1 (substr (cdr (assoc 1 tdata)) 2)); drop first character
          (assoc 1 tdata)
          tdata
        )
      )
    )
  )
)

[lewyee1976]

mod code to trim from last char！

(defun C:TRR (/ ss n tdata)
(prompt "\nTo remove the first character from Text/Mtext,")
(if (setq ss (ssget '((0 . "*TEXT"))))
(repeat (setq n (sslength ss)); then
(setq tdata (entget (ssname ss (setq n (1- n)))))
(entmod
(subst
(cons 1 (substr (cdr (assoc 1 tdata)) 1 (-(strlen (cdr(assoc 1 tdata))) 3))) ; drop last character
(assoc 1 tdata)
tdata
)
)
)
)
)

[Kent1Cooper]

---

@lewyee1976 wrote:

mod code to trim from last char！

....
(prompt "\nTo remove the first character from Text/Mtext,")
....

---

[You should also change the wording of the prompt.]