[EfremenkoDO]

Не понимаю в чем проблема, не могу заставить работать реактор.

Код:

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

(vl-load-com)

(defun fOPen (reac param /)
  (alert "Open")
)

(defun fSave (reac param /)
  (alert "Save")
)

(defun reac (/)
  (setq	dwgr
	 (vlr-dwg-reactor
	   nil
	   (List '(:VLR-endDwgOpen . fOpen)
	          '(:VLR-saveComplete . fSave)
	   )
	 )
  )
)

Что именно тут не так? а лучше посоветуйте где еще можно посмотреть статьи по этой тематике! У Полищука на этот вопрос ответа я не нашел.

[Do$]

Вот так работает вроде (на сохранение чертежа):

Код:

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

(vl-load-com)
 
(defun fOPen (reac param /)
  (alert "Open")
) ;_ end of defun
 
(defun fSave (reac param /)
  (alert "Save")
) ;_ end of defun
 
 
(setq dwgr
       (vlr-dwg-reactor
     nil
     (List '(:VLR-endDwgOpen . fOpen)
           '(:VLR-saveComplete . fSave)
     ) ;_ end of List
       ) ;_ end of vlr-dwg-reactor
) ;_ end of setq

А на открытие - надо сделать реактор постоянным функцией vlr-pers
О реакторах все подробно и доходчиво есть как раз у Полещука в книге "AutoLISP и VisualLISP в среде AutoCAD"

[EfremenkoDO]

Спасибо за ответ, для того чтоб работало по всему ACAD добавил такую строчку

(vlr-set-notification dwgr 'all-documents)

и заработало

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

Зачем реактор на открытие чертежа? Не проще ли сделать автозаружаемый лисп (который сам себя и будет вызывать)?

[Do$]

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

[EfremenkoDO]

Сообщение от Кулик Алексей aka kpblc Зачем реактор на открытие чертежа? Не проще ли сделать автозаружаемый лисп (который сам себя и будет вызывать)?

Нужно определять путь открываемого файла

[Do$]

Тогда да, можно без реактора - занести код в acaddoc.lsp