Here is a useful way to combine two text objects. You can even combine DTEXT objects with MTEXT and vice-versa…
- CT <enter> to start Combine Text
- Select the first text object. (this will be the base text object that the next text object will be added to)
- Select the second text object.
(princ "\CT.LSP (Combine Text) - Matt Pittman\n") (defun C:ct (/ );1strg text1 t1 spc 2strg text2 t2 comb) (setq 1strg (entget (car (entsel "\nPick 1st Text.. ")))) (setq text1 (assoc 1 1strg)) (setq t1 (cdr (assoc 1 1strg))) (setq spc " ") (setq 2string (entsel "\nPick 2nd Text.. ")) (setq 2s (car 2string)) (setq 2strg (entget (car 2string))) (setq text2 (assoc 1 2strg)) (setq t2 (cdr (assoc 1 2strg))) (entdel 2s) (setq comb (strcat t1 spc t2)) (setq comb (cons 1 comb)) (setq 1strg (subst comb text1 1strg)) (entmod 1strg) (princ) )