(defun c:cht(/ e ent en newt oldt ent1)
(setq e (car (entsel \ (if (/= e nil) (progn
(setq ent (entget e))
(cond ((and (= (cdr (assoc 0 ent)) \ (progn
(setq en (entget (setq ent (entnext e)))) (setq oldt (cdr (assoc 1 en)))
(setq newt (getstring T (strcat \ (if (= newt \
(setq ent1 (subst (cons (car (assoc 1 en)) newt) (assoc 1 en) en)) (entmod ent1) (entupd ent) ))
((= (cdr (assoc 0 ent)) \ (progn
(setq oldt (cdr (assoc 1 ent)))
(setq newt (getstring T (strcat \ (if (= newt \
(setq ent1 (subst (cons (car (assoc 1 ent)) newt) (assoc 1 ent) ent)) (entmod ent1) ))
(T (princ \ ) ) )
(princ) )