;;;"Glue" text strings.  All adopt first's properties.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12/15/2004
;;;>		   EDITED: 08-18-1999
;;;
(defun c:gst ( / ename ent1 ent2 old1 oldsl old10 old11 old40 old50 newstr newsl new1 new10 new11)
(while
  (not
    (and
      (setq ename1 (car(entsel "\nSelect first text string to join: ")))
      (setq ent1 (entget ename1))
      (eq(cdr(assoc 0 ent1))"TEXT")
    );and
  );not
);while
(setq old1 (cdr(assoc 1 ent1)))
(while
  (not
    (and
      (setq ename2 (car(entsel "\nSelect second text string to join: ")))
      (setq ent2 (entget ename2))
      (eq(cdr(assoc 0 ent2))"TEXT")
      (not(eq ename1 ename2))
    );and
  );not
);while
(setq old2 (cdr(assoc 1 ent2)))
(setq new1 (strcat old1 " " old2)
      ent1
        (subst (cons 1 new1)
               (assoc 1 ent1)
               ent1)
);setq
(entmod ent1)
(entdel ename2)
(princ)
);defun