   (defun C:chtx (/ ss ent edata oldstr newstr)
      (promt "\nSelect text objects...")
      (cond
       ((setq ss (ssget))
        (repeat (sslength ss)
         (setq
           ent     (ssname ss 0)
           ss      (ssdel ent ss)
           edata   (entget ent)
         )
         (cond
          ((= "TEXT" (cdr (assoc 0 edata))
           (redraw ent3)  
           (setq oldstr (assoc 1 edata))
           (promt (strcat "\n \nOld string:" (cdr oldstr)))
           (setq newstr (getstring T "\nNew string:"))
           (if (/= newstr "")
            (entmod (subst (cons 1 newstr) oldstr edata))
            (redraw ent)
    ))))))
    (princ)
   )  ;end c:chtx

