(defun c:bn (/ p b i sr bn l m) (vl-load-com)
  (if (setq p (ssget ":s" '((0 . "*polyline") (70 . 1))))
    (if (setq b (ssget "wp" (mapcar 'cdr (vl-remove-if-not '(lambda(a) (= (car a) 10))
          (entget (ssname p 0)))) (list (cons 0 "insert"))))
      (progn
        (repeat (setq i (sslength b))
          (if (setq sr (vl-position (setq bn (vla-get-EffectiveName
                (vlax-ename->vla-object (ssname b (setq i (1- i))))))
                (mapcar '(lambda(b) (car b)) l)))
            (setq l (subst (list (car (nth sr l)) (1+ (cadr (nth sr l)))) (nth sr l) l))
            (setq l (cons (list bn 1) l))))
        (foreach m (vl-sort l '(lambda (x y) (< (car x) (car y))))
          (princ (strcat "\n" (car m) ": " (rtos (cadr m) 2 0) " Ad")))
        (prompt (strcat "\nTotal: " (rtos (sslength b) 2 0) " Ad")) (textpage)
      ) (alert "Block object was not found")
    )
  ) (princ)
)