mtext boundary

Hello everyone;

How to get the mtext boundary? I need to draw a rectangle around mtext. I know AutoCAD saves it but where? any idea?

Thanks

 

Use the getboundingbox method. Convert the results of the
lower left corner and upper right corner from safearrays to
lists.

 

If you're not sure how to do what Doug mentioned, here's some functions which return
bounding box points.

Note, if the mtext is at an odd angle the bounding box is not rotated likewise.

Hi Doug.

Joe Burke

(defun GetLL (vobj / mn mx)
(vla-getboundingbox vobj 'mn 'mx)
(vlax-safearray->list mn)
)
(defun GetUR (vobj / mn mx)
(vla-getboundingbox vobj 'mn 'mx)
(vlax-safearray->list mx)
)
(defun GetUL (vobj / mn mx)
(vla-getboundingbox vobj 'mn 'mx)
(list
(car (vlax-safearray->list mn))
(cadr (vlax-safearray->list mx))
'0.0
)
)
(defun GetLR (vobj / mn mx)
(vla-getboundingbox vobj 'mn 'mx)
(list
(car (vlax-safearray->list mx))
(cadr (vlax-safearray->list mn))
'0.0
)
)

 

Or (in 'vanilla' lisp):

(defun MTBox()
(setq MTxt (entget (car (entsel"\nSelect Mtext:..."))))
(setq UpperCorner (cdr (assoc 10 MTxt)))
(setq TxtLength (cdr (assoc 42 MTxt)))
(setq TxtHeight (cdr (assoc 43 MTxt)))
(setq LowerCorner (list (+ (car UpperCorner) TxtLength) (- (cadr UpperCorner) TxtHeight)))
(command "rectangle" UpperCorner LowerCorner)
(princ)
);end defun


Jim

 

You may prefer (textbox) with a little post-processing if your text may be
rotated.
--
James Allen, EIT
Malicoat-Winslow Engineers, P.C.
Columbia, MO

know AutoCAD saves it but where? any idea?

 

James,

Texbox doesn't work with mtext, text and attributes only.

Joe Burke

 

Hmph! That's good to know. (Shows how much I've actually used it...)
I don't see that documented; guess I just missed it.

James