(defun c:yazideg (/ yazi_ne)
  (setq yazi_ne (getstring t "
Aranacak yazı:"))
  (setq yazi_ss (getstring t "
Yeni Yazı:"))
  (setq yazi_sec (ssget (list (cons 1 yazi_ne))))
  (if (= yazi_sec nil)
    (progn
      (princ "
Seçim yok!!!")
    )
    (progn
      (setq c 0)
      (setq yazi_adet (sslength yazi_sec))
      (while (< c yazi_adet)
(setq yazi_tek (ssname yazi_sec c))
(setq yazi_1a (cdr (assoc 1 (entget yazi_tek))))
(setq yazi_deg (entget yazi_tek))
(setq yazi_deg (append yazi_deg (list (cons 1 yazi_ss))))
(entmod yazi_deg)
(redraw)
(setq c (+ c 1))
      )
    )
  )
  (princ)
)
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")