Change MText content and formating

[hythamthelove]

Hello everyone, i have this Mtext "t=400" i want to change it to "Drop Cap" then under it "THK.=400mm" (as the attached screenshot). I have a lot of Mtexts not just one and it is not always t=400 it may be any other number and i want it to change to the same format and at once by any sort of a lisp. Sample file will be provided.

Thanks in advance.

[ronjonp]

FIND and replace ?

Then to change the width globally:

Open the properties palette and change width to 2500 or something.

[hythamthelove]

it is not 1 text there is a lot of texts and it is not always "t=400", it t= any other number i want the format to change as well

[Kent1Cooper · Accepted solution]

How about this?  In simplest terms, minimally tested:

(defun C:YourCommandName (/ tss n tobj num)
  (if (setq tss (ssget "_X" '((1 . "t=#*"))))
    (repeat (setq n (sslength tss))
      (setq
        tobj (vlax-ename->vla-object (ssname tss (setq n (1- n))))
        num (substr (vla-get-TextString tobj) 3)
      ); setq
      (vla-put-Width tobj 0)
      (vla-put-TextString tobj (strcat "Drop Panel\\PTHK.=" num "mm"))
    ); repeat
  ); if
  (princ)
)

Change "YourCommandName" to whatever you would like it to be.  It assumes no internal formatting in the Mtext content [unless it comes after the "t=" part], and that there will be no others starting with "t=" that you do not want changed in this way, and that what follows that is always appropriate content [representing a number] to put into the expanded format.  Variations from those assumptions can probably be accounted for, if necessary.

[hythamthelove]

Thank you so much. Really appreciated