[Mitek]

Есть на первый взгляд элементарная задача. Нужно разбить все блоки в чертеже.
Казалось бы всё просто:

Код:

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

 (sssetfirst nil (ssget "_x" '((0 . "INSERT"))))
(C:Burst)

Но... Проблема в том, что в файлах содержится огромное количество блоков (иногда до 10-20 тысяч).
Я банально не смог дождаться завершения разбиения командой Burst.
Руками всё просто и понятно. Быстрый выбор и взорвать. Тогда взрывание происходит за адекватное время. Но если в лиспе после выбора блоков ставить не (C:Burst), а (command "_explode"), то она не видит выделенных блоков. К тому же по команде взорвать в некоторых версиях AutoCAD (в частности 2015, 2016) вылезает диалоговое окно о том, что операция может занять долгое время и предлагает убрать порядок наложения объектов для ускорения.
Есть варианты как использовать (command "_explode") для выбранных объектов с подавлением этого диалогового окна (с ответом "Да")?

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

А ты в курсе про принципиальную разницу между _.explode и burst?
И потом, на форуме, насколько я помню, были решения по пакетному взрыву блоков.

[kp+]

Дустом Bgtools не пробовали?
Чертежей с таким бешенным количеством блоков не встречал, но с теми, с которыми мне приходилось работать, нормально справляется.
Код там открытый, так что если задача подрыва всех блоков стоит не сама по себе, то можно почерпнуть какие-то идеи для своей проги.

Еще тут кое-что есть по теме.

Offtop: Вопрос "Зачем????" даже стесняюсь задать

[engngr]

Сообщение от Mitek огромное количество блоков (иногда до 10-20 тысяч)

Подоснова что ли? Али ар из архикада?

[trir]

Проблема в том, что в файлах содержится огромное количество блоков (иногда до 10-20 тысяч).

не дождёшся

[===AAA===]

Привет!

Есть варианты как использовать (command "_explode") для выбранных объектов с подавлением этого диалогового окна (с ответом "Да")?

Системная переменная EXPERT не поможет?

[VVA]

Сообщение от Mitek Есть варианты как использовать (command "_explode") для выбранных объектов с подавлением этого диалогового окна (с ответом "Да")?

Еще учти особенности работы команды Explode при вызове из лиспа или скрипта

Сообщение от VVA Обнаружился еще один интересный нюанс использования QAFLAGS. Это касаестя использования команды _EXPLODE при вызове из Lisp-функций и Lisp-скриптов.

QAFLAGS (Системная переменная)

----- добавлено через ~23 мин. -----
Хотя на практике файлы с 10К-20К блоками не встречал

[trir]

Хотя на практике файлы с 10К-20К блоками не встречал

любая топо-съёмка большой площади

[Mitek]

Сообщение от Кулик Алексей aka kpblc А ты в курсе про принципиальную разницу между _.explode и burst?

Да, конечно. _explode - встроенная команда акада, Burst - lisp из ET.

Сообщение от kp+ Bgtools не пробовали?

Пробовал. Не сложилось с ним что-то... Попробую ещё помучить, но есть подозрение, что выполняться по времени он будет как burst.

Сообщение от engngr Подоснова что ли?

Она самая, зараза

Сообщение от ===AAA=== Системная переменная EXPERT не поможет?

Она вроде другие запросы подавляет.

Сообщение от VVA QAFLAGS (Системная переменная)

О, спасибо, поизучаю на досуге

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

Mitek, ты проверь, какие будут результаты разбития одного и того же блока с атрибутами командой explode и командой burst. Что там с атрибутами получится?

[Mitek]

Сообщение от Кулик Алексей aka kpblc Mitek, ты проверь, какие будут результаты разбития одного и того же блока с атрибутами командой explode и командой burst. Что там с атрибутами получится?

Про проблему разбиения блоков с атрибутами в курсе. Слава богу в этой куче нет блоков с атрибутами. Это файлы топосъёмки (экспорт из MicroStation, насколько я знаю).

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

Так если нет атрибутов, на фига использовать burst?

[Mitek]

Сообщение от VVA Еще учти особенности работы команды Explode при вызове из лиспа или скрипта QAFLAGS (Системная переменная) ----- добавлено через ~23 мин. ----- Хотя на практике файлы с 10К-20К блоками не встречал

Вот просто реально огромнейшее спасибо!!! То что надо! Вариант с использованием QAFLAGS работает отлично. Осталось подавить запрос (точнее ответить на него "Да") и вообще будет супер
Кстати, если на запрос ответить "Нет", то разбивка блоков занимает долгое время даже командой explode.

----- добавлено через 55 сек. -----

Сообщение от Кулик Алексей aka kpblc Так если нет атрибутов, на фига использовать burst?

А ты что предлагаешь использовать?

----- добавлено через ~25 мин. -----
А, всё, разобрался с запросом Есть переменная DRAWORDERCTL. Если её выставить в 0, то запрос не выскакивает! https://www.cadforum.cz/cadforum_en/...ration-tip6748
Всё, всем огромнейшее спасибо, особенно ещё раз VVA!!!

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

Пока не знаю. Есть ли в файле неравномасштабные блоки, сколько реально описаний блоков и т.п. Может быть, наиболее быстрым решением вообще окажется работа в неактивном документе.

[Mitek]

Сообщение от Кулик Алексей aka kpblc Пока не знаю. Есть ли в файле неравномасштабные блоки, сколько реально описаний блоков и т.п. Может быть, наиболее быстрым решением вообще окажется работа в неактивном документе.

Да всё, решил проблему благодаря VVA и поиску. Решение хоть и немного топорненькое, но вполне устраивает. Вызов 3 раза разбиения - разбивка блоков внутри блоков.
Сейчас воткну людям в менюшку и пусть пользуются

Код:

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

 (defun blkexpl ( / *error* ss qf ) ;(blkexpl)
 ;; © Lee Mac 2010
  (defun *error* ( msg )
    (and qf (setvar 'QAFLAGS qf))
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **")))
    (princ)
  )
  (if (setq ss (ssget "_X" '((0 . "INSERT"))))
    (progn
      (setq qf (getvar 'QAFLAGS))
      (setvar 'QAFLAGS 5)
      (command "_.explode" ss "")
      (setvar 'QAFLAGS qf)
    )
  )
  (princ)
)

(defun geoprepare()
 (setq droc (getvar "DRAWORDERCTL"))
 (setvar "DRAWORDERCTL" 0)
 (blkexpl)
 (blkexpl)
 (blkexpl)
 (setvar "DRAWORDERCTL" droc)
 (command "_.-purge" "_b" "*" "_n")
 (princ)
)

----- добавлено через ~45 мин. -----
Есть правда ещё одна небольшая задачка в дополнение к этой. Выставить свойства всех объектов чертежа: цвет и толщина "По слою". Но наверное это уже другая тема. Помучаю поиск попозже.
Ну или можете ткнуть в соответствующую тему

[engngr]

Offtop:

Сообщение от Mitek Выставить свойства всех объектов чертежа: цвет и толщина "По слою"

Командными - _change или _setbylayer

[Mitek]

Сообщение от engngr Offtop: Командными - _change или _setbylayer

Большое человеческое спасибо Сколько лет работаю в акаде, а не знал про такие команды