;"Glue" text strings.  All adopt first's properties.
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
(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