[Юрий_2007z]

Нужен липс для поиска по образцу
искать приходится блоки,
хорошо бы щелкнул блок, выделил область и получил их кол-во, в данной области...

[Zouss]

конкретизируйте, какой лиПс вам нужен - COMMON, VLisp или VBA?
p.s. транслитерация МИФ даёт VBA

[Кулик Алексей aka kpblc]

_.qselect с указанием, например, имени блока. Либо _.filter

[VVA]

Без обработки динамических блоков

Код:

[Выделить все]

(defun C:CB ( / bname ss)
(if (and (setq bname (car(entsel "\nУкажите блок: ")))
	 (setq bname (entget bname))
	 (= (cdr(assoc 0 bname)) "INSERT")
	 (setq ss (ssget (list (assoc 2 bname))))
	 )
  (progn
  (princ (strcat "\nКоличесво " (cdr(assoc 2 bname)) " = " (itoa (sslength ss))))
  (setq ss nil)
  )
  )
  (princ)
  )
(princ "\nНаберите CB (англ) в командной строке")

[VVA]

Вариант с динамическими блоками. Опубликовано kpblc'ом где-то на autocad.ru

Код:

[Выделить все]

(defun c:blockcount (/ adoc selset res name) 
  (vl-load-com) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
  (if (setq selset (ssget '((0 . "INSERT")))) 
    (progn 
      (foreach blk 
               (mapcar 'vlax-ename->vla-object 
                       (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) 
                       ) ;_ end of mapcar 
        (setq name (cond 
                     ((and (vlax-property-available-p blk 'isdynamicblock) 
                           (= (vla-get-isdynamicblock blk) :vlax-true) 
                           ) ;_ end of and 
                      (vla-get-effectivename blk) 
                      ) 
                     (t (vla-get-name blk)) 
                     ) ;_ end of cond 
              ) ;_ end of setq 
        (if (member name (mapcar 'car res)) 
          (setq res (subst (cons name (1+ (cdr (assoc name res)))) 
                           (assoc name res) 
                           res 
                           ) ;_ end of subst 
                ) ;_ end of setq 
          (setq res (append res (list (cons name 1)))) 
          ) ;_ end of if 
        ) ;_ end of foreach 
      (princ "\nИмя\tКоличество") 
      (foreach item res 
        (princ (strcat "\n" (car item) "\t= " (vl-princ-to-string (cdr item)))) 
        ) ;_ end of foreach 
      (princ) 
      ) ;_ end of progn 
    ) ;_ end of if 
  )