;;;PT.LSP by M Remfrey
;;;Rankine & Hill Limited
;;;last edit 11-7-91

(defun c:PT (/ tent otext ntext)
 (graphscr)
 (setvar "cmdecho" 0)
 (WHILE
 (setq tent (entget (car (entsel "\nSelect text to change: "))))
 (setq otext (cdr (assoc 1 tent)))
 (setq ntext (cdr (assoc 1 (entget (car (entsel "\nSelect new text: "))))))
 (setq tent (subst (cons 1 ntext) (cons 1 otext) tent))
 (entmod tent)
 )
 (princ)
)