Подсчет блоков в AutoCad2006

Подсчет блоков в AutoCad2006 · 17.11.2006, 11:13

Подскажите возможно ли как нибудь подсчитать количество блоков используемых на чертеже в система Автокад2006. Если да то как это можно сделать? Очень былобы удобно при составлении спецификации. :idea:

Romanich · 17.11.2006, 11:18

команда BCount, из экспресса

X-DeViL · 17.11.2006, 11:19

QUICKSELECT

согласен с предыд оратором

bcount - вызывается только из командной строки...

Natan · 17.11.2006, 11:51

И что мне с этим делать???? Если можно по подробнее

X-DeViL · 17.11.2006, 12:05

Ну попробовать хэлп почитать

наводку мы тебе дали... а дальше - ты тоже что нибудь сделай, а то "и рыбку съесть, и на х** ссесть" хочешь(с) не ленись и все будет...

Макс Тал. · 17.11.2006, 12:07

Жми правой кнопкой и в меню уже ищи Быстрый выбор или(QUICKSELECT ) зависит от версии далее уже прость выбираеш как искать, или по слою, или по цвету, или по блоку, или по заданной длинне 8) короче там целая куча параметров, не ленись, а просто почитай.

fenix · 17.11.2006, 12:53

если блоки с атрибутами, то можно извлечь атрибуты....заодно и посчитает

maestro · 17.11.2006, 13:16

bcount галимый. Как и все укоманды экспресс тулза он не знает про дин. блоки и тупо игнорирует их, потому что они физически реализованы как анонимные, т.е. начинающиеся со "*". Так что галимая командочка.

ытя · 17.11.2006, 13:19

Цитата:

если блоки с атрибутами, то можно извлечь атрибуты....заодно и посчитает

и без аттрибутов тоже

Кулик Алексей aka kpblc · 17.11.2006, 13:28

Для дин.блоков, без особых проверок, спробуй:

Код:

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

(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
  ) ;_ end of defun

Добавлено: атрибуты не забираются, значения динамических параметров тож.

Rost · 17.11.2006, 15:23

Исчо filter помогает. Смысл такойже как и у КВИКСЕЛЕКТ. Только filter работает на заданной области а не во всем файле.

DEM · 17.11.2006, 15:35

Быстрый выбор тоже работает в выделеной области.

X-DeViL · 17.11.2006, 15:51

kpblc

Нашел чего предлагать, человек не знает как команды писать, а ЛИСП

Кулик Алексей aka kpblc · 17.11.2006, 15:55

Ну ладно тебе, уже и покодить низя.

MCAD · 17.11.2006, 16:33

Для поиска и подсчета блоков подходит команда СПДС, SpQs.
Возможности несколько выше чем у стандартной команды.
• = – равно;
• != – не равно;
• >, < – больше, меньше;
• >=, <= - не меньше, не больше;
• Like - поиск подстроки.
Может быть множественны, тоесть можно искать одновременно несколько блоков по разным условиям, а шаблоны поиска сохранять, для последующего использования.
[ATTACH]1163770424.gif[/ATTACH]

01.12.2006, 15:22

2 Крыс
Хорошая работа.

Кулик Алексей aka kpblc · 01.12.2006, 15:32

Спасибо

Теперь осталось только в автодеск код отправить на предмет внедрения к ET

Ander822 · 16.07.2007, 12:46

А вот если блоки содержат более мелкие блоки, и надо посчитать их количество не взрывая больших блоков?

@LEXx · 16.07.2007, 13:11

количество больших блоковхколичество мелких блокоф в большом блоке

Кулик Алексей aka kpblc · 16.07.2007, 13:11

Так... А вот теперь вопросы

- учитывать ли "родителя"?
- что делать с дин.блоками?
- что делаем с внешними ссылками?

Ander822 · 16.07.2007, 15:21

Цитата:

Сообщение от Кулик Алексей aka kpblc

Так... А вот теперь вопросы

- учитывать ли "родителя"?
- что делать с дин.блоками?
- что делаем с внешними ссылками?

Раодителей можно учесть отдельным пунктом. А что касаетя дин. блоков, то неплохо было бы считать кол-во подблоков на текущий момент. Внешние ссылки пока трогать не будем.

Ander822 · 16.07.2007, 16:26

Мне лично понравилось, как работает извлечение атрибутов, но плохо что нельзя выяснить какие подблоки входят в блок.

Кулик Алексей aka kpblc · 16.07.2007, 16:28

Не думаю, что такое надо. Если считаются блоки, так и считаться должны именно они. Другой вопрос с внешними ссылками и блоками копирования-вставки, но их и "отследить" проще.

allar8 · 29.09.2019, 21:11

Цитата:

Сообщение от Кулик Алексей aka kpblc

(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
) ;_ end of defun

А можно как нить результат программы не выводить в командную строку, а загнать полученное значение кол-ва блоков в пользовательскую переменную например user1,
по аналогии как это сделано в строчке (setvar "user1" (length (layoutlist))) для записи кол-ва лайотов в переменную user1

Кулик Алексей aka kpblc · 29.09.2019, 21:13

А на фига, прошу прощения? Какова конечная цель?

allar8 · 29.09.2019, 21:17

Цитата:

Сообщение от Кулик Алексей aka kpblc

А на фига, прошу прощения? Какова конечная цель?

в рамке в графе "листов" хочу иметь автоматизированное кол-во форматок в модели). Форматка - это дин блок. Подсчитав их кол-во с помощью вашей программы и загнав в переменную user1 можно получить автоматизированное поле кол-ва рамок в модели,
Все остальное для автоматизации я знаю как сделать, осталось только записать кол-во рамок в переменную user1

Сергей812 · 29.09.2019, 23:01

код

Цитата:

Сообщение от allar8

(princ (strcat "\n" (car item) "\t" (vl-princ-to-string (cdr item))))

выводит в комстроку имя блока (car item) и количество в строковом виде (vl-princ-to-string (cdr item)). Вместо вывода в комстроку проверяйте имя блока через if и если это динблок рамки - заносите в "User1" количество.

allar8 · 30.09.2019, 07:06

Цитата:

Сообщение от Сергей812

выводит в комстроку имя блока (car item) и количество в строковом виде (vl-princ-to-string (cdr item)). Вместо вывода в комстроку проверяйте имя блока через if и если это динблок рамки - заносите в "User1" количество.

не понял зачем проверять какое то условие, если уже есть результат. Нужно только результат загнать в user1

----- добавлено через ~1 ч. -----

Цитата:

Сообщение от allar8

Нужно только результат загнать в user1

Ура получилось (setvar "useri1" (cdr item))
Всем спасибо!

Сергей812 · 30.09.2019, 09:35

Цитата:

Сообщение от allar8

не понял зачем проверять какое то условие, если уже есть результат. Нужно только результат загнать в user1

по коду Алексея не вижу, чтобы там производилась какая то селекция блоков по имени. Или в пространстве модели кроме

Цитата:

Сообщение от allar8

автоматизированное кол-во форматок в модели). Форматка - это дин блок.

больше вставок блоков нет?

allar8 · 30.09.2019, 09:38

Цитата:

Сообщение от Сергей812

по коду Алексея не вижу, чтобы там производилась какая то селекция блоков по имени. Или в пространстве модели кроме

Это я знаю как сделать
Нужен был только загон в переменную user1
Правда для полной автоматизации не хватает еще одного штриха
как выбрать все объекты лиспом?
(command "_AI_SELALL") - не работает

Хмурый · 30.09.2019, 09:40

_SELECT _all

allar8 · 30.09.2019, 09:48

Цитата:

Сообщение от Хмурый

_SELECT _all

работает, но после выполнения (command "_SELECT" "_all") диалог не прекращается. Как прекратить диалог и оставить выбранные объекты?

Сергей812 · 30.09.2019, 10:13

Цитата:

Сообщение от allar8

при открытии файла запускать этот лисп

почему только при открытии? Пользователь добавил/удалил форматки и закрыл файл - и вся автоматизация счетчика лесом, информация в useri некорректна, а если будет открыта на компе без данной надстройки - то и не обновиться..

allar8 · 30.09.2019, 10:16

Цитата:

Сообщение от Сергей812

почему только при открытии? Пользователь добавил/удалил форматки и закрыл файл - и вся автоматизация счетчика лесом, информация в useri некорректна, а если будет открыта на компе без данной надстройки - то и не обновиться..

Готовое решение опишу позже. Но сейчас остался штрих с выбором всего лиспом
(command "_SELECT" "_all") диалог не прекращается. Как прекратить диалог и оставить выбранные объекты?

Сергей812 · 30.09.2019, 10:35

Цитата:

Сообщение от allar8

(command "_SELECT" "_all") диалог не прекращается. Как прекратить диалог и оставить выбранные объекты?

что дальше будет делаться с этим выделением? Почему нельзя получить через ssget с соответствующим ключем?

allar8 · 30.09.2019, 10:53

Цитата:

Сообщение от Сергей812

что дальше будет делаться с этим выделением?

дальше вот:

Код:

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

(defun mfunc(/ selset) (if (setq selset (ssget '((8 . "Формат")))) (sssetfirst selset selset)))
(mfunc)
(defun mfunc(/ selset) (if (setq selset (ssget '((0 . "Insert")))) (sssetfirst selset selset)))
(mfunc)

Т.е. из всего выбранного выбираю свои рамки без диалога
Потом модифицированный blockcount с вашей подсказкой для записи в переменную useri1

----- добавлено через ~4 мин. -----

Цитата:

Сообщение от Сергей812

Почему нельзя получить через ssget с соответствующим ключем?

Не знаю что это, т.к. опыта маловато. Если подскажете буду благодарен

Сергей812 · 30.09.2019, 11:11

Если были бы идеальные пользователи, которые на слое "Формат" размещали бы исключительно блоки форматок, то все ваши метания в одну строку кода умещаются)

Код:

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

 (setvar "useri1" (sslength (ssget "_X" '((0 . "INSERT") (8 . "Формат")))))

правда при отсутствии блоков форматов или слоя вылетит ошибка, так как ssget вернет nil. Поэтому в две строчки все таки придется с контролем на nil.

но поскольку идеальных пользователей не существует, то придется пройти по полученному набору вставок блоков

Код:

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

 (ssget "_X" '((0 . "INSERT") (8 . "Формат")))

и посчитать, сколько среди них динамических блоков с именем форматки.

allar8 · 30.09.2019, 11:17

Цитата:

Сообщение от Сергей812

(setvar "useri1" (sslength (ssget "_X" '((0 . "INSERT") (8 . "Формат")))))

Супер, то что надо. Спасибо огромное!
Все элегантно и красиво! Вам респект!

Сергей812 · 30.09.2019, 11:53

Цитата:

Сообщение от allar8

Все элегантно и красиво!

но неработоспособно в реальных условиях: на слое "Формат" проектировщик влепит левые блоки, перенесет вставки блоков форматок на другой слой (все чисто случайно, так как голова занята совершенно другими проблемами в данный момент). Работоспособно - получить вставки блоков без учета слоя:

Код:

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

 (ssget "_X" '((0 . "INSERT")))

и

Цитата:

Сообщение от Сергей812

и посчитать, сколько среди них динамических блоков с именем форматки.

allar8 · 30.09.2019, 12:00

Цитата:

Сообщение от Сергей812

но неработоспособно в реальных условиях: на слое "Формат" проектировщик влепит левые блоки, перенесет вставки блоков форматок на другой слой (все чисто случайно, так как голова занята совершенно другими проблемами в данный момент)

Это согласен, но слой тут пришил из-за того что у дин блоков нужный dxf код имени блока не является таковым
(2 . "*U12")

Цитата:

Сообщение от Сергей812

Работоспособно - получить вставки блоков без учета слоя:

Цитата:

Сообщение от Сергей812

и посчитать, сколько среди них динамических блоков с именем форматки.

По имени блока было бы ваще супер. Но как это сделать с дин блоком?

Сергей812 · 30.09.2019, 12:14

Берете код blockcount от Алексея, и модифицируете - в цикле по входному набору всех вставок блоков после получения имени блока name вместо формирования списка {имя блока, количество} проверяете через if совпадение переменной name с именем блока форматки и если совпало, то увеличиваете переменную счетчика. Ну и вместо вывода сформированного списка в комстроку заносите значение переменной счетчика в useri1. Постарайтесь при этом лишние скобки не затереть, относящиеся к границе цикла и самой функции)

allar8 · 30.09.2019, 12:36

Цитата:

Сообщение от Сергей812

Берете код blockcount от Алексея, и модифицируете - в цикле по входному набору всех вставок блоков после получения имени блока name вместо формирования списка {имя блока, количество} проверяете через if совпадение переменной name с именем блока форматки и если совпало, то увеличиваете переменную счетчика. Ну и вместо вывода сформированного списка в комстроку заносите значение переменной счетчика в useri1. Постарайтесь при этом лишние скобки не затереть, относящиеся к границе цикла и самой функции)

Тож эта мысль проскользнула (Я про использование кода Алексея)))). Хорошо спасибо, попробую ковырнуть)

allar8 · 02.10.2019, 11:14

Сергей812, с кодом Алексея пока туго. Изучаю пока Xьювена)
Поэтому пока пользуюсь этим

Цитата:

Сообщение от Сергей812

1(setvar "useri1" (sslength (ssget "_X" '((0 . "INSERT") (8 . "Формат")))))

Нашел один тут недостаток - считает все блоки в слое формат - и даже в листах, а нуно только в модели. Можно как исключить блоки в листах?)
Просто у нас в конторе блин автоматизированные дурацкие никому ненужные шаблоны с рамкой в пространстве листа - эти рамки и портят усю картину)
Могу конечно рамки убрать в другой слой, но помните наверно мою заинтересованность все таки по имени дин блока искать Этот побочный эффект сохранится как я понимаю

Сергей812 · 02.10.2019, 11:34

Цитата:

Сообщение от allar8

Просто у нас в конторе блин автоматизированные дурацкие никому ненужные шаблоны с рамкой в пространстве листа - эти рамки и портят усю картину)

А с чего вы решили - что ваши суперавтоматизированные рамки в пространстве модели кому то нужны?) Время покажет...
А так группу 67 со значением 0 в фильтр выбора добавьте.

allar8 · 02.10.2019, 12:32

Цитата:

Сообщение от Сергей812

А с чего вы решили - что ваши суперавтоматизированные рамки в пространстве модели кому то нужны?) Время покажет...

) да я не претендую на приз за лучшие рамки))).

Цитата:

Сообщение от Сергей812

А так группу 67 со значением 0 в фильтр выбора добавьте.

А за енто Вам огромное спасибо!

17.11.2006, 11:13		#1
Подсчет блоков в AutoCad2006 Natan Самара Регистрация: 16.11.2006 Сообщений: 3 Подскажите возможно ли как нибудь подсчитать количество блоков используемых на чертеже в система Автокад2006. Если да то как это можно сделать? Очень былобы удобно при составлении спецификации. :idea:
Просмотров: 20012