Reduce Mtext to Actual String Width?

[Simon]

Hi all,

Is there a way to quickly reduce Mtext entities to the actual width of the
text string? I've got lots of short strings (one word) with big paragraph
widths, i.e. the grips extend far beyond the actual text. MatchProp is ok,
but doesn't really reduce widths to the actual string length.

Simon.

[Kate M]

Set width to 0? If they're all one line anyway...

[Simon]

Thanks, Kate. I have hundreds of these "one liners" at different
orientations so MatchProp isn't ideal. Is there better method to use?

Simon.

[Dean Saadallah]

PROPERTIES command, select them all, change the width setting.

--
Dean Saadallah
Add-on products for LT
http://www.pendean.com/lt
--

[Simon]

Perfect:)

Thank-you Dean.

[C Witt]

you could also use this (see attached).. I made it for use with
multi-line mtext, but it works just as well on single line mtext.

Simon wrote:

Perfect:)

Thank-you Dean.

[OLD-CADaver]

Lesee'
Assoc code 41 is the mtext width (distance between grips)
Assoc code 42 is supposedly the width of the actual words
So this might work (completely untested):


(defun c:mtww ()
(command ".undo" "BEGIN")
(setvar "cmdecho" 0)
(setq
old (ssget)
setlgth (sslength old)
co -1
t2 "t"
)
(while (boundp 't2)
(progn
(setq
co (1+ co)
temp (entget (ssname old co))
newtext (subst (cons 41 (cdr (assoc 42 temp))) (assoc 41 temp) temp)
t2 (ssname old (1+ co))
)
(entmod newtext)
)
)
(setq co (1+ co))
(command ".undo" "END")
(princ)
)

[Simon]

Both of these work great, and are even quicker than the prop palette.

Thanks very much, C Witt & OLD-CADaver:)

[OLD-CADaver]

It worked??? cool. You're welcome.