[===AAA===]

Всем привет!

Есть командный реактор типа:

(setq ##r_aaa (vlr-command-reactor "Имя-Комплекса" '((:vlr-commandEnded . $функция))))

Настроен на окончание команды и работает по ходу сеанса без вопросов.
Что надо, то и делает.

Но при закрытии nanoCAD'a (примерно через секунду после того, как его окно закрывается)
происходит звуковой сигнал.

Видимо, реактор, не сумев обработать, эту последнюю команду закрытия, жалуется на свою нелёгкую
долю, т.к. если его деактивировать вручную, звука не происходит.

Вопрос:

Как можно деактивировать реактор обработки "завершения любой команды" фактом "пользователь
решил закрыть NC" ?

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

Самое простое - обернуть в vl-catch-all-apply.

[===AAA===]

То ли с синтаксисом где-то косячу то ли одно из двух...
Попробовал так:

(setq ##r_aaa (vlr-command-reactor "Имя-Комплекса" '((vl-catch-all-apply (:vlr-commandEnded . $функция)))))

срабатывать реактор перестал. :-(

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

Внутри функции реактора попробуй ставить отлов ошибок. И посмотри примеры использования vl-catch-all-apply, просто я уже не возле компа

[===AAA===]

Просто другие варианты синтаксиса выдают:

Отладочный режим:
недопустимая функция: VL-CATCH-ALL-APPLY: #<:VLR-COMMAND-REACTOR>

:-(

Её хоть вообще на реактор-то навешивать можно?

И да - функция $функция отлажена/рабочая (в самом конце её работы
выводится тестовое сообщение о завершении).

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

Сообщение от ===AAA=== в самом конце её работы выводится тестовое сообщение о завершении

Угу, куда выводить-то, если документов уже нет на момент закрытия NC? И я говорил про конструкцию типа

Код:

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

 (setq ##r_aaa (vlr-command-reactor "Имя-Комплекса" '((:vlr-commandEnded . $функция))))

(defun $функция (cmd reac) 
  (vl-catch-all-apply 
    (function 
      (lambda () 
        ; Твой код, весь и целиком
      )
    )
  )
)

[===AAA===]

Спасибо!

Гудеть после закрытия NC перестало
и функция работает тоже нормально.

А то я уже хотел связку из двух взаимно
включающих/отключающих друг друга
реакторов городить. :-)

Кстати, насчёт (function ...)

Не могу определиться - то ли оставлять её в надежде,
что "нанокадовцы" допилят компилятор для Лиспа, то
ли убирать. Или уже пусть остаётся в коде, есть/пить
вроде бы и не просит...