[dextron3]

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

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

[Дима_]

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

Весьма странно - пациента надо смотреть.
p.s. Хотя не очень и странно т.к. он листы не учитывает - абракодабра получаеться.

[АлексейП]

На каких слоях нарисован чертёж? Если он был нарисован на одном слое, а скопирован на другой (текущий), то можно его заморозить

[Profan]

Скопировать объекты на другой слой просто так не удастся, потому что слой - свойство объекта.

[VVA]

Сообщение от 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>)

Мне нужен не листинг, а ответ на вопрос:
после выполнения данного лиспа у подсвеченного ручками объекта есть двойник (клон) ? (нужен ответ да или нет)

[dextron3]

VVA, не понял вопроса прикладываю файл,
я кстати его уже за весь день перечертил, но хочу иметь подстраховку для невнимательных теток

[VVA]

Пробуй

Код:

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

(defun C:DelDUP ( )
  
  (if (setq l (car (entsel "\nВыберите дубль: ")))
    (progn
      (SSSETFIRST nil (ssadd l))
      (initget 1 "Yes No")
      (if (= (setq ask (GETKWORD "\nПодтверждаете выбор [Yes/No]: ")) "Yes")
        (progn
          (command "_UNDO" "_BE")
          (entdel l)
          (while (setq l (entnext l))(entdel l))
          (command "_UNDO" "_E")
          )
        )
      )
    )
    )

Принцип основан на том, что при копировании у примитивов-дублей расположение в базе будет идти подряд. Поэтому очищается база с примитива-дубля до конца базы. Если не "угадал" и выбрал не первый дубль, то команду нежно будет повторить еще раз. Если ошибся и выбрал не дубль, удалится что-то нужное. Восстановить можно по CTRL+Z или из панели отменить последнюю команду

[dextron3]

VVA, спасибо работает а для чего спрашивать то постоянно подтверждаю или нет что это дубль?

[VVA]

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

Код:

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

(if (= (setq ask (GETKWORD "\nПодтверждаете выбор [Yes/No]: ")) "Yes")

на

Код:

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

(if t

[dextron3]

VVA, у меня автокад на 80% состоит из ваших лиспов

[VVA]

Сообщение от dextron3 у меня автокад на 80% состоит из ваших лиспов

Offtop: Пора выпускать альфа версию VVACad

[Дима_]

Offtop: А красная кнопка будет?