(vl-load-com)
(defun chg_all_link_text (var1 v2 v3 / ha str h thisdrawing)
  (if (not (vlax-erased-p var1))
    (progn
      (setq thisdrawing	(vla-get-activedocument (vlax-get-acad-object))
	    ha		(mapcar	'vl-princ-to-string
				(read (vlax-ldata-get var1 "Link"))
			)
	    str		(vla-get-textstring var1)
	   ;; h		(vla-get-height var1)
      )
      (mapcar '(lambda (x / obj)
		 (setq obj (vla-handletoobject thisdrawing x))
		 (if (/= (vla-get-textstring obj) str)
		   (vla-put-textstring obj str)
		 )
		 ;;(if (/= (vla-get-height obj) h)
		 ;;  (vla-put-height obj h)
		 ;;)
	       )
	      ha
      )
    )
  )
  (princ)
)
(setq ea-Modified-tt
       (VLR-Object-reactor
	 ea-tt-list
	 nil
	 '((:VLR-Modified . chg_all_link_text))
       )
)
(defun c:tt (/ ss ssl i e el ha)
  (if (setq ss (ssget '((0 . "text"))))
    (progn
      (setq ssl	(sslength ss)
	    i	-1
      )
      (repeat ssl
	(setq e (ssname ss (setq i (1+ i))))
	(setq ha (cons (cdr (assoc 5 (entget e))) ha)
	      el (cons e el)
	)
      )
      (mapcar
	'(lambda (x)
	   (vlax-ldata-put
	     x
	     "Link"
	     (vl-princ-to-string
	       (vl-remove (cdr (assoc 5 (entget x))) ha)
	     )
	   )
	   (vlr-owner-add ea-Modified-tt (vlax-ename->vla-object x))
	 )
	el
      )
    )
  )
  (princ)
)