(defun c:zh()
  (setq copiedtext (car (entsel "\nPick be copied text or a attrib: ")))
   (setq origintext (car (entsel "\nPick original text or a attrib: ")))
  (setq ott (entget origintext))
  (setq ctt (entget copiedtext))
  (setq oldt (cdr (assoc 1 ott)))
  (setq newt (cdr (assoc 1 ctt)))
  (setq newt (strcat oldt " " newt))
  (setq ott (subst (cons (car (assoc 1 ott)) newt) (assoc 1 ott) ott))
          (entmod ott)
          (entupd origintext)
(command "erase" copiedtext "") 
)