Link to AutoCAD Tips

Here is a useful way to combine two text objects. You can even combine DTEXT objects with MTEXT and vice-versa…

Here’s how:

• 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.

~enjoy

(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)
)