Changing the size of the Mtext for 0001?

[rodrigo_sjc_sp]

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 ?

[Tharwat]

 

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

 

 

What you mean by contain the property contents ?

[rodrigo_sjc_sp]

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;

[Tharwat]

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)

Edited January 31, 2013 by Tharwat
Forgot to localize the variable

[rodrigo_sjc_sp]

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]

Tharwat ,

 

The Cad is asking to me select an object.

 

Replace this ...

 

"_:L"

 

With this ..

 

"_x"

 

But be careful to have all layers on .

[rodrigo_sjc_sp]

Thanks you Teacher

[Tharwat]

Thanks you Teacher

 

You're welcome any time.