[nolte]

не желает запускаться функция реактора

Код:

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

 
(defun f888 ()
(setq dbr (vlr-acdb-reactor "lkj"
	(list 	'(:vlr-objectErased . asdf)))
)
)
(defun asdf ()
(princ(vlr-data dbr))
(princ (strcat "\n------------------" "\nURAAAAAAAAAAA" "\n-----------------------"))
)

вроде все по учебнику
сообщение об ошибке

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

Код:

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

 
(vl-load-com)

(defun f888 ()
  (setq dbr (vlr-acdb-reactor
              "lkj"
              (list '(:vlr-objecterased . asdf))
              ) ;_ end of vlr-acdb-reactor
        ) ;_ end of setq
  ) ;_ end of defun


(defun asdf (obj react)
  (princ (vlr-data dbr))
  (princ (strcat "\n------------------" "\nURAAAAAAAAAAA" "\n-----------------------"))
  ) ;_ end of defun

(f888)

[nolte]

спасибо Алексей.
не совсем понятно откуда берутся аргументы во второй функции. разберусь я думаю.

[Дима_]

Сообщение от nolte не совсем понятно откуда берутся аргументы во второй функции

Они необходимы, чтобы функции могла понять какой реактор ее запустил и при каких условиях - это "стандарт" для функции обратного вызова практически любого диалекта программирования.

[nolte]

Дима_, спасибо, вечером разберусь, надеюсь. Пока что понял, так должно быть и все тут. СТАНДАРТ.

[Дима_]

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

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

Сугубо ИМХО: практически я такое никогда не делал. Отладка (для меня) усложняется при объединении.