Single Line Stacked MText Combined Togehter

[caltes75]

Is their way to take a group of single line MText that are stacked and make them one MText, but keep them stacked and in order from top to bottom?

[alanjt]

Sort the selected items by their Y value (insertion point) and append each text value to the first item.

 

Did you try Txt2Mtxt?

[Lt Dan's legs]

how about Lee's program? http://www.cadtutor.net/forum/showthread.php?43115-Text-2-MText-Upgraded&p=290605&viewfull=1#post290605

[caltes75]

I have tried txt2mtxt, but does that still work if the text is already mtext?

[Lt Dan's legs]

Try comment #3

[caltes75]

that's awesome!! thanks, Lt Dan's legs.

[alanjt]

This was fun...

 

(defun c:Combine (/ ss)
 ;; Combine MText and Text (sorted by Y value) into top most text object
 ;; Alan J. Thompson, 09.24.10

 (vl-load-com)

 (if (setq ss ((lambda (ss i / e l lst)
                 (if ss
                   (while (setq e (ssname ss (setq i (1+ i))))
                     (setq lst (cons
                                 (list e
                                       (caddr (assoc 10 (setq l (entget e))))
                                       (apply 'strcat
                                              (append (mapcar '(lambda (x)
                                                                 (if (vl-position (car x) '(1 3))
                                                                   (cdr x)
                                                                   ""
                                                                 )
                                                               )
                                                              l
                                                      )
                                                      '("\\P")
                                              )
                                       )
                                 )
                                 lst
                               )
                     )
                   )
                 )
               )
                (ssget "_:L" '((0 . "MTEXT,TEXT")))
                -1
              )
     )
   (vla-put-textstring
     (vlax-ename->vla-object (caar (setq ss (vl-sort ss '(lambda (a b) (> (cadr a) (cadr b)))))))
     (apply 'strcat
            (append (list (caddar ss))
                    (mapcar '(lambda (x) (entdel (car x)) (caddr x)) (cdr ss))
            )
     )
   )
 )
 (princ)
)

[Lee Mac]

that's awesome!! thanks, Lt Dan's legs.

 

 

Glad you like it

[Lt Dan's legs]

Don't thank me, thank Lee

 

You beat me to the reply Lee

[caltes75]

Thank You, Lee. I enjoy your insight on this forum. I am a long time Microstation user and just now switching over to AutoCAD 2010 and yours and everyone else's post have really helped in my transition.

[alanjt]

All for not.

[Lee Mac]

Thank You, Lee. I enjoy your insight on this forum. I am a long time Microstation user and just now switching over to AutoCAD 2010 and yours and everyone else's post have really helped in my transition.

 

You're welcome, I'm glad you could glean something from mine (and others') posts

[Lee Mac]

All for not.

 

Don't be like that Alan - the thread seemed nigh concluded before you posted.

[alanjt]

Don't be like that Alan - the thread seemed nigh concluded before you posted.

I'm not upset, I was just laughing at the situation. I scratched the code out, but was a little behind at getting it posted. I didn't want it to go to waste.

[Lee Mac]

I'm not upset, I was just laughing at the situation. I scratched the code out, but was a little behind at getting it posted. I didn't want it to go to waste.

 

Oh OK

 

stupid10charlimitwishthatcouldbetakenoff

[alanjt]

Oh OK

 

stupid10charlimitwishthatcouldbetakenoff

agr[as;lkfjas;lfkjasdf]eed.