I wrote this many moons ago.....
;;;Glue text together, Jeff Mishler's helper tools
(defun c:glu (/ *doc* ent1 ent2 obj1 obj2 txt1 txt2)
(vl-load-com)
(vla-startundomark (setq *doc* (vla-get-activedocument
(vlax-get-acad-object))))
(while (setq ent1 (car (entsel "\nSelect text to glue to: ")))
(and (wcmatch (cdr (assoc 0 (entget ent1))) "TEXT,MTEXT")
(setq obj1 (vlax-ename->vla-object ent1))
(not (vla-highlight obj1 :vlax-true))
(setq ent2 (car (entsel "\nSelect text to glue to first text: ")))
(wcmatch (cdr (assoc 0 (entget ent2))) "TEXT,MTEXT")
(setq obj2 (vlax-ename->vla-object ent2)
txt1 (vla-get-textstring obj1)
txt2 (vla-get-textstring obj2)
)
(not (vla-delete obj2))
(vla-put-textstring obj1 (strcat txt1 " " txt2))
(not (vla-highlight obj1 :vlax-false))
)
)
(vla-endundomark *doc*)
(princ)
)
"erickson123" wrote in message news:
[email protected]...
> Hi All,
>
> Remember the old 'glue' command in LDT? Is there a new command to 'glue'
> d-text in C3d 09? Thanks-
>
> Lynn