Text box auto resize

[EmilyB]

Hello,

 

Is there any way to automatically re-size text boxes to fit text?

 

The reason I ask is that I've got background mask on all my text and have just reduced the text size by half - I'm not looking forward to resizing each box.....

 

Thanks for your time,

Emily

[CyberAngel]

Welcome to the forum!

 

There is no way to do that, as far as I know. It would be nice if AutoCAD resized mtext width automatically when you changed the height. Something for the Wish List, I guess....

[EmilyB]

Thanks for your help!

 

Sounds like its time to get the ipod out while I start resizing!!

 

Cheers,

Emily

[ccowgill]

are you referring to the box that is created when using the express tool textmask? if so, it may be quicker to TEXTUNMASK then TEXTMASK each text entity.

[designerstuart]

if a load of the mtexts are the same size, you can at least do one the right size, then match properties for the rest.

partial answer at best i'm afraid!

[EmilyB]

Thanks for all your advice.

 

Unfortunately I can't match properties as my text is all at different angles.

 

I'll look into the textmask tool as that sounds it'd be helpful to use for new text - just in case I have to resize again.

 

Cheers,

Emily

[ccowgill]

if you use the background mask that is a mtext property, it should automatically resize. and if TextUnmask doesnt get rid of the mask, it sounds like someone created a wipeout manually and put it behind the text.

[Lee Mac]

Would something like this work?

 

(defun c:UpdateMTextWidth ( / ss i e ) (vl-load-com)
 ;; © Lee Mac 2011
 
 (if (setq ss (ssget "_:L" '((0 . "MTEXT"))))
   (repeat (setq i (sslength ss))
     (vla-put-width (vlax-ename->vla-object (setq e (ssname ss (setq i (1- i)))))
       (* 1.05 (cdr (assoc 42 (entget e))))
     )
   )
 )

 (princ)
)

[ccowgill]

I stand corrected, if the mtext has a predefined width, the background mask will not automatically resize. I completely forgot about predefined width, as most of our notes do not have widths.

[bapatri]

Lee Mac is Amazing

[IndianaJackson]

Lee Mac- I copied the following exactly as shown below and pasted it into a notepad and saved it as an .lsp file. Then I went to my UI and loaded the lisp. Then I typed UpdateTextWidth and the command line says Select Objects, but when I select my mtext and press enter, nothing happens. It deselects and ends the command with no comment. Did I do something incorrectly?

 

Thank you, Heidi 

 

(defun c:UpdateMTextWidth ( / ss i e ) (vl-load-com)
 ;; © Lee Mac 2011
 
 (if (setq ss (ssget "_:L" '((0 . "MTEXT"))))
   (repeat (setq i (sslength ss))
     (vla-put-width (vlax-ename->vla-object (setq e (ssname ss (setq i (1- i)))))
       (* 1.05 (cdr (assoc 42 (entget e))))
     )
   )
 )

 (princ)
)