Under line the text using lisp in a single click

Command:  G

Select  text:

Enter:

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

Download .lsp File   DOWNLOAD

        OR

LISP CODE:

(defun C:G()
  (setq a (ssget))
  (setq b (sslength a))
  (setq d 0)
  (while (/= d b)
    (setq c (ssname a d))
    (setq d (+ 1 d))
    (setq e (entget c))
    (setq c (assoc 1 e))
    (setq v (cdr c))
    (setq m "%%u")
    (setq j (strcat m v))
    (setq n (cons 1 j))
    (setq u (subst n c e))
    (entmod u)
  )
  )