Mengganti text dengan cepat

 Bagi yang sering mengganti text dengan nilai tertentu, misalnya mengganti text untuk diameter pipa, trik ini mudah-mudahan bisa membantu. misalnya kita cuma memberikan perintah "25" dan text yang dipilih menjadi "25WW-PVC.AW".

(defun c:25(/ ada pil_text ent_text)
(setq ada "true")
(while ada
(setq pil_text (car (entsel "\nPilih Text yang mo diisi!") ))
(if (/= pil_text nil) (setq ada nil))
) ;end while
(setq ent_text (entget pil_text))
(setq ent_text (subst (cons 1 "25WW-PVC.AW") (assoc 1 ent_text) ent_text))
(entmod ent_text)
(princ)
)