Topic: Mtext/Multileader Text Shrinkwrap

[Dave M]

I am working on a project that has a lot of Mtext and Multileaders with text and the box widths and heights are all over the place.  Normally, it wouldn't be a problem, but when you mask them it is.  Does anyone have a routine that would essentially "shrinkwrap" the boundary to fit the text? Both width and height?


Thanks in advance!

[ribarm]

My first thought and what I'd do is use (textbox) function to obtain bounding box points of text, or (vla-getboundingbox) method to get bb points and then I'd create new rectangle while (entdel) existing one that's buggy...

[roy_043]

AFAIK the textbox function cannot handle mtext formatting. And the boundingbox won't give the required values here. Look at gc 42 and 43 in the entity list instead.

[ribarm]

What's wrong with TEXTMASK.LSP - Express Tools or TCIRCLE command - ACETTXT.LSP - Express Tools?

[ronjonp]

Have you seen this for MTEXT?
http://www.theswamp.org/index.php?topic=38691.msg438005#msg438005
or
http://www.theswamp.org/index.php?topic=38691.msg437960#msg437960

[Dave M]

What's wrong with TEXTMASK.LSP - Express Tools or TCIRCLE command - ACETTXT.LSP - Express Tools?

Maybe I didn't make myself clear enough.  When the original drafter placed the mtext/mleaders, they placed them using rectangles much larger than needed.  I want to shrink them to the extents of the actual text.

[roy_043]

Code - Auto/Visual Lisp: [Select]

1. ; (MtextShrinkBox (car (entsel)))
2. (defun MtextShrinkBox (enm / elst)
3.   (setq elst (entget enm))
4.   (entmod
5.     (subst
6.       (cons 41 (cdr (assoc 42 elst))) ; Box width.
7.       (assoc 41 elst)
8.       (subst
9.         ; (cons 46 (cdr (assoc 43 elst))) ; Box height.
10.         '(46 . 0.0)
11.         (assoc 46 elst)
12.         elst
13.       )
14.     )
15.   )
16. )