[gomer]

Выкладываю пилотный проект программы по очистке чертежа. Код не мой, я просто собрал кое-что до кучи
Надеюсь кому-нибудь да поможет

Применение
- Загрузить CleanDWG.vlx в автокад или CleanDWG.des в bricscad
- В командной строке набрать CLEANDWG

Замеченные ошибки
В Autocad 2013 En русские буквы в диалоговом окне отображаются некорректно. Обсуждение проблемы тут

Критика и предложения приветствуются

История изменений
31.03.2014 Программа обновлена до версии 1.3

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

Добавь еще очистку параметрических зависимостей и историю твердых тел Можно заодно еще и словари посносить, но это только для варианта "невертикального" AutoCAD (ИМХО).

[gomer]

Очистка истории твердых тел какая-то есть. Насчет параметризации я пока не нашел "некомандный" способ для сего действия. В планах еще разобраться с с пустыми блоками, изображениями и внешними ссылками (код спилю у VVA из bgtools) и очистка прокси с помощью программы А. Ривилиса.
Алгоритм обработки текста самый простой пока, но это все поправимо

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

Посмотри у меня на сайте - я делал все это.

[gomer]

Кулик Алексей aka kpblc, А через entnext не быстрее будет удалить п-зависимости и вообще можно ли?

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

Не думаю, что получится. Посмотри мой код http://autolisp.ru/2014/03/24/clear-dwg-at-opening/ - вроде бы работало. Нарисовать для этого кода dcl не проблема, но мне сегодня точно не до этого будет.

[gomer]

Сообщение от Кулик Алексей aka kpblc Не думаю, что получится.

Да действительно, не получается... А почему сначала entdel, а потом vla-delete?

[skkkk]

Сообщение от gomer Критика и предложения приветствуются

Более ли менее потестировал по всем пунктам - ошибок не нашел.
Критиковать - нос не дорос, а вот предложения - пожалуй (в добавок к #3):
1. Прикрутить бы туда удаление дубликатов из overkill'a.
2. Мое мнение: галочки на удаление точек и маскировок и групп по умолчанию лучше бы убрать. Думаю, их правильнее сознательно поставить, чем случайно посносить нужные объекты. А в идеале - запоминать галочки, выбранные ранее. Хотя бы в пределах сеанса, но неплохо бы и глобально. Как это сделать лучше - не знаю. Может в реестр писать или в текстовый файл?
3. Не смог создать пустой Мтекст (однострочник получилось), может, программно надо было - поленился. А вот текст, содержащий только пробелы, не удаляется. Жаль, потому что его нельзя выделить кроме как Ctrl+A. Может, добавить галку "Текст из пробелов"? Ну или под одну грубенку его, все равно не могу придумать от него практического толку - в топку.

Беру на вооружение, спасибо, gomer.

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

Offtop: Если завтра будет время, опубликую графический вариант своего кода.

[gomer]

Сообщение от skkkk 1. Прикрутить бы туда удаление дубликатов из overkill'a.

Тут я бы посоветовал макрос, так как overkill - самостоятельная команда со своим диалогом

Сообщение от skkkk галочки на удаление точек и маскировок и групп по умолчанию лучше бы убрать.

Может ты и прав, это не сложно переделать

Сообщение от skkkk в идеале - запоминать галочки, выбранные ранее. Хотя бы в пределах сеанса, но неплохо бы и глобально. Как это сделать лучше - не знаю. Может в реестр писать или в текстовый файл?

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

Сообщение от skkkk текст, содержащий только пробелы, не удаляется. Жаль, потому что его нельзя выделить кроме как Ctrl+A. Может, добавить галку "Текст из пробелов"? Ну или под одну грубенку его, все равно не могу придумать от него практического толку - в топку.

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

[skkkk]

Сообщение от gomer Тут я бы посоветовал макрос, так как overkill - самостоятельная команда со своим диалогом

А жаль. У нее есть брат -overkill, который, вроде, можно накормить аргументами через (vla-SendCommand). А в случае отсутствия на машине ExpressTools можно эту галочку в DCL-диалог не включать. Но по-моему, ты недолюбливаешь командные способы.

Сообщение от gomer не хотелось бы связываться с реестром, но опять же это несложно добавить, вопрос в том как реализовать это

Пока только могу лишь в качестве набросков для алгоритма:
Вариант №1:
1. Создаем для каждой галки запись в реестре. Шучу. Если это будет сумма битовых флагов, то записи хватит одной.
2. При запуске читаем эту запись.
3. При изменении пользователем набора галочек... чтобы узнать что будем делать, отправь смс на короткий номер
Вариант №2:
1. Создаем в укромном местечке, а может и в той же самой папке, откуда запущен лисп (кстати, не об этом ли здесь?) текстовый файл и делаем туда запись суммы битовых флагов.
2. Далее как и в п.п. 2 и 3 варианта №1.

Сообщение от gomer Текст с маскировкой может быть полезен

Ну ладно, не в топку. То есть, если делать, то непременно отдельную галку? А маскированные пустые тексты, может, вообще удалять/не удалять вместе с маскировками?

Сообщение от gomer Придумаешь маску (условие пустоты) для выбора, добавлю.

Пока слёту так и не могу придумать маску для n-ного количества пробелов. А заодно и "непустых" пробелов (те, что Ctrl+Shift+Space). А может и не надо, потому что

Сообщение от gomer выбрать все тексты и каждый проверить на наличие контента

- это как-то не айс. Реально долго это может быть. Если уж и делать такую галку, то с пометкой "долго" и выключенной по умолчанию

----- добавлено через ~1 ч. -----
Еще пару мыслей:
1. Линии нулевой длины.
2. Может, "плющилку" 2D? Или хотя бы обнуление уровня полилиний? В частности случаи, когда полилиния ведет себя как-то неадекватно. Попадались такие файлы, может, смогу найти - выложу. При выборе такой полилинии не видна ее центральная ручка (при GRIPS=2) , и при попытке потянуть за крайнюю ручку рядом с полилинией появляется начало координат, с осью, параллельной этой полилинии (СК объекта?). У таких полилиний уровень всегда ненулевой, и при попытке обнулить его через свойства полилиния просто пропадает из виду. Надеюсь, понятно объяснить получилось...

[gomer]

Сообщение от skkkk Создаем для каждой галки запись в реестре. Шучу.

Это не шутки, так и придется сделать, ведь

Сообщение от skkkk Линии нулевой длины.

и сразу найдутся товарищи, кому не по нраву линии маленькой, но гордой, ненулевой длины. Точнее отрезки и скукоженные полилинии но это опять же лопатить. Знаю, спрашивал...
Хотя лопатить все равно придется, если нужно будет чистить в блоках

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

Сообщение от gomer Это не шутки, так и придется сделать, ведь

Еще раз говорю - посмотри у меня на сайте (http://autolisp.ru/2014/03/24/clear-dwg-at-opening/). Вся очистка регулируется единственным параметром - битом. А разбираешь ты его уже внутри кода.

[Do$]

Сообщение от skkkk Пока слёту так и не могу придумать маску для n-ного количества пробелов.

Тримить строку от пробелов и табуляции и проверять на пустоту.

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

Сообщение от Do$ Тримить строку от пробелов и табуляции и проверять на пустоту.

А заодно сносить форматирование...

[Do$]

Да, если мтекст и все что на его основе.
Offtop: Как же с этим проще в NET! Там напрямую из MTEXT без танцев с бубном можно прочитать строку без форматирования...

[skkkk]

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

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

Сообщение от Do$ Тримить строку от пробелов и табуляции и проверять на пустоту.

Сообщение от Do$ Offtop: Как же с этим проще в NET! Там напрямую из MTEXT без танцев с бубном можно прочитать строку без форматирования...

Я не ошибусь, если скажу, что все танцы сводятся к применению одной функции, например, LM:Unformat от Lee Mac?

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

Сообщение от gomer Это не шутки, так и придется сделать, ведь

В смысле, только из-за линий нулевой длины придется делать запись в реестре для каждой галочки? Не пойму, почему так?

[Do$]

Offtop:

Сообщение от skkkk Я не ошибусь, если скажу, что все танцы сводятся к применению одной функции, например, LM:Unformat от Lee Mac?

Я тоже так думал, когда примерно год тому назад коллега попросил помочь убрать форматирование мультитекста из чертежа. Большой чертеж геодезической съемки, где на каждый текст навешано было форматирования выше крыши. Ну, я прикинул - на лиспе я знаю кучу функций для этого, в том числе mip_MTEXT_Unformat, LM:Unformat, StripMtext... Не буду трогать NET, обойдусь ими. В итоге ни одна из них не справилась на 100%, все равно оставался мусор. В итоге, промучившись с поиском и проверками почти час, я плюнул на это дело и написал код в NET.
Если убрать всю "обвязку" (используемые имена пространств, выбор объектов, открытие-закрытие объектов на запись и пр...), то все сводится к одной строчке:

Код:

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

mText.Contents = mText.Text;

Берем одно свойство и записываем в другое - вот и все танцы.

[gomer]

ну . Net и побыстрее будет. проблема только в совместимости...

[MorganSpb]

как установить данную приблуду? лисп подгрузил, результата нет.

[freese]

Сообщение от MorganSpb как установить данную приблуду? лисп подгрузил, результата нет.

нужно vlx загружать, диалоговое окно вызывается CleanDWG

[MorganSpb]

Сообщение от freese нужно vlx загружать, диалоговое окно вызывается CleanDWG

Спасибо, что то ступил, я и lsp и vlx одновременно подгрузил и ничего не заработало.

[skkkk]

Вспомнил еще про неиспользуемые внешние ссылки, а также про растры, которые болтаются во внешних ссылках...

[gomer]

Сообщение от skkkk Вспомнил еще про неиспользуемые внешние ссылки, а также про растры, которые болтаются во внешних ссылках...

Я не думаю что, это под силу лиспу, слишком уж он медленный. Если говорить о растрах и ссылках в чертеже, то это реализовано в bgtools. У меня просто руки не доходят допилить под свою прогу

[Sergey_5]

Здравствуйте! А не подскажете, как установить данную вещь?

----- добавлено через ~1 ч. -----
Все, разобрался
Помогло! Большое спасибо!

[shartal]

Что имеется в виду под Настройки печати?. В диспетчере параметров листов все как было так и осталось. Возможно принтер установленный в параметрах должен был бы сброситься на Нет?

[gomer]

откройте диспетчер параметров листов, там в списке найдете то, что ищете

[skkkk]

Сообщение от skkkk 2. Может, "плющилку" 2D? Или хотя бы обнуление уровня полилиний? В частности случаи, когда полилиния ведет себя как-то неадекватно. Попадались такие файлы, может, смогу найти - выложу. При выборе такой полилинии не видна ее центральная ручка (при GRIPS=2) , и при попытке потянуть за крайнюю ручку рядом с полилинией появляется начало координат, с осью, параллельной этой полилинии (СК объекта?). У таких полилиний уровень всегда ненулевой, и при попытке обнулить его через свойства полилиния просто пропадает из виду. Надеюсь, понятно объяснить получилось...

Вернулся к своему посту, поскольку нашел такой файл. Ошибся я правда в одном: такой полилинии можно назначить нулевой уровень, но адекватнее она от этого не становятся. Просто улетает в другую часть модели.
Кто знает, что это за такое, и можно ли сделать с такой линией что-то, чтоб она осталась на своем видимом месте, но с нулевым уровнем и адекватная?

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

Там система координат объекта ни разу не похожа на мировую. Поэтому в качестве решения: flatten из ET или SuperFlatten из архивов форума )

[gomer]

Сообщение от skkkk адекватная?

посмотри код 210 у твоей полилинии

----- добавлено через ~3 мин. -----
У меня тут беда случилась с исходником... нет, никуда он не потерялся. Но слетела кодировка, и в блокноте++ при открытии абракадабры наблюдаю. При этом НП++ показывает кодировку макинтош... Но какой макинтош? если я сроду им не пользовался... это меня бесит чрезвычайно

[skkkk]

gomer, я не понял, дело в файле (и в каком именно?) или в NP++? Файлы на всякий прилагаю. Вроде я в них ничего пока не менял.
У меня как-то что-то давно слетало в NP++, так я после этого, когда вернул все обратно, сделал backup папок NP++ из Program Files и из AppData->Roaming. После переустановки Windows очень помогло. В том числе перешла и вся моя подсветка синтаксиса, и выпадающее меню функций (автозавершение) и все остальное. Очень советую. Если нужно, могу скинуть свои баки. Правда, перевод у меня какой-то кривой стал почему-то: половина меню на русском, другая - на английском. Но на скорость не влияет, и я заморачиваться не стал.

[gomer]

А у тебя мои исходники нормально открываются? Дело в том, что например я меняю кодировку на win1251 тескт становится нормальным, переоткрываю блокнот, текст нормальный, закрываю файл и переоткрываю блокнот - абракадабры и макинтош, будь он не ладен

[skkkk]

Сообщение от gomer А у тебя мои исходники нормально открываются?

Полностью. Как и все другие. Может, настройки? У меня вообще ANSI...
P.S.:Смотрю, там у тебя изменения уже есть
P.P.S.: Прошу прощение за качество скрина, но качественный не прикрепляется из-за размера

[gomer]

У тебя какая-то древняя версия стоит, еще 5 сколько-ко там, если не ошибаюсь, В этой версии как раз нормально все. А уже в 6й бардак...

[skkkk]

Offtop: У меня версия 6.1.2. Последняя на данный момент, вроде 6.6.9.
Я устанавливал недавно последнюю версию, но оказалось, что в ней переработали алгоритм сортировки функций автозавершения.
В файле с перечнем этих функций я записал их в таком порядке, что самые часто используемые находятся выше остальных, игнорируя алфавитный порядок. А в новой версии этот порядок не игнорируется и применяется "насильно", мне это жутко не понравилось, вот я и решил откатиться.
Что-то подзагадилась как-то ветка ... Может, откроем тему про NP++ для лиспа и других языков под AutoCAD?

[gomer]

Сообщение от skkkk Может, откроем тему про NP++ для лиспа и других языков под AutoCAD?

я не против, открывай Самое интересное то, что vlide нормально парсит cleandwg.lsp...

[skkkk]

Сообщение от gomer vlide нормально парсит cleandwg.lsp...

Так, стало быть, дело только в этом файле?
Offtop:

Сообщение от gomer я не против, открывай

Задумался... А в каком разделе бы ее открыть? Разное или Программирование?

[gomer]

Сообщение от skkkk Так, стало быть, дело только в этом файле?

Есть и другие файлы, взятые из инета, в которых всплывает макинтош...
В программировании конечно

[skkkk]

Offtop: Думаю, тут дело в NP++. Может, проще всего его переустановить? Сохранив настройки из папок программы. Ума не приложу, что это может быть.
Возвращаясь к неадекватной полилинии... Надеюсь, что это по теме "Очистка чертежа...", хотя более подходит под тему обнуления Z-координаты, но раз я уж начал ходатайствовать о добавлении в очистку такой функции, то продолжу тут. gomer, если ты против, скажи сразу - я отстану.

Сообщение от gomer посмотри код 210 у твоей полилинии

Почитал, 210 - это координата Х вектора направления выдавливания. Меняю ее на '(0.0 0.0 1.0) - полилиния улетает совершенно в другое место. А хотелось бы, чтоб она при этом осталась на своем месте. И вообще не пойму, как в чертежах, присланных тётеньками, может оказаться подобное?

Сообщение от Кулик Алексей aka kpblc Поэтому в качестве решения: flatten из ET или SuperFlatten из архивов форума

Flatten из ET с опцией No помог, с опцией Yes - полилиния улетела, SuperFlatten - отчасти. Преобразовал эту полилинию в отрезок и оставил его на месте. Правда, то же самое делает и простой _EXPLODE.
Может, добавить обработку таких полилиний с кодом 210: взрывать их и преобразовывать обратно в PLINE? Или отстать?

[gomer]

ставил неоднократно чуть ли ни все версии, результат 0... Проблема в файле, до абсурда доходит: убираешь строчку, нормальная кодировка, добавляешь - слетает.
Насчет кривых полилиний - это все таки другая задача. Да и лисп имеет ограничение по количеству объектов. Сейчас до 10000 объектов еще приемлимо лопатятся, больше уже серьезный зависон. Чем больше операций, тем меньше лимит на чертеж.

[pro9]

Добрый вечер!
А то что он динамические блоки в безымянные статические переделывает, это так задумано?

[gomer]

Сообщение от pro9 то что он динамические блоки в безымянные статические переделывает, это так задумано?

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

[pro9]

Сообщение от gomer Нет, так не задумано. Возможно это автокад сам создает безымянные блоки внутри динамического, когда вы правите блок за ручки

Да, вроде сейчас все нормально. Не знаю почему раньше модифицировал блоки.

[gomer]

Обновил программу до версии 1.3 теперь в архиве модуль для автокада и для брикскада, добавлено удаление неавтокадовских словарей

[357]

gomer, Извини - несколько отстал от жизни... Эта программа в дополнение к _purge или её заменяет?

[skkkk]

Я бы сказал, что это пурж - дополнение к этой программе

[357]

skkkk, понял, спасибо!

[ie.spb]

может только у меня такое происходит, но при нажатии кнопки "По умолчанию" программа останавливается с ошибкой: "bad argument type: stringp 0bad argument type: VLA-OBJECT nil".
Система Win7x64, Autocad 2013

[gomer]

Сообщение от skkkk Я бы сказал, что это пурж - дополнение к этой программе

Эта программа делает 3х-кратный тоталпурж, так что в стандартном пурже отпадает необходимость

Сообщение от ie.spb может только у меня такое происходит, но при нажатии кнопки "По умолчанию" программа останавливается с ошибкой: "bad argument type: stringp 0bad argument type: VLA-OBJECT nil".

Вы случайно не исходники не редактировали?

[357]

2 gomer,
я, возможно, проглядел что-то в сообщениях... А как её запускать?

[gomer]

команда CleanDWG после загрузки соответствующей версии приложения

[357]

gomer, при нажатии кнопки "По умолчанию" окно программы закрывается, в командной строке автокада появляется запись: "неверный тип аргумента: stringp 0неверный тип аргумента: VLA-OBJECT nil".
Какие сведения нужны? Кино сделать?
Система Win7x64, Autocad 2012

[gomer]

Сообщение от 357 Кино сделать?

Кино не надо, я понял, где ошибка, зайди в аську лучше

----- добавлено через ~48 мин. -----
Спасибо всем откликнувшимся, архив перезалил.

[357]

удалил

[skkkk]

Получил файл съемки, решил почистить новой версией. Из изменений заметил, что выбранные чекбоксы сохраняются от сеанса к сеансу. Удобно.
Раньше (до появления CleanDWG) я пользовался составленным при помощи форума еще на рассвете моей карьеры инженера макросом на кнопку:

Код:

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

^C^C_audit;д;_-SCALELISTEDIT;_R;_Y;_E;^C^C_-purge;в;*;н;;з;*;н;

Решил сравнить. Мой макрос из файла 5,12Мб сделал почему-то 5,65 (!). Странно прям даже, казалось, почистил, а на деле еще и подзагадил. Раньше я за ним такого не замечал.
Затем запустил CleanDWG. Надооооолго так всё подзадумалось (минуты на полторы), в результате - 900кб. Вот это я понимаю: прибрался так прибрался.

Однако попробовал сделать наоборот: сначала CleanDWG, потом мой макрос - после макроса удалилось еще 26 приложений, хотя изначально (до CleanDWG) он удалял 246. То есть, почему-то не все приложения почистились. Почему бы?

И еще: увидел в конце отчета записи "Размер откреплен". А галочки такой в настройках не нашел. Не всегда хочется диссассоциировать размеры.

P.S.: И еще расскажите, пожалуйста, мне, темноголовому, что это за файл *.des?

[gomer]

Сообщение от skkkk что это за файл *.des?

Это модуль CleanDWG для брикскада

Сообщение от skkkk увидел в конце отчета записи "Размер откреплен". А галочки такой в настройках не нашел. Не всегда хочется диссассоциировать размеры.

Открепление размеров происходит автоматически при удалении объектов к которым они были прикреплены. Это мое предположение номер раз. Возможно проблема в замороженных слоях - это два. Да, пока программа достаточно брутальна и не учитывает статус слоев

Сообщение от skkkk Однако попробовал сделать наоборот: сначала CleanDWG, потом мой макрос - после макроса удалилось еще 26 приложений, хотя изначально (до CleanDWG) он удалял 246. То есть, почему-то не все приложения почистились. Почему бы?

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

Сообщение от skkkk Надооооолго так всё подзадумалось (минуты на полторы), в результате - 900кб. Вот это я понимаю: прибрался так прибрался.

в брикскад 15 файл почистился секунды за три до 788кб. Скорость лиспа в автокаде действительно страдает. Смиритесь. У вас в файле > 10k объектов.
Как вариант: можно снять галки с удаления истории тел и параметрических зависимостей. Тогда программа не будет обрабатывать весь чертеж.
800 или 900 - не принципиально - это нюансы формата файла DWG

[Bob_833]

Вопрос к Кулику Алексею: попытка почистить файл архивом "CleanDWG", 1._appload, подгружается, 2. команда "CleanDWG", 3 .в командной строке - "Отмена команды пользователем", итог - файл без изменений, что не так выполняю ?

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

Интересно, а я каким боком к этой разработке?
Скорее всего, загружен lsp, а dcl код найти не может. Все вопросы к автору

[Bob_833]

Алексей, мои извинения, ошибся, вопрос к gomer

----- добавлено через ~28 мин. -----
Алексей, спасибо за подсказку, вопрос решен, файл был удален, заново распаковал архив -всё ок.

[gomer]

Сообщение от Bob_833 Вопрос к Кулику Алексею: попытка почистить файл архивом "CleanDWG", 1._appload, подгружается, 2. команда "CleanDWG", 3 .в командной строке - "Отмена команды пользователем", итог - файл без изменений, что не так выполняю ?

Какой кад вы использовали для запуска программы и какая версия

[Bob_833]

AutoCAD 2013

[gomer]

Встречал подобный глюк на bricscad10. Рекомендую загружать не исходник, а CleanDWG.vlx - скомпилированный модуль, исходник я вложил для kpblc, ну и для будущих вундеркиндов. Из-за низкой скорости лиспа в автокаде использовать исходник строго не рекомендуется на тяжелых чертежах.
хм... только сейчас заметил лажу в архиве... Readme нет, исходнике не в папке для исходников... Моя вина конечно. Будет исправлено в следующем апдейте, если он случится...

[diek]

спасибо, большое человеческое

[Profan]

Замечено, что удаление словарей ликвидирует экранные представления AutoCAD MEP.

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

Просто надо удалять не все словари подряд, а фильтровать те, которые надо оставить "в живых". Я сам на таком же в свое время погорел )

[skkkk]

Сообщение от Кулик Алексей aka kpblc Просто надо удалять не все словари подряд, а фильтровать те, которые надо оставить "в живых".

А как их пометить, чтобы данная программа их не посносила? Видимо, удалять их следует не ею?

[VVA]

Там в архиве есть lsp файл. Фрагмент удаления словарей ниже. Самое сложное определить имя или имена словарей Mep
В коде не удаляются словари "ACAD_*" и "AcDb*"

Код:

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

;;; удаление словарей ________________________________________

      (if (checked-p "dicts")
        (progn 
          (setq cnt 0)
          (foreach & (entget (namedobjdict))
            (or (/= 3 (car &))
                (wcmatch (strcase (cdr &)) "ACAD_*")
                (wcmatch (cdr &) "AcDb*")
                (dictremove (namedobjdict) (cdr &))
            )
          )
          (princ "\nСловари удалены")
        )
      ) ;_ конец if

[gomer]

Сообщение от skkkk А как их пометить, чтобы данная программа их не посносила?

Эта возможность доступна в версии PRO. Шучу! Просто сейчас нет времени на доработку и к тому же каждая новая функция замедливает и без того не быстрый процесс очистки

[Profan]

Сообщение от VVA Там в архиве есть lsp файл. Фрагмент удаления словарей ниже. Самое сложное определить имя или имена словарей Mep В коде не удаляются словари "ACAD_*" и "AcDb*"

Видимо, надо добавить еще словари "AEC_", "AECB_", "AECS_"

[skkkk]

Сообщение от VVA Фрагмент удаления словарей ниже.

Вот и решение, похоже. От VVA обычно другого и не ждешь.

Сообщение от gomer каждая новая функция замедливает и без того не быстрый процесс очистки

Думаю подобная проверка не займет сильно больше миллисекунды. А польза от нее ощутима.

Сообщение от Profan Видимо, надо добавить еще словари "AEC_", "AECB_", "AECS_"

А по-хорошему вообще отрыть где-либо список всех возможных словарей из вертикалок (как минимум, префиксов) и тоже добавить.
Беглый поиск по Сети не увенчался у меня успехом, поэтому предлагается заинтересованным в топике обладателям вертикалок выудить их прям с поля боя. Этот пример из Полещука вернет список словарей:

Код:

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

 (mapcar 'cdr (vl-remove-if-not (function (lambda (x) (= (car x) 3))) (entget (namedobjdict))))

Однако, надо думать, что пока в чертеже не существуют, допустим

Сообщение от Profan экранные представления AutoCAD MEP

- то и словаря этого нет. Но префиксы, думаю, можно для каждой вертикалки выловить таким образом.
А также надо не забыть добавить свои словари. И после этого спокойненько сносить все лишнее.

[gomer]

Сообщение от skkkk А по-хорошему вообще отрыть где-либо список всех возможных словарей из вертикалок (как минимум, префиксов) и тоже добавить.

не получится без геморроя

[Profan]

Может, убрать вообще удаление словарей из программы?

[gomer]

Сообщение от Profan Может, убрать вообще удаление словарей из программы?

Можно просто снять соответствующую галку

[Profan]

Можно снять, если знаешь, что она зарубит проект. А если не знаешь? Тогда, дескать, закрывай чертежа без сохранения. Только безобразие это не сразу обнаруживается, можно случайно и сохранить по "вредной" привычке сохранять чертеж после каждого телодвижения.

[gomer]

Сообщение от Profan А если не знаешь?

Что по-твоему нужно сделать?

[Profan]

В предыдущей версии не было этого поля и как-то обходились. Да и в команде "_-PURGE" ("-ОЧИСТИТЬ") в опциях не упоминаются словари.

[НиРо]

Андрей, большое спасибо, ты не представляешь, хотя наверно представляешь))), какое благое дело сделал для людей работающих в САПР! Ну прям кланяюсь до земли!!!!!!!

[Maks63708]

Спасибо!!!!!!!!!!!!!!!!!!!!

[engngr]

А будет (есть?) вариант для _-, то есть без диалогового окна?

[gomer]

Сообщение от engngr А будет (есть?) вариант для _-, то есть без диалогового окна?

Такая возможность не планируется. Во первых потому, что параметров достаточно много, во-вторых, процесс очистки занимает много времени и давать возможность консольного управления - это обречь себя на непонимание пользователя... слишком много есть таких кто любит загружать всяких хлам при загрузке...

[Seeker]

Спасибо огромное gomer за программку.

[vasilev666]

Почему-то вместо слов в окне программы значки. Ни кто не сталкивался?

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

AutoCAD случайно не 2013, английский, и без SP?

[vasilev666]

Совершено верно.

[VVA]

AutoCad 2013 En, проблемы с кодировкой в программах.

[Bina2857]

А как загрузить CleanDWG.vlx в автокад 2016?
В 2013 все получилось, а в 2016 на (load"CleanDWG.vlx") пишет ошибка...Подскажите пожалуйста

[trushev]

Сообщение от Bina2857 (load"CleanDWG.vlx") пишет ошибка

Может быть поможет один из вариантов:
1. В пакете загружающем lisp заменить (load "имя файла") на (load (strcat (getvar 'dwgprefix) "имя файла"))
Не понял почему, но после этого находятся и DCL и вспомогательные текстовые файлы.
2. В строку запуска программы с рабочего стола добавить ключ /s с путем к файлам поддержки Заменяет ранее установленные пути.
3. От Александр Ривилис, установить LEGACYCODESEARCH = 1.

[gomer]

Сообщение от Bina2857 В 2013 все получилось, а в 2016 на (load"CleanDWG.vlx") пишет ошибка...

Что именно пишет после слова ошибка? Может денег просит?

[Ярко]

Автокад 2016, при чистке чертежа программой, автокад виснет, в чем может быть проблема?

[gomer]

Сообщение от Ярко при чистке чертежа программой, автокад виснет, в чем может быть проблема?

Проблема в скорости выполнения программ на Visual LISP и количестве объектов в чертеже.
Решение - снять галку История твердых тел и Параметрические зависимости, они запускают механизм прополки всего чертежа

[doslidnik]

AutoCAD 2008 - English SP1

После пользования утилитой CLEANDWG13 (даже при настройках по умолчанию) получаю чертеж с багом но не во всех файлах.
После печати из Layout и последующей попытки сохранения получаем ошибку
"FATAL ERROR: Unhandled e06d7363h Exception at 75a1c41fh"

Если ничего не печать то все сохраняется до первой печати.

Автокад 2011 либо ZWCAD 2014 c файлом и далее работают чудесно но 2008 автокад уже его не сохраняет.
Пересохранение в 2011 акаде на 2000, 2004 не помогает (2008 акад открьівает печатает но не может сохранить), аналогично ZWCAD и DWG TrueView.
Пробьівал даже сохранять в 2013 (через ZWCAD или DWG TrueView), а потом в 2007 или 2000 - результат открьітие 2008 акадом файл - открьіваеться но не сохраняеться.
Сохранение в dxf портит штриховки и не расматриваеться.

После удаления содержимого (без последующего _purge) чертеж с лейаутами ( Layout ) можно сохранить.
Содержимое Model также можно скопировать и вставить в новьій чертеж (все слои открьітьі и не замороженьі).
Потом копирование назад содержимого Model в чертеж с Layout восстанавливает сохранение чертежа 2008 акадом.

Если ничего не печатать все хорошо сохраняется.
Причину такой ошибки искал два дня.

---Updated
Ошибку получаем после первого сохранения и потом открьітия и попьітки сохранения
Какая галочка именно вызывает ошибку пока не понял
Нашел - Масштабы анотаций приводит к "FATAL ERROR: Unhandled Access Violation Reading 0x0000 Exaption ad 6237788dh" после сохранения, закрытия, открытия и сохранения

[gomer]

Сообщение от doslidnik Нашел - Масштабы анотаций приводит к "FATAL ERROR: Unhandled Access Violation Reading 0x0000 Exaption ad 6237788dh" после сохранения, закрытия, открытия и сохранения

Если масштабы аннотаций удалить вручную, то ошибка сохраняется?

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

Не должна. Это ограничение лиспа - пройтись лиспом по базе чертежа и проверить используемые масштабы за вменяемое время нереально.

[doslidnik]

Визуальные объекты -> Точки приводит к такой ошибке прораммы (Выбран только етот пункт)

Код:

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

Command: CLEANDWG

Очистка документа...
Command:
Automation Error. Invalid entity name"Automation Error. Invalid entity name"

Command:

Сообщение от gomer Если масштабы аннотаций удалить вручную, то ошибка сохраняется?

Код:

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

Command: _AIOBJECTSCALEREMOVE

Select annotative objects: Specify opposite corner: 72041 found


Select annotative objects:

0 objects scale removed.
46 objects don't support annotation scale <1:1>.
46 objects cannot remove scale.

Если так

Код:

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

Select annotative objects:

Command: objectscale

Select annotative objects: Specify opposite corner: 72041 found

Select annotative objects:

то показывает в форме "Anotation Object Scale" в списке "Object Scale List" один маштаб "1:1"

Вот отработка cleandwg13

Код:

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

Command: cleandwg

Очистка документа...
Всего удалено визуальных объектов: 0
Удалено масштабов аннотаций: 33
Очистка завершена

Command:

После повторного открьітия и попьітки сохранить получим ошибку.

Нюанс - у меня 19 Лейаутов. Может из-за них?
Проверил в каждом лейауте(Layout) меню "Modify->Anotative Object Scale" не активно. Активно только в модели (Model).
Результат запуска cleandwg из Model и из Layout дает одинаковый результат (последующую ошибку при новом откытии чертежа).

Все слои открьітьі и область ZoomExtens.
Команда _AIOBJECTSCALEREMOVE всегда срабатьівала в проблемном чертеже но один раз нет.
Вот как-то получил такое после ~15-30го простоя чертежа. Закрьіл не сохраняя открьіл- Поменял автосохранениt на 1 минуту но такого не добилься.
[IMG]http://i.*******info/i9/f62dd30ef255e404ebe02fd65031b144/1463569979/10788/1035265/Bezymiannyi_240.jpg[/IMG][IMG]http://i.*******info/a3/2016-05-18-11-13/i9-9824752/240x172-r/i.gif[/IMG]

----- добавлено через 52 сек. -----
[IMG]http://i.*******info/i9/4e33d06423664d8e44c02898109ddf09/1463569979/16084/1035265/Bezymiannyi.png[/IMG]

[gomer]

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

[SlavaLu]

gomer
Список словарей Мэпа здесь. Если ещё нужно.

[linkrogers]

А программка больше не развивается?

А то не понятно на сколько она с версией автокада 2017 сдружина.

Вот такая ошибка появляется при чистке файлов; Ошибка Automation. Недопустимое имя примитива

[superkot007]

Хорошая штука.
А можно ее как-то допилить под пакетную обработку определенной папки?

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

Можно. Допиливай, автор вряд ли будет против.

[superkot007]

Сообщение от Кулик Алексей aka kpblc Можно. Допиливай, автор вряд ли будет против.

Хороший ответ) Но суть вопроса в другом, как ты наверняка понял, - кто бы это мог сделать с соответствующей квалификацией и знаниями.
Тем более, что

Сообщение от gomer ... предложения приветствуются

Я попробовал свести это с http://dwg.ru/dnl/11817 - результат нулевой, из сотни файлов обрабатывается (?) только два, выдает ошибку, и новые файлы абсолютно чисты (глобально так почистилось )

[Сергей812]

Кстати, разве вызовы vla-startundomark и vla-endundomark не должны идти парными группами? В лиспе метку завершения группы отмены вижу только в локальном обработчике *ERROR*.

[skkkk]

Сергей812, ну так *error* и вызывается принудительно в конце. Как меня в своё время учил gomer, если строчки друг друга повторяют, смысл приводить их два раза? Ладно тут только метка отмены. А если в коде нужно обеспечить возврат к первоначальным значениям нескольких десятков переменных? Повторять придется уже не одну строку. Подход gomer'a мне пришелся по душе и я его перенял.

[Сергей812]

не совсем логично вызывать в конце успешного завершения функции обработчик ошибок) Да и много он сэкономил строчек в данном случае? Из-за дополнительной проверки

Код:

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

 (if msg
      (princ (strcat "\n" msg))
    ) ;_ конец if

на две строчки больше.

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

Сообщение от superkot007 кто бы это мог сделать с соответствующей квалификацией и знаниями.

Добро пожаловать в "Поиск исполнителей"
Да, кстати, пока сообразил: в Autodesk AppStore есть пакетные "чистилки" файлов.

[skkkk]

Offtop:

Сообщение от Сергей812 не совсем логично вызывать в конце успешного завершения функции обработчик ошибок)

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

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

Сообщение от Кулик Алексей aka kpblc Добро пожаловать в "Поиск исполнителей"

Может, лучше для начала обратиться к gomer'у в личку? Кстати, сообщения в личке скорее всего, сопровождаются уведомлением на почту. Это к тому, что вдруг возникнут сомнения в частоте посещении им форума.

[VVA]

Сообщение от superkot007 кто бы это мог сделать с соответствующей квалификацией и знаниями.

Сообщение от Кулик Алексей aka kpblc Да, кстати, пока сообразил: в Autodesk AppStore есть пакетные "чистилки" файлов.

Я использовал пару раз Drawing Purge там есть команда DWG-PURGE-BATCH

[superkot007]

VVA, то, что доктор прописал, спасибо! Радует, что бесплатная, есть русский язык и куча настроек)

Минусов, правда, два - нужна установка (на работе все установки только админские) и поддержка с 2012 версии (многие сидят на 2008).
Хотя, установку, думаю, можно обойти, распаковав инсталлятор и прописав нужные пути в настройках AutoCAD...

Хотя не все так радужно - каждый файл при последующем открытии требует восстановления, если выбрать другую версию формата dwg

[Сергей812]

Offtop:

Сообщение от skkkk Поэтому принципиальной разницы в этих подходах не вижу. А экономия на дополнительных телодвижениях по созданию дополнительной функции возврата среды или повтору кусков кода в начале и в конце программы - налицо. Только и всего.

принципиальную разницу увидите, если придется копаться в чужом коде такого же "оптиматизатора") Для себя можно писать как удобно, конечно.

[Денис_Ск]

Супер! Специально зарегился, чтобы спасибо Вам сказать. Все перепробовал - спасла только Ваша программа!

[Gregory_father]

Подскажите, существует ли способ пакетной очистки группы файлов. Их более 100 шт., вручную долго...

[Сергей812]

Хм, что мешает прокрутить ветку назад до 106 поста?

[allar8]

Люди подскажите плиз, может есть киде готовое решение по очистке неактуального содержимого из диспетчера внешних ссылок? Т.е. задача удалять потерянные ссылки без вызова диспетчера вш. ссылок, т.е. как говорится в одно касание, т.е. одной командой.

[КонстСергей]

Впервые пытаюсь воспользоваться возможностями LISP. В данном случае - Вашим кодом.
Команда прошла (см. screen 1.png). Правда, слегка "ругнулась" в конце (см. screen 2.png).
После сохранения файла его объем - больше 8 Мб.
Что-то пошло "не так"?

[КонстСергей]

К предыдущему сообщению - сам файл

----- добавлено через ~2 ч. -----
Наконец получил ожидаемый результат.
Разработчикам кода - спасибо!

[futyn2]

Почистил. Видовые экраны надо будет заново создать.

[КонстСергей]

Сообщение от futyn2 Почистил. Видовые экраны надо будет заново создать.

У меня удачно почистилось. Все, включая видовые экраны, сохранилось

[danil19953]

Спасибо, всё работает, у меня получилось сделать, результат есть. Теперь копирует быстро и размер файла уменьшился.

[pitbul]

Дякую. Гарна штука

[kiplilek]

Спасибо! AutoCad 2014, файлы очищены от мусора. В работе с "грязными" файлами - просто глоток свежего воздуха.

Было: после копирования из другого файла dwg, файлы весили не меньше 4,5 Мб, даже если оставить одну линию и почистить пургеном, прокси и т.д. по списку из "dwg.ru - уменьшение размера dwg". Не понимаю, что удаляет программа, но после ее использования проблема с копированием исчезает!!!)

[Роман Р.]

Решил програмкой задачу которую месяца два пытался! Вот это СИЛА!!!

[Gotch]

Добрый день друзья.
Существует ли данная чистилка для акада 2021?
пробовал ее запустить на 2021 вылетает с ошибками
скрины ошибок приложил

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

Чему равна системная переменная LISPSYS? Попробуй поставить в 0

[Gotch]

она стояла 0 и сейчас так же 0

[freese]

Сообщение от Gotch Добрый день друзья. Существует ли данная чистилка для акада 2021? пробовал ее запустить на 2021 вылетает с ошибками скрины ошибок приложил

загружать надо скомпилированный vlx, он отрабатывает нормально в 2021

[Gotch]

Запустил vlx
имею вот такие ошибки

[nekt0Engineer]

Доброго времени суток !
Подскажите, почему у меня данный LISP не работает? AutoCAD 2021. Ввожу команду CLEANDWG и ничего не происходит, возле командной строки сразу появляется три надписи: "отмена команды пользователем. Очистка завершена. Команда:"
Как исправить ? LISP загружал так же как и остальные до этого, все работают кроме этого

[nekt0Engineer]

Сообщение от freese загружать надо скомпилированный vlx, он отрабатывает нормально в 2021

и как это сделать ?

[haza81]

Спасибо! Помогло! Мучался с этой xepнeй последние лет 6 наверно.
Заработало у меня на 2008 автокаде!

[jackUAROBEY]

А под нанокад такая программка есть?

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

Попробуй эту запустить. Возможно, сработает.

[jackUAROBEY]

не не работает. VLX не видит а лисп не работает

----- добавлено через ~6 мин. -----
Команда: APPLOAD
APPLOAD,ЗАГПРИЛ - Загрузка приложения...
C:CLEANDWG
CleanDWG.lsp загружен. Команды: CLEANDWG

nil
Команда: CleanDWG

CLEANDWG - CLEANDWG
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
GETCFG функция не определена
Очистка документа...
Всего удалено визуальных объектов: 0
Очистка завершена

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

А, ну это не лечится. Только полная переделка всех обращений к getcfg / setcfg, раз уж они не реализованы в NC. ИМХО к автору.

[kacugu]

Сообщение от jackUAROBEY А под нанокад такая программка есть?

Вот в этой теме на форуме нанокада выкладывали что-то похожее
https://forum.nanocad.ru/index.php?/...i-ne-pomogaet/

[Project-gaz]

У меня Autocad 2017. Загружал файл CleanDWG.vlx. После нажатия кнопки ок в окне программы, в командной строке пишет:

Команда: _CLEANDWG
Очистка документа...
Всего удалено визуальных объектов: 0
no function definition: vlax-vla-object->ename"no function definition: vlax-vla-object->ename"

Если загружать CleanDWG.lsp, то пишет "Очистка документа...", но тоже ничего не чистит.
После сохранения размер файла (с одним отрезком) в 5МБ не изменился.
Может я что-то делаю не так?

[skkkk]

Сообщение от Project-gaz no function definition: vlax-vla-object->ename

Похоже на то, что перед запуском _CLEANDWG нужно ввести в комстроке (vl-load-com).
Хотя, очень странно, что в компилированном лиспе от gomer'a не прописан этот вызов функции, которая загружает vla-расширение (в CleanDWG.lsp - есть), и дело может быть в другом.

[Project-gaz]

skkkk, Когда ввожу к. строке "vl-load-com" пишет неизвестная команда. lsp и vlx загружены

[Сергей812]

Сообщение от Project-gaz Когда ввожу к. строке "vl-load-com" пишет неизвестная команда.

чистильщиками реестра не пользовались перед этим?

----- добавлено через ~3 мин. -----
можно попробовать принудительно загружать vl.arx. Если и при этом не будет работать - переустановка акада скорее всего.

[Project-gaz]

Сергей812, реестр вроде не чистил. А где взять этот vl.arx? и куда его установить?

[Александр Ривилис]

Сообщение от Project-gaz skkkk, Когда ввожу к. строке "vl-load-com" пишет неизвестная команда. lsp и vlx загружены

В командной строке нужно вводить не vl-load-com, а (vl-load-com) (т.е. со скобками, так как это вызов lisp-функции, а не команда).

[Project-gaz]

Александр Ривилис, Ввожу команду (vl-load-com), ничего не происходит:

Команда: *Прервано*
Команда: (vl-load-com)


Cleandwg пишет тоже самое:
Команда: _CLEANDWG
Очистка документа...
Всего удалено визуальных объектов: 0
no function definition: vlax-vla-object->ename"no function definition: vlax-vla-object->ename"

----- добавлено через ~2 мин. -----
Команда ARX - Файлы показывает, что vl.arx загружен

[Александр Ривилис]

Project-gaz,
Увы, но похоже только переустановка AutoCAD (в режиме восстановления) может помочь.

[Project-gaz]

Александр Ривилис, Эх жаль... У меня же там все настройки, макросы и т.п. слетят?

[Александр Ривилис]

Сообщение от Project-gaz Александр Ривилис, Эх жаль... У меня же там все настройки, макросы и т.п. слетят?

Слетят конечно. Но у тебя похоже и так половина lisp-функций/команд не должна работать.