Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Очистка чертежа от мусора

LISP. Очистка чертежа от мусора

Ответ
Поиск в этой теме
Непрочитано 18.08.2014, 16:15 11 |
LISP. Очистка чертежа от мусора
gomer
 
строю, ломаю
 
Украина
Регистрация: 03.04.2008
Сообщений: 5,515

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

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

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

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

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

Миниатюры
Нажмите на изображение для увеличения
Название: CleanDWG13.png
Просмотров: 7697
Размер:	39.4 Кб
ID:	147269  

Вложения
Тип файла: zip CleanDWG13.zip (19.1 Кб, 12438 просмотров)


Последний раз редактировалось gomer, 16.03.2016 в 18:02.
Просмотров: 181367
 
Непрочитано 10.02.2016, 20:04
#81
Seeker

инженер-гидротехник
 
Регистрация: 13.04.2012
Москва
Сообщений: 126


Спасибо огромное gomer за программку.
Seeker вне форума  
 
Непрочитано 16.03.2016, 15:00
#82
vasilev666


 
Регистрация: 12.02.2013
Сообщений: 46


Почему-то вместо слов в окне программы значки. Ни кто не сталкивался?
vasilev666 вне форума  
 
Непрочитано 16.03.2016, 15:21
#83
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


AutoCAD случайно не 2013, английский, и без SP?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.03.2016, 16:08
#84
vasilev666


 
Регистрация: 12.02.2013
Сообщений: 46


Совершено верно.
vasilev666 вне форума  
 
Непрочитано 16.03.2016, 16:54
#85
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


AutoCad 2013 En, проблемы с кодировкой в программах.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.04.2016, 16:02 Очистка чертежа от мусора
#86
Bina2857


 
Регистрация: 06.04.2016
Электросталь
Сообщений: 2


А как загрузить CleanDWG.vlx в автокад 2016?
В 2013 все получилось, а в 2016 на (load"CleanDWG.vlx") пишет ошибка...Подскажите пожалуйста
Bina2857 вне форума  
 
Непрочитано 06.04.2016, 16:49
#87
trushev


 
Регистрация: 12.01.2015
Сообщений: 261


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

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от Bina2857 Посмотреть сообщение
В 2013 все получилось, а в 2016 на (load"CleanDWG.vlx") пишет ошибка...
Что именно пишет после слова ошибка? Может денег просит?
gomer вне форума  
 
Непрочитано 21.04.2016, 14:36
#89
Ярко


 
Регистрация: 17.03.2016
Сообщений: 6


Автокад 2016, при чистке чертежа программой, автокад виснет, в чем может быть проблема?
Ярко вне форума  
 
Автор темы   Непрочитано 21.04.2016, 16:35
#90
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от Ярко Посмотреть сообщение
при чистке чертежа программой, автокад виснет, в чем может быть проблема?
Проблема в скорости выполнения программ на Visual LISP и количестве объектов в чертеже.
Решение - снять галку История твердых тел и Параметрические зависимости, они запускают механизм прополки всего чертежа
gomer вне форума  
 
Непрочитано 14.05.2016, 19:13
#91
doslidnik


 
Регистрация: 14.11.2011
Сообщений: 21


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" после сохранения, закрытия, открытия и сохранения

Последний раз редактировалось doslidnik, 15.05.2016 в 10:45.
doslidnik вне форума  
 
Автор темы   Непрочитано 17.05.2016, 21:57
#92
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от doslidnik Посмотреть сообщение
Нашел - Масштабы анотаций приводит к "FATAL ERROR: Unhandled Access Violation Reading 0x0000 Exaption ad 6237788dh" после сохранения, закрытия, открытия и сохранения
Если масштабы аннотаций удалить вручную, то ошибка сохраняется?
gomer вне форума  
 
Непрочитано 17.05.2016, 23:07
#93
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Не должна. Это ограничение лиспа - пройтись лиспом по базе чертежа и проверить используемые масштабы за вменяемое время нереально.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 18.05.2016, 12:31
#94
doslidnik


 
Регистрация: 14.11.2011
Сообщений: 21


Визуальные объекты -> Точки приводит к такой ошибке прораммы (Выбран только етот пункт)
Код:
[Выделить все]
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]

Последний раз редактировалось doslidnik, 18.05.2016 в 14:16.
doslidnik вне форума  
 
Автор темы   Непрочитано 20.05.2016, 03:21
#95
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


насчет точек, у меня они корректно удаляются, насчет масштабов, все таки в 2008 они только появились и возможны баги.
gomer вне форума  
 
Непрочитано 22.05.2016, 12:48
#96
SlavaLu


 
Регистрация: 30.03.2016
Сообщений: 55


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

Последний раз редактировалось SlavaLu, 22.05.2016 в 19:35.
SlavaLu вне форума  
 
Непрочитано 27.12.2016, 16:12
#97
linkrogers


 
Регистрация: 13.01.2015
Сообщений: 2


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

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

Вот такая ошибка появляется при чистке файлов; Ошибка Automation. Недопустимое имя примитива
linkrogers вне форума  
 
Непрочитано 02.12.2017, 21:31
#98
superkot007


 
Регистрация: 15.01.2010
Сообщений: 254


Хорошая штука.
А можно ее как-то допилить под пакетную обработку определенной папки?
superkot007 вне форума  
 
Непрочитано 02.12.2017, 22:33
#99
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Можно. Допиливай, автор вряд ли будет против.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 02.12.2017, 23:33
#100
superkot007


 
Регистрация: 15.01.2010
Сообщений: 254


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Можно. Допиливай, автор вряд ли будет против.
Хороший ответ) Но суть вопроса в другом, как ты наверняка понял, - кто бы это мог сделать с соответствующей квалификацией и знаниями.
Тем более, что
Цитата:
Сообщение от gomer Посмотреть сообщение
... предложения приветствуются
Я попробовал свести это с http://dwg.ru/dnl/11817 - результат нулевой, из сотни файлов обрабатывается (?) только два, выдает ошибку, и новые файлы абсолютно чисты (глобально так почистилось )
superkot007 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Очистка чертежа от мусора

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему очистка чертежа не выполняется при наличии Object Enabler? Xara AutoCAD 15 03.07.2014 11:50
Создание шаблона и очистка чертежа Сержик AutoCAD 9 14.02.2013 23:06
LISP. Как запустить LISP программу при создании чертежа по шаблону? (Автоматическое заполнение основной надписи) Do$ LISP 25 22.06.2011 15:39
очистка скана от мусора grozd62 Прочее. Программное обеспечение 4 04.04.2011 21:41
LISP для очистки чертежа от дублирующихся объектов Nikolays AutoCAD 5 13.12.2010 16:59