copy text

;Copy TEXT, MTEXT, DIMENSION
;www.vietlisp.com
;--------------------------------------------------------------------
(defun c:mat (/ source target itarget str)
(command "undo" "be")

(prompt "\nSelect *TEXT, DIMENSION source:")
(setq source (ssget "+.:S:N" '((0 . "*TEXT,DIMENSION"))))
(if (and
source
(setq source (ssname source 0))
(setq str (cdr (assoc 1 (entget source))))
(progn (prompt "\nSelect *TEXT, DIMENSION Target:") T)
(setq target (ssget '((0 . "*TEXT,DIMENSION"))))
)
(progn
(setq i 0)
(while (setq itarget (ssname target i))
(entmod (subst (cons 1 str) (assoc 1 (entget itarget)) (entget itarget)))
(setq i (1+ i))
)

(command "undo" "be")
(redraw)
)))

(defun C:test(/ tn)
(setq tn (cdr (assoc 1 (entget (car (entsel "\nChon text nguon:"))))))
(princ "\nChon text dich de copy...")
(mapcar '(lambda(x) (entmod (subst (cons 1 tn) (assoc 1 (entget x)) (entget x)))) (acet-ss-to-list (ssget '((0 . "TEXT")))))
)

Nguồn bài viết : https://www.cadviet.com/forum/topic/99032-nh%E1%BB%9D-vi%E1%BA%BFt-lisp-copy-text/