[Юрий_2007z]

здраствуйте,
помогите пожалусто с программой.
цель: взять весь список блоков, использованных на чертеже, посчитать количество элементов (сколько копий одного блока),
результаты сохранить в файл в виде ' имя блока = количество ' ...

липсом занимаюсь недавно. :roll:
работать с файлами научился...

столкнулся с проблеммой что не могу согласовать переменныю символьную и имя блока (для подсчета количества).

А очень хотелось бы это автоматизировать...

(defun C:CB1 ( / bname ss)
; создание списка блоков текущего файла
(setq block (tblnext "BLOCK" 1)) ;_ end of setq
(while block
(if (not (setq descr (cdr (assoc 4 block))))
(setq descr "")
) ;_ end of if


; поиск блоков в выделенной области
; ***
(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)
; ***
; поиск блоков в выделенной области


(setq result (cons (list (cdr (assoc 2 block)) descr) result))
(setq block (tblnext "BLOCK"))
) ;_ end of while

)
(princ "\nНаберите CB1 ")

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

bcount, по-моему, достаточно будет. Правда, не для динамических блоков...
Хотя, попробуй:

Код:

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

(defun c:cb2 (/ file_name file_handle selset res blk_name *error*)
  (defun *error* (msg)
    (vl-catch-all-error-p (vl-catch-all-apply '(lambda () (close file_handle))))
    (princ msg)
    (princ)
    ) ;_ end of defun
  (if (and (setq file_name (getfiled "Файл результата" "" "txt" 1))
           (setq selset (ssget '((0 . "INSERT"))))
           ) ;_ end of and
    (progn
      (foreach item
               (mapcar 'vlax-ename->vla-object
                       (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                       ) ;_ end of mapcar
        (setq blk_name (if (vlax-property-available-p item 'effectivename)
                         (vla-get-effectivename item)
                         (vla-get-name item)
                         ) ;_ end of if
              ) ;_ end of setq
          ; (cdr (assoc 2 (entget item))))
        (if (member blk_name (mapcar 'car res))
          (setq res (subst (cons blk_name (1+ (cdr (assoc blk_name res))))
                           (assoc blk_name res)
                           res
                           ) ;_ end of subst
                ) ;_ end of setq
          (setq res (cons (cons blk_name 1) res))
          ) ;_ end of if
        ) ;_ end of foreach
      (setq file_handle (open file_name "w"))
      (foreach item res
        (write-line (strcat (car item) "=" (itoa (cdr item))) file_handle)
        ) ;_ end of foreach
      (close file_handle)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

P.S. Писал под 2005, если под 2006 будут проблемы, сообщи.

[Alaspher]

Ещё тут можно глянуть "Диалоговая функция подсчёта вхождений блоков в файле чертежа".

[VVA]

И тут

**Добавлено**
И тут SBLK — сумма блоков

[Rost]

"КВИК селект", поиск блока по имени. При этом выделятся все указанные блоки, соответсвенно в свойствах будет указано число. Исчо можно FILTER применить, там тоже самое, исчем блок по имени в заданном районе, в результате блоки выделены и мы видем их число.

[Yura]

А eattext разве не считает количество блоков, даже без атрибутов?

[Юрий_2007z]

всем спасибо ...
Особенно Алексею , все пошло на ура и то что надо

[Brendovich]

Воскрешу тему. Попробовал лисп с поста №2.Вначале все работало, радости было много , а через час перезагрузив компьютер лисп отказался работать. Вылазит окошко, чтоб выбрать файл отчета, выделяю планы, нажимаю Enter... а отчет пустой
Чтобы ето могло быть? (Автокад 2008 rus)

[VVA]

Обновил ссылки в #4
А так еще
Подсчет блоков в AutoCad2006
Подсчет динамических блоков
По последней ссылке с выводом в Excell