[Малюк]

Есть большой файл, после применения стандартных процедур меньше он не стал. В нём были и есть динамические блоки. По всей видимости при их использовании (вставке через буфер может что то ещё) создаются анонимные блоки, которые и являются главной причиной большого размера файла.
Как можно удалить все неиспользуемые анонимные блоки в чертеже?
Как сделать программно я нашёл вот здесь http://adn-cis.org/ochistka-chertezh...ix-blokov.html
Как сделать не программно?
Какой код будет для LISP?
Всем за ранее большое спасибо.

[Хмурый]

LISP. Подготовка подосновы
U2B и UX- твои
спасибо VVA

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

Непрограммно - скорее всего, никак (если анонимный блок имеет хотя бы одно вхождение). Вообще говоря, анонимный блок создается при каждой модификации хотя бы одного дин.параметра в дин.блоке. Советую выполнять сохранение в DWG не ниже чем 2004, да и открывать в AutoCAD 2006 или позднее.
А так - что надо? Удалить вхождения блоков? Расколошматить их на составляющие?

[crosandr]

поиск не помог?

[kp+]

Сообщение от Малюк Как можно удалить все неиспользуемые анонимные блоки в чертеже?

По-моему, _Purge отлично справляется с любыми неиспользуемыми блоками, будь они хоть трижды анонимные. А если анонимный блок имеет хотя бы одно вхождение (отдельно или в составе другого блока) - значит, уже используемый. Наверное, это было кому-нибудь нужно зачем его удалять?
Для последующих догадок неплохо бы посмотреть DWG...

[ProPeller]

Сообщение от kp+ _Purge отлично справляется с любыми неиспользуемыми блоками, будь они хоть трижды анонимные.

Чепуха!
Еще до того как появился фикс DGN записей, приходилось искать пути решения очистки чертежа от грязи с которым пурга не справлялась. Так вот после самых разных путей решения проблемы, я выяснил, что всякое г%внище хранится как раз таки в этих самых анонимных блоках. И кстати говоря, то что вы здесь называете анонимными блоками, вовсе не является анонимными. После изменения динамических параметров, блок становится Уникальным, а не анонимным. Имена анонимных блоков начинаются с "*A...", а измененные динамические с "*U...".
Тогда я решал проблему просто вычищая эти блоки при помощи вот этого кода.

Код:

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

 (vl-load-com)
(vlax-for v1 (vla-get-blocks
	      (vla-get-activedocument (vlax-get-acad-object))
	     )
 (VL-CATCH-ALL-APPLY 'vla-delete (list v1))
)

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

ProPeller, вообще-то имена анонимных блоков всегда начинались с *U. *A - это анонимные группы. *D - описания объектов размеров. *T - описания объектов таблиц. Описания неиспользуемых анонимных блоков (*U) гарантированно удаляются из чертежа при его закрытии. Насчет остальных не уверен.

[ProPeller]

Сообщение от Кулик Алексей aka kpblc ProPeller, вообще-то имена анонимных блоков всегда начинались с *U. *A - это анонимные группы. *D - описания объектов размеров. *T - описания объектов таблиц. Описания неиспользуемых анонимных блоков (*U) гарантированно удаляются из чертежа при его закрытии. Насчет остальных не уверен.

Сейчас копнул хелп и понял, что был неправ насчёт имен и их соответствий, но сути дела это не меняет. Описание объектов с именем *A... хранятся в семействе блоков и пурга их не способна удалить, а вот через лисп без проблем.

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

Не совсем так: именно для описываемой ситуации это типы линий из Microstation: http://adn-cis.org/forum/index.php?t...12880#msg12880 (ну и плюс ссылки из темы)

[ProPeller]

Offtop:

Сообщение от Кулик Алексей aka kpblc Не совсем так: именно для описываемой ситуации это типы линий из Microstation: http://adn-cis.org/forum/index.php?t...12880#msg12880 (ну и плюс ссылки из темы)

Это я уже все изучил. Я же сначала и написал, что пользовался этим методом до появления фикса DGN записей

[Малюк]

Сообщение от ProPeller Код: [Выделить все] 1 (vl-load-com) 2 (vlax-for v1 (vla-get-blocks 3 **********(vla-get-activedocument (vlax-get-acad-object)) 4 *********) 5 *(VL-CATCH-ALL-APPLY 'vla-delete (list v1)) 6 ) __________________

Это конечно замечательно но как его запустить. Тоесть делаем txt, копируем код, ставим расширения файла lsp, а на запуск какая команда?

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

http://dwg.ru/pub/9

[ProPeller]

Сообщение от Малюк Это конечно замечательно но как его запустить. Тоесть делаем txt, копируем код, ставим расширения файла lsp, а на запуск какая команда?

Файлик прикрепил. Загрузить через команду ЗАГПРИЛ. Запускать через команду PPT_UnUsedBlkDel

[Хмурый]

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

[zenon]

Дабы не плодить тем.

А можно решить обратную задачу?
Есть файл с описанием кучи анонимных блоков типа *U, *D, *A.
В самом чертеже (модели и листах) они удалены и командой _insert их вставить не получается, требуется как-то их проявить (вставить).
Вопрос в том возможно-ли данное действо?

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

Руками - нет. Программно - достаточно несложно.