Lisp tìm kiếm và thay thế text cũ bằng text mới

;; free lisp from cadviet.com
;;; this lisp was downloaded from https://www.cadviet.com/forum/topic/14946-lisp-thay-th%E1%BA%BF-l%E1%BB%87nh-replace-all/
(defun ReplaceString (old_str new_str str / m n)
(setq m 0 n (strlen new_str))
(while (setq m (vl-string-search old_str str m))
(setq str (vl-string-subst new_str old_str str m))
(setq m (+ n m))
)
str
)
(defun c:hg1 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "b×nh å thiÕt kÕ TUYÕN" new_text "b×nh å kh¶o s¸t tuyÕn")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg11 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "B§TK" new_text "BDKS")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg2 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tr¾c däc thiÕt kÕ tuyÕn" new_text "tr¾c däc kh¶o s¸t tuyÕn")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg22 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "TDTK" new_text "TDKS")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg3 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tr¾c ngang thiÕt kÕ TUYÕN" new_text "tr¾c ngang kh¶o s¸t tuyÕn")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg33 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tNtk" new_text "TNKS")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg4 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tr¾c ngang thiÕt kÕ" new_text "tr¾c ngang kh¶o s¸t ")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg44 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tntk" new_text "tnks")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
tr¾c däc thiÕt kÕ
(defun c:hg5 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tr¾c däc thiÕt kÕ" new_text "tr¾c däc kh¶o s¸t")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg55 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "tdtk" new_text "tdks")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg6 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "b×nh å thiÕt kÕ " new_text "b×nh å kh¶o s¸t ")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))
(defun c:hg66 (/ new_text old_text ss str)
(or vlax-ename->vla-object (vl-load-com))
(setq old_text "B§tk " new_text "B§ks ")
(ssget "_X" (list (cons 0 "*TEXT")(cons 1 (strcat"*"old_text "*") )))
(if (setq ss (vla-get-activeSelectionSet (vla-get-activedocument(vlax-get-acad-object))))
(vlax-for obj ss
(setq str (vla-get-TextString obj)
str (ReplaceString old_text new_text str))
(vla-put-textstring obj str)
)
)
(princ))