(defun C:KAC ()
   (setvar "cmdecho" 0)  (command "undo" "group")
   (setq bln "" bln (getstring "\nBlock Adı: "))
   (if (= bln "")
     (progn
       (setq blkm (entget (car (entsel "\nSaymak istediginiz bloku seciniz..."))))
       (while (/= (cdr (assoc 0 blkm)) "INSERT")
(setq blkm (entget (car (entsel "\nSecilen obje bir blok degil! Yeniden seciniz..."))))
       )
       (setq bln (cdr (assoc 2 blkm)))
     )
   )
   (while (= (tblsearch "BLOCK" bln) nil)
     (setq bln (getstring (strcat "\nBu cizimde -" bln "- isimli bir block bulunamadi. \nBlock adini yeniden giriniz : ")))
   )
   (setq bln (cdr (assoc 2 (tblsearch "BLOCK" bln))))
   (princ (strcat "\n-" bln "- Bloklarini Tum cizimde aramak icin Enter giriniz..."))
   (if (= (ssget) nil)
    (setq bls (ssget "x" (list (cons 0 "INSERT") (cons 2 bln))))
    (setq bls (ssget "p" (list (cons 0 "INSERT") (cons 2 bln))))
   )
   (if (= bls nil)
     (princ (strcat "\n   -" bln "- bulunamadi..."))
     (progn (setq quant (sslength bls)) (princ (strcat "\n   " (itoa quant) " adet -" bln "- bulundu")))
   )
   (command "undo" "e")  (prin1)
)