[ALFMario]

Хотелось бы лисп, но сам не смогу, знания мизерные. Конечно можно и без него обойтись, но хочеться автоматизации и может меньше ошибок будет. Действия такие: выбираю чертжеж или часть чертежа рамочкой, программа (лисп) формирует спиок сортируя по именам слоёв и считает количество элементов. Затем вставлям текстовый список по следующему шаблону :
1 строка "имя_слоя" - "количество элементов"
...
n строка "имя_слоя" - "количество элементов"
если в наборе блоки то часть списка формируеться по следующему шаблону:
n строка "имя_блока" - "количество элементов"
Я не знаю трудно это сделать или нет... если бы умел то сделал и не задавал вопросов. Может подскажите функции, команды... или набросок кода...

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

А какие элементы считать, а какие нет?

Вариант:

Код:

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

(defun test (/ selset res _dwgru-conv-pickset-to-list layer)

  (defun _dwgru-conv-pickset-to-list (value / lst)
    (if (= (type value) 'pickset)
      (repeat (setq item (sslength value)) ;_ end setq
        (setq lst (cons (ssname value (setq item (1- item))) lst))
        ) ;_ end repeat
      ) ;_ end
    lst
    ) ;_ end of defun

  (if (setq selset (ssget))
    (progn
      (foreach ent (_dwgru-conv-pickset-to-list selset)
        (if
          (member (setq layer (cdr (assoc 8 (entget ent)))) (mapcar 'car res))
           (setq res (subst (cons layer (1+ (cdr (assoc layer res))))
                            (assoc layer res)
                            res
                            ) ;_ end of subst
                 ) ;_ end of setq
           (setq res (cons (cons layer 1) res))
           ) ;_ end of if
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (princ (apply 'strcat
                (mapcar '(lambda (x)
                           (strcat "Слой : "
                                   (car x)
                                   " :: примитивов : "
                                   (vl-princ-to-string (cdr x))
                                   "\n"
                                   ) ;_ end of strcat
                           ) ;_ end of lambda
                        res
                        ) ;_ end of mapcar
                ) ;_ end of apply
         ) ;_ end of princ
  (princ)
  ) ;_ end of defun

[ALFMario]

Почти то что хотел. Элементы все считать надо. Единственно и то только для удобства что бы сформированный список мтекстом вставлять в чертеж, но это уже мелочи, его можно и из лога текстового окна скопировать.
Вот еще бы такое же только список блоков и их количество.
Огромное спасибо за код, выполняет поставленную задачу.

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

ALFMario, в поиск по форуму (критерий поиска - bcount, например). Вариантов было как у дурака фантиков.

[VVA]

http://dwg.ru/f/showthread.php?t=17333
http://dwg.ru/f/showthread.php?t=9084