get max width of mtext.

[blueshake]

I search the forum. and get codes in this thread.http://www.cadtutor.net/forum/showthread.php?35109-Mtext-width&p=230733&viewfull=1#post230733

 

some codes are not clear to me.

if I just want to get max width of the mtext.what should I do?? thanks.

[Lt Dan's legs]

 
(defun c:test (/ ent)
 (while
   (not
     (and
       (setq ent (car (entsel "\nSelect mtext: ")))
       (eq "MTEXT" (cdr (assoc 0 (setq ent (entget ent)))))
     )
   )
   (prompt "\nMissed!! Try again!")
 )
 (prompt (rtos (cdr (assoc 41 ent)) 4 4))
 (princ)
)

[Guest kruuger]

http://kojacek.republika.pl/mtext.html

it is polish site but you got code at the bottom

kruuger

[Lee Mac]

Yuck - I hate my old code

 

Here is a better routine:

 

http://www.cadtutor.net/forum/showthread.php?52031-Start-and-End-points-of-a-TEXT&p=352471&viewfull=1#post352471

[blueshake]

thank you .all

@Lee Mac

it is a very cool routine.