CADForums.net

Simon · Guest

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 · Guest

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

Simon · Guest

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 · Guest

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

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

Simon · Guest

Perfect:)

Thank-you Dean.

C Witt · Guest

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:

OLD-CADaver · Guest

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 · Guest

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

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

OLD-CADaver · Guest

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

	CADForums.net Forum Index -> Drafting	All times are GMT
Page 1 of 1