;|---------------------------------------------------------------------------|
| OverKiLL bLocks                                                           |
|    Seçilen bölüm veya tüm çizim içinde, aynı konumda (üst üste) olan      |
|    bLock'lar kontrol edilerek, çakışmalar varsa bir tanesi bırakılar,     |
|    diğerleri silinir. BLock'ların "BLock Name", "Insertion Point",        |
|    "Angle", "X Scale", "Y Scale" ve "Z Scale" değerleri biribirinin       |
|    aynı ise, diğer özelliklerine (Layer, CoLor, Linetype,... etc.)        |
|    bakılmaksızın çakışıyor kabul edilirler.                               |
|          Hazırlayan: M. Şahin Güvercin 06/12/2011 - www.autocadokulu.com  |
|---------------------------------------------------------------------------|;
(write-line "\nPrepared by: M. Sahin Guvercin www.autocadokulu.com")
(defun c:oKb (/ bLks L n sYc pVtbL m n0 i0 a0 x0 y0 z0 cmpbL n1 i1 a1 x1 y1 z1)
  (setvar "cmdecho" 0) (command "undo" "group")
  (defun *error* (er) (princ (strcat "\n" er)) (command "_.undo" "e")
    (setq *error* nil) (princ "\nM. Sahin Guvercin  www.autocadokulu.com"))
  (princ "\nSelect BLocks for Overkill operations: ")
  (setq bLks (ssget (list (cons 0 "INSERT"))) L (sslength bLks) n -1 sYc 0)
  (while (< (setq n (1+ n)) (1- L))
    (setq pVtbL (entget (ssname bLks n)) m n n0 (assoc 2 pVtbL)
          i0 (assoc 10 pVtbL) a0 (assoc 50 pVtbL)
          x0 (assoc 41 pVtbL) y0 (assoc 42 pVtbL) z0 (assoc 43 pVtbL))
    (while (< (setq m (1+ m)) L)
      (setq cmpbL (entget (ssname bLks m)) n1 (assoc 2 cmpbL)
            i1 (assoc 10 cmpbL) a1 (assoc 50 cmpbL)
            x1 (assoc 41 cmpbL) y1 (assoc 42 cmpbL) z1 (assoc 43 cmpbL))
      (if (and (mapcar '(lambda (p1 p2) (equal (eval p1) (eval p2)))
                       '(n0 i0 a0 x0 y0 z0) '(n1 i1 a1 x1 y1 z1)))
        (progn (ssdel (cdr (assoc -1 cmpbL)) bLks)
              (entdel (cdr (assoc -1 cmpbL)))
          (setq L (sslength bLks) m (1- m) sYc (1+ sYc))))))
  (princ (strcat "\n** " (itoa sYc) " overlapped bLocks removed **"))
  (setq *error* nil) (command "undo" "e") (prin1)
)