(defun chgterr (s)
    (if (/= s "function cancelled")
        (princ (strcat "nerror: " s))
    )
    (setq p nil)
    (setq *error* olderr)
    (princ)
)
(defun c:ara ()
    (setq olderr *error*
          *error* chgterr
          buyut 100
          cnt 0)
    (setq echostat (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (setq aranacak (getstring t "nAranacak dizi: "))
    (setq a_uz (strlen aranacak))
    (princ "Cizimdeki tum yazilarda arama yapmak icin <Enter>'e basinizn")
    (setq sset (ssget))
    (if (not sset) (setq sset (ssget "X" (list (cons 0 "TEXT")))))
    (setq ssl (sslength sset)
          devam t     
    )
    (while (and (> ssl 0) devam)
        (setq temp (ssname sset (setq ssl (1- ssl))))
        (if (= (cdr (assoc 0 (entget temp))) "TEXT")
            (progn
                (setq yazi (cdr (assoc 1 (entget temp))))
                (setq bulundu nil
                      pos 0
                      uz (strlen yazi))
                (while (and (>= uz (+ pos a_uz)) (not bulundu)) 
                    (setq s (substr yazi (+ pos 1) a_uz))
                    (if (= s aranacak)
                        (setq bulundu t)
                    )
                    (setq pos (1+ pos))
                )      ; text içinde arama için
                (if bulundu
                    (progn
                        (setq p1 (assoc 10 (entget temp)))
                        (command "zoom" "c" (cdr p1) buyut)
                        (initget "Evet Hayir")
                        (setq msg_str (strcat "nSonraki [" aranacak "] <Evet Hayir>? "))
                        (setq cevap (getkword msg_str))
                        (if (= cevap "Hayir") (setq devam nil))
                    )
                )
            )                        ; progn için
        )                            ; eleman text 'mi ?

    )                                ; tüm elemanlar bitene kadar
    (setq *error* olderr)
    (setvar "cmdecho" echostat)
    (princ)
)
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")