[mmmx]

Разбираюсь с реакторами.
Из редактора Visual Lisp кнопкой "загрузить активное окно редактора" загружаю свой реактор:

Код:

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

(vl-load-com)
(vlr-command-reactor "before change" '((:vlr-commandwillstart . beforechange)))
(defun beforechange(calling-reactor commandInfo)
  (print "test")
)

Реактор реагирует на модификацию любого объекта, выводя в командную строку слово "test".

Вот что происходит в автокаде при наступлении этого события (текстовое окно Автокада):

Команда:
"test"
"test"

** РАСТЯГИВАНИЕ **
Точка растягивания или [Базовая точка/Копировать/ОТменить/выХод]:

Так вот, если я загружу еще раз реактор, то надписей "test" станет три! И так далее.
Я не пойму: в памяти автокада образуются копии реактора, которые независимо друг от друга реагируют на событие? Как с этим бороться? Или я что-то делаю неправильно, не выгружаю его перед повторной загрузкой?...
И еще вопрос: почему при первой загрузке две надписи "test"? Реактор срабатывает два раза или это просто эхо команды?

Подскажите пожалуйста, заранее благодарен!
Михаил

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

Ага. Для фикса бага попробуй наподобие:

Код:

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

(if *vlr-cmd*
  (progn
    (setq *vlr-cmd* nil)
    (vlr-remove-all :vlr-command-reactor)
    ) ;_ end of progn
  ) ;_ end of if

(if (not *vlr-cmd*)
  (setq *vlr-cmd* (vlr-command-reactor
                    nil
                    '(
                      (:vlr-commandwillstart . cmd-start)
                      (:vlr-commandended . cmd-end)
                      (:vlr-commandcancelled . cmd-cancel)
                      (:vlr-commandfailed . cmd-fail)
                      )
                    ) ;_ end of VLR-Command-Reactor
        ) ;_ end of setq
  ) ;_ end of if

Естестенно, подставив свои значения переменных и функций

[mmmx]

Спасибо, помогает!

Все-таки, это единственный и правильный способ борьбы?

И еще мне все еще непонятно, почему (уже с применением этой "чистилки") после первичной загрузки реактора - два сообщения "тест" (то есть два прохода по реактору), а после повторной загрузки - одно?!

Команда:
"test"
"test"

** РАСТЯГИВАНИЕ **
Точка растягивания или [Базовая точка/Копировать/ОТменить/выХод]:

---здесь я повторно загружаю реактор---

Команда:
"test"

** РАСТЯГИВАНИЕ **
Точка растягивания или [Базовая точка/Копировать/ОТменить/выХод]:[/code]

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

А в первый раз грузится-то один раз или два? Поставь этот код в файл с реакторами - по идее должно сразу очиститься и поставиться.

[mmmx]

Поставь этот код в файл с реакторами -

Так я его и ставлю, о нем и говорю: первый раз он работает дважды, а после второй загрузки - уже один раз!

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

В абсолютно пустой файл и кад вставил следующий код:

Код:

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

(if *vlr-cmd*
  (progn
    (setq *vlr-cmd* nil)
    (vlr-remove-all :vlr-command-reactor)
    ) ;_ end of progn
  ) ;_ end of if

(if (not *vlr-cmd*)
  (setq *vlr-cmd* (vlr-command-reactor
                    nil
                    '(
                      (:vlr-commandwillstart . beforechange)
                      )
                    ) ;_ end of vlr-command-reactor
        ) ;_ end of setq
  ) ;_ end of if

(defun beforechange (calling-reactor commandinfo)
  (print "test")
  ) ;_ end of defun

Лог работы:

Код: [Выделить все] Command: l LINE "test" Specify first point: Specify next point or [Undo]: Specify next point or [Undo]: Specify next point or [Close/Undo]: Specify next point or [Close/Undo]: Command: pl PLINE "test" Specify start point: Current line-width is 0.0000 Specify next point or [Arc/Halfwidth/Length/Undo/Width]: Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: Command: e ERASE "test" Select objects: Specify opposite corner: 1 found Select objects: Command:

[mmmx]

Хм...
Ладно, все равно - спасибо большое за помощь!

[Эдуард]

Код:

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

(vl-load-com)
(if (not bch)
  (setq	bch (vlr-command-reactor
	      "before change"
	      '((:vlr-commandwillstart . beforechange))
	    )
  )
)
(if (not (vlr-added-p bch))
  (vlr-add bch)
)
(defun beforechange (calling-reactor commandInfo)
  (print "test")
)

[mmmx]

Спасибо, Эдуард, kpblc, ваш код работает...
Забыл упомянуть про одну вещь: ошибка была на автокаде2006. Сейчас дома, проверяю на 2002-м - работает, как положено!
Вот только что с 2006-м акадом делать?..