Changing the size of the Mtext for 0001?

I need a code or help you change the size (Text Height) of all MText to 0.01

On one condition the word (COLUMNS-SALE) must contain the property contents

Some Help ?

 

On one condition the word (COLUMNS-SALE) must contain the property contents

 

What you mean by contain the property contents ?

The text , Sample COLUMNS-SALE=1000

I have same Mtext sample

Mtext COLUMNS-SALE = 1000m2

Mtext COLUMNS-SALE2 = 1000m2

Mtext COLUMNS-SALE =1000m2

Mtext COLUMNS-SALE2=1000m2

If in the text of Mtext contain the text COLUMNS-SALE , change the size to 0.01

Using Lisp;

Things like this ... ?

(defun c:TesT (/ sel)
 (if (ssget "_:L" '((0 . "MTEXT") (1 . "*COLUMNS-SALE*")))
   (progn (vlax-for mt (setq sel (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
            (vla-put-height mt 0.01)
          )
          (vla-delete sel)
   )
 )
 (princ)
)
(vl-load-com)

Tharwat ,

That was it, just wanted to know how I can modify to

not need to select the MText, ie to make it all MText?

The Cad is asking to me select an object.

Tharwat ,

 

The Cad is asking to me select an object.

Replace this ...

"_:L"

With this ..

"_x"

But be careful to have all layers on .

Thanks you Teacher

Thanks you Teacher

You're welcome any time.