[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]

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