Match your text contents

Autocad Command Prompt : MM

Command:  MM

Select source text:

Selected text destination text:

"This lisp only for dtext not for mtext,if anyone know for mtext please comment"

Download .lsp File   DOWNLOAD


               OR


LISP CODE:

(DEFUN C:MM()
  (SETQ A (ENTSEL "\nSelect source text : "))
  (SETQ LL (ENTGET (CAR A)))
  (SETQ kk (ASSOC 1  LL))
  (SETQ DD (CDR kk))
  (SETQ F (ENTSEL "\nSelect destination text : "))
  (SETQ H (ENTGET (CAR F)))
  (SETQ J (ASSOC 1  H))
  (SETQ UUU (CDR J ))
  (SETQ UUU (CONS 1 DD))
  (SETQ U (SUBST UUU J H ))
  (ENTMOD u)
      )