反应器的一个问题

onej

;;;打开
(if (not Reactor_beginOpen)
(setq Reactor_beginOpen
(vlr-dwg-reactor
nil
'((:vlr-beginDwgOpen . Open)
)
)
)
)
(vlr-pers Reactor_beginOpen)
(defun open(Caller CmdSet)
(alert "open")
) 当文档打开时如何立即加载我所需要的回调函数(open)？！

meflying

你得把这个反应器存到文档里面，退出后，再打开这个文档才会调用OPEN，打开一个未存此反应器的文档或新建一个稳当则不会有此事件，而且，你还的保证每个打开的文档都自动加载函数OPEN，