[dextron3]

Ситуация следующая, большой объект был скопирован на 8 мм, и сохранен, тоесть все теперь раздвоилось, каждую линию каждый размер удалять это непосильный труд около 40тыщ объектов и каждый вытыкивать да еще перепутаешь потом привязки не сходятся, что делать?

жду совета лиспа или команды

[Хмурый]

overkill из express tools пробуй. дистанцию выставь 1 или 8 мм

[engngr]

Сообщение от dextron3 большой объект был скопирован на 8 мм, и сохранен жду совета

Баками не брезговать и сразу откатываться.

[Vova]

На 1 мм или на 8?
Нельзя-ли посмотреть файл *.bak или автосохранение и вернуться назад?

[Jоhnny]

Если ты просто открыл файл, скопировал и сохранил, тогда в этой же папке появляется файл *.bak , поставь ему расширение .dwg - это и будет твой исходный файл. Как вариант поискать в папке Autosave файлы автосохранения, посмотреть по времени и дате и также поменять расширение (там также могут быть bak-и).

[dextron3]

Хмурый, а откуда узнает автокад левую или правую линии удалять? там же есть рамзеры тексты откружноти

engngr, отключая изначально после устанвоки автокада, на все баки жесткого диска не напасешься

Jоhnny, Vova, не баками не решим таковых не имею

есть ли другой способ?

[engngr]

Есть же база по объектам в dwg-файле? По базе объектов лиспом отобрать половину созданных позднее и удалить.

[Хмурый]

dextron3, я говорю, попробуй. Тут может быть всё завязано на порядок отрисовки объектов

[Vova]

Сообщение от dextron3 не баками не решим таковых не имею

Поясни, почему не имеешь? Может быть поэтому?

Сообщение от dextron3 отключая изначально после устанвоки автокада, на все баки жесткого диска не напасешься

Если так, то сам себя высек. Придется тебе вытирать вручную, потому как overkill вряд-ли поможет. Хотя у тебя ничего не остается кроме как попробовать, только не весь чертеж сразу, а по кусочкам

[VVA]

Объект был скопирован целиком?
У выделенного этим лиспом объекта есть двойник?

Код:

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

(SSSETFIRST nil (ssadd(setq f (entnext))))

[Profan]

Вот тут я (Владимир Громов) и другие товарищи изгалялись по аналогичному поводу:
http://www.caduser.ru/forum/index.ph...#message110447
Сам с интересом прочитал.

[forMA]

Сообщение от Profan Сам с интересом прочитал.

Да, были времена!

[Oliver_88]

Вот попробуй. Идея engngr. Запуск (test1) со скобками. Чур пробовать на копии.

[dextron3]

VVA,

Command: Specify opposite corner:
Command: (SSSETFIRST nil (ssadd(setq f (entnext))))
(nil <Selection set: fb2>)

Command: Specify opposite corner:
Command: (SSSETFIRST nil (ssadd(setq f (entnext))))
(nil <Selection set: fd8>)



Oliver_88, не запускается лисп никакой командой


VVA, есть ли такой лисп который как бы находит одинаковые объекты и удаляет к примеру клон который дальше от центра оси координат в заданном расстоянии друг от друга (потомучто в друг на чертеже есть одинаковые размеры и буквы только в разных местах)


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

[Дима_]

Попробуй удали "последнею" половину:

Код:

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

 (vl-load-com)
(defun c:test( / tmp)
((lambda (lst)
   (setq tmp (/ (length lst) 2)); 40 000 объектов - рекурсия не "прокатит"
   (mapcar '(lambda (x) (if (zerop tmp) (entdel x) (SETQ tmp (1- tmp))))
           (reverse lst)))
 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_a"))))))

p.s. - естественно на копии

[dextron3]

Дима_, данный лисп удаляет все подряд что разработано непосильным трудом до нуля

[Oliver_88]

Сообщение от dextron3 Oliver_88, не запускается лисп никакой командой

А что пишет командная строка?Какой еще командой пробовал?

[АлексейП]

интересно

[Alkor527]

dextron3 можешь файл выложить?

[Jоhnny]

Просто интересно, а автосейвами тоже не пользуешься?