Change 2 first characters fo Mtext

[Anonymous]

Hi masters!! 

As the title says i want to change the 2 first characters of a Mtext.

The selection of those Mtexts will be:

(setq Mset (ssget "X" '((0 . "*text")(1 . "*c/*"))))

I really dont know how to continue.

Thanks in advance!

[dlanorh]

Perhaps by telling us how you want to change them?

[Anonymous]

I want to change the 2 first characters for "1"

[dlanorh · Accepted solution]

  (setq Mset (ssget "X" '((0 . "*text")(1 . "*c/*"))))
  (cond (Mset
          (repeat (setq cnt (sslength Mset))
            (setq ent (ssname Mset (setq cnt (1- cnt)))
                  elst (entget ent)
                  txt (strcat "1" (substr (cdr (assoc 1 elst)) 3))
            )
            (entmod (subst (cons 1 txt) (assoc 1 elst) elst))
          )
        )
  )

[Anonymous]

That worked!

Thank you so much!

[dlanorh]

You have a small error in your ssget statement.

(setq Mset (ssget "X" '((0 . "*text")(1 . "*c/*"))))

this will select text with "c/" anywhere in the text string, but will still change the first two characters. To select "c/" only at the start change your ssget to

(setq Mset (ssget "X" '((0 . "*text")(1 . "c/*"))))

[Anonymous]

Its ok. First 2 characters are 2 numbers and it follows with c/. And i want to change those characters for 1.

Thanks for your help!!