(defun c:tbb ()
  (setvar "modemacro" "CopyRight © Archme -->EhYa<--")
  (setq tbb_ent (entsel "\nYazıyı seç:"))
  (if (= tbb_ent nil)
    (progn
    )
    (progn
      (setq tbb_tan (cdr (assoc 0 (entget (car tbb_ent)))))
      (if (/= tbb_tan "TEXT")
(progn
  (princ "\nSeçilen nesne yazı değil...!!!")
)
(progn
  (setq tbb_c1 0)
  (setq tbb_c2 1)
  (setq tbb_sira nil)
  (setq tbb_ne (cdr (assoc 1 (entget (car tbb_ent)))))
  (setq tbb_len (strlen tbb_ne))
  (while (< tbb_c1 tbb_len)
    (setq tbb_t (substr tbb_ne tbb_c2 1))
    (if (= tbb_t "~")
      (progn
(setq tbb_c1 tbb_len)
(setq tbb_sira tbb_c2)
      )
    )
    (setq tbb_c1 (+ tbb_c1 1))
    (setq tbb_c2 (+ tbb_c2 1))
  )
  (if (= tbb_sira nil)
    (progn
      (alert "\nSeçtiğiniz yazı istenilen nitelikte değil...!!!"
      )
    )
    (progn
      (setq tbb_ilk_sayi (substr tbb_ne 1 (- tbb_c2 2))
    tbb_son_sayi (substr tbb_ne tbb_c2 tbb_len)
      )
      (if (= (numberp (distof tbb_ilk_sayi)) nil)
(progn
  (alert "\nİlk değer sayı değil.. Kontrol edin...")
)
(progn
  (if (= (numberp (distof tbb_son_sayi)) nil)
    (progn
      (alert "\nSon değer sayı değil.. Kontrol edin...")
    )
    (progn
      (setq tbb_ort (/ (+ (distof tbb_ilk_sayi)
  (distof tbb_son_sayi)
       )
       2.00
    )
      )
      (alert (strcat "\nİki sayının ortalaması : <  "
     (rtos tbb_ort 2 2)
     "  > :"
     )
      )
    )
  )
)
      )
    )
  )
)
      )
    )
  )
  (princ)
)