[Игорь Костюкович]

100 лет не писал на лиспе...
Задача стоит так: при удалении примитива, нужно сохранить некоторую информацию о нём, например имя слоя, с которого он был удалён. Пробую решение "в лоб": создаю реактор на событие "удаление объекта". Реактор отрабатывает нормально, но по указателю примитива, который возвращается в функцию отклика, уже ничего получить невозможно - это и понятно, примитив-то уже удалён.
Вопрос: какими обходными путями воспользоваться? Как получить информацию о примитиве до его удаления из базы рисунка?
И ещё в перспективе маячит задача с использованием реакторов: запретить сохранение рисунка под определённым (текущим) именем...
Заранее спасибо за помощь.

[Игорь Костюкович]

TararykovDG, нашлась проблемка при предложенном Вами подходе. Тестировал на достаточно загруженном чертеже (порядка 80 тыс. примитивов). Терпения хватило на 10 минут ожидания, затем сбросил процесс. Вывод: пересчитывать всю базу примитивов не есть правильно. Всё-таки нужно найти какой-то способ вытянуть данные удаляемого примитива в промежутке между его выбором для удаления и реальным его удалением...

[TararykovDG]

Сообщение от Игорь Костюкович Тестировал на достаточно загруженном чертеже (порядка 80 тыс. примитивов). Терпения хватило на 10 минут ожидания, затем сбросил процесс. Вывод: пересчитывать всю базу примитивов не есть правильно. Всё-таки нужно найти какой-то способ вытянуть данные удаляемого примитива в промежутке между его выбором для удаления и реальным его удалением...

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

Код:

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

(defun Erased(reac data / ) ; удаляется какой-то объект
  (if (not flag_first_del) ; если удаляем первый раз
    (setq lst_del_obj (cons (last data) lst_del_obj)) ; заносим удаляемый объект в список
    )
)

(defun WillStart(reac data / ) ; старт какой-то команды ACad
  (if (member (car data) (list "ERASE" "_ERASE")) ; если это команда удаления
    (setq lst_del_obj nil
	  lst_info_del_obj nil
	  flag_first_del nil
	  )
    )
)

(defun Ended(reac data / ) ; конец какой-то команды ACad
  (if (member (car data) (list "ERASE" "_ERASE")) ; если это команда удаления
    (if lst_del_obj ; если список (сформированный в Erased) не пустой
      (progn
	(setq flag_first_del T) ; запоминаем что объекты уже удалены
        (setq lst_info_del_obj (mapcar '(lambda (del_obj) (entget (entdel del_obj))) lst_del_obj)) ; восстанавливаем удаленные объекты и формируем список с инфой по ним
	(mapcar 'entdel lst_del_obj) ; снова удаляем восстановленные объекты
	)
      )
    )
)

(setq dbr (vlr-acdb-reactor "Реактор базы чертежа: "
	      (list '(:vlr-objectErased . Erased)
		    )
	      )
	)

(setq cmdr (vlr-command-reactor "Реактор команд: "
	     (list '(:vlr-commandWillStart . WillStart)
		   '(:vlr-commandEnded . Ended)
		   )
	     )
      )

После выполнения в списке lst_info_del_obj должна быть вся инфа по удаленным объектам. Скорость выполнения никак не должна зависеть от общего числа объектов на чертеже, а вот от числа удаляемых объектов зависеть будет, так что если будешь удалять (80 тыс. примитивов), то ...

[VVA]

Сообщение от TararykovDG вот от числа удаляемых объектов зависеть будет, так что если будешь удалять (80 тыс. примитивов), то ...

то просто будет последовательность _ERASE _OOPS _ERASE.
TararykovDG, - маладца. Думаю что это приемлемый вариант для Игоря.

[TararykovDG]

Сообщение от VVA TararykovDG, - маладца. Думаю что это приемлемый вариант для Игоря.

VVA, приятно получит такую оценку от Вас, если конечно это не ирония. Судя по тому, что Вы и Игорь из одного города можно предположить, что Вы знакомы. Однако посмотрим, что скажет сам Игорь по поводу предложенного варианта .

[Игорь Костюкович]

TararykovDG, огромное СПАСИБО! Действительно, работает так, как нужно. В том же чертеже (80 тыс. примитивов) удалил одной командой _erase (исключительно в целях эксперимента ) 11825 примитивов. Результат получил через 4.22 с.
Тестировать более подробно пока нет времени, но уже понятно, что результат достигнут. Ещё раз - спасибо...
Offtop: С VVA, мы действительно знакомы, хотя работаем в разных организациях и над разными проблемами...