because i can not find word document. only pictures.can not upload,only zip file.  1trim short linehead.  2 scale text and dimension .do not change text's and dimension's contain string.  uploads/520799/picfile1.rar  3 Different writing brush picture word height   (principle: Continue to exclude the narrow range of options)  (defun c:tt(/)   (setq s(ssget (LIST (CONS 0  "*text") ) )   )   (while s      (setq en(ssname s 0)            h(cdr(assoc 40 (entget en)))            s2(ssget "p" (LIST (CONS 40  h) ) )            sl2(sslength s2)            i  0       )      (alert (strcat "current text high is : " (RTOS h 2 2) "\nReturn  selected corresponding standard word high text\n"))      (if (setq en2 (car(entsel "Choose the corresponding standard word high text:")))       (progn          (setq h2 (cdr(assoc 40 (entget en2))))            (repeat sl2              (setq en3(ssname s2 i)                    enl(entget en3)                    i(1+ i)               )              (entmod(subst(cons 40 h2)(assoc 40 enl)enl))            )       )      )      (command "select" s "R" s2 "" )       (setq s (ssget "P"))   ))