Is there a lisp to merge text styles out there somewhere?
Thank you,
Brad
Hi Brad,try this from Alan
; Design by Alan Handerson
;ADDT = combine line(s) of text to 1st line of text selected
(defun C:ADDT (/ ES1 EG1 TT ES2 EG2)
(setq ES1 (entsel "\nSelect 1st Line of Text to Combine ? "))
(while ES1
(setq EG1 (entget (car ES1)))
(setq TT (cdr (assoc 1 EG1)))
(setq ES2 (entsel "\nSelect Text to combine ? "))
(while ES2
(setq EG2 (entget (car ES2)))
(setq TT (strcat TT " " (cdr (assoc 1 EG2))))
(entdel (cdr (assoc -1 EG2)))
(setq ES2 (entsel "\nSelect another Line of Text to combine ? "))
)
(setq EG1 (subst (cons 1 TT) (assoc 1 EG1) EG1))
(entmod EG1)
(setq ES1 (entsel "\nSelect next 1st Line of Text to Combine ? "))
)
(princ)
)