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

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

[Do$]

А каким образом примитив удаляется?

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

Да любым. Разве это имеет значение? Командой _.erase, например...

[Евгений А.]

Попробуй добавить объектный реактор :vlr-openedForModify, на нём бери инфу с объекта, а потом, если сработает :vlr-erased, то просто используй считанную информацию.

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

Евгений, это, конечно, вариант, но...
Проблема в том, что объетный реактор должен "знать" те объекты, за которые он отвечает. Я же не знаю, какой из объектов пользователь вздумает удалить. Т.е. мне нужно контролировать ВСЮ базу примитивов, добавлять в список вновь созданные и т.д....

[Do$]

Может быть функцией entdel восстанавливать примитив, брать с него данные и снова удалять?

[Евгений А.]

Хорошо, есть ешё :vlr-objectOpenedForModify (для vlr-acdb-reactor), там реастор на весь файл, а не на объект.

[TararykovDG]

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

Код:

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

(vlr-command-reactor "Реактор команд: "
	      (list '(:vlr-commandWillStart . MyFun)
		    )
	      ) 

(defun MyFun(reac data / nbr)
  (if (= (car data) "ERASE")
    (if (setq nbr (cadr (ssgetfirst)))
      (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))) ; - список dxf кодов удаляемых объектов
      )
    )
)

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

Евгений, а ведь и вправду... Что-то у меня этот реактор выпал из поля зрения... Будем пробовать...
TararykovDG, интересное решение, но функция (ssgetfirst) в данном случае возвращает список (nil nil)... :-(

[TararykovDG]

Сообщение от Игорь Костюкович но функция (ssgetfirst) в данном случае возвращает список (nil nil)

Игорь Костюкович, а ты это проверил или только предполагаешь? Лично у меня если я выбрал и удаляю какой-то объект или набор выделенные объектов, то (ssgetfirst) возвращает что-то типа (nil <Selection set: 1e>) с набором объектов выбранных для удаления. Обрати внимание, что используется событие :vlr-commandWillStart, т. е. команда ACad'а только вызвана и еще не отработала и все объекты еще на местах и существуют, а значит и (ssgetfirst) должен их вернуть

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

TararykovDG, проверил, естественно. AutoCAD 2008.Сейчас попробую на других версиях, но, полагаю, результат будет тот же...

В дополнение. Ваша схема работает. если сначала были выбраны объекты, а затем дана команда _erase. Если же сначала задана команда, а затем производится выбор объктов для удаления, то - увы - (nil nil)...

[TararykovDG]

Игорь Костюкович, да ты прав, если сначала задана команда, а затем производится выбор объктов для удаления, то - увы - (nil nil)... Есть такое предложение

Код:

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

(defun MyFun_3(reac data / ) ; действие при старте команды
  (if (member (car data) (list "ERASE" "_ERASE"))
    (if (setq nbr (cadr (ssgetfirst))) ; если удаляемые объекты были выбраны, то запоминаем их в глобальном наборе nbr
      (setq flag_sel T) ; замопинаем, что удаляемые объекты были выбраны
      (setq nbr (ssget "_X")
	    flag_sel nil
	    ) ; если же объекты не были выбраны, то запоминаем все объекты чертежа
      )
    )
  (if nbr
    (setq lst_obj_info (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))))) ; запоминаем всю инфу о всех объектах, если оно вообще есть на чертеже
    )
)

(defun MyFun_4(reac data / item ed) ; действие после завершения команды
  (if (member (car data) (list "ERASE" "_ERASE"))
    (if (not flag_sel) ; если flag_sel = T, то у нас уже есть все удаляемые объекты
      (progn
	(foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))) ; перебираем все объекты из набора
	  (if (setq ed (entget item)) ; если ed не равен nil, значит объект осталься на чертеже, если ed = T, значит объект был удален
	    (setq lst_obj_info (vl-remove ed lst_obj_info)) ; удаляем из списка не удаленные объекты
	    )
	  )
	)
      )
    )
  lst_obj_info
)

(setq dbr (vlr-command-reactor "Реактор команд: "
	      (list '(:vlr-commandWillStart . MyFun_3)
		    '(:vlr-commandEnded . MyFun_4)
		    )
	      )
	)
(vlr-pers dbr)

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

TararykovDG, огромное спасибо! На первый взгляд - то, что нужно. Протестирую подробнее, посмотрю, поверчу, о результатах доложу...
Ещё раз - спасибо.

[TararykovDG]

Игорь Костюкович, тестируй. Думаю, если что и не так, то можно будет дожать

[puma]

Не подскажите по похожей задачки: как запретить взрывание ("explode") определенных блоков (имеют определенное имя)? Заранее спасибо.

[Кулик Алексей aka kpblc]

Установи для них в свойствах (если, конечно, AutoCAD не ниже 2008) explodeable -> нет.

[Евгений А.]

В 2006 версии тоже можно, ниже - не знаю.

[Кулик Алексей aka kpblc]

Offtop: У меня дома установлен только 2011, так что насчет ранних версий - "тут помню, тут не помню"

[puma]

Спасибо огромное, помогло. А можно понаглеть: нет чего-нибудь подобного для штриховок и размеров? а то соседи часто случайно разбивают их.

[VVA]

Сообщение от puma нет чего-нибудь подобного для штриховок и размеров?

Заблокировать слои со штриховками и размерами. Чтобы чертить правильно можно применить это (как вариант): Автоматический перенос размеров на слой размеры. Break макро