加载lisp后自动运行某个函数的设想。。不成功

阿然

有这么一个设想，如果lisp加载之后，我想立即执行这个函数，但是又不想把这个函数定义在前面，想用下面这个办法，结果CAD界面卡死，只能用任务管理器关闭CAD。

1. 
   
2. (vl-load-com)
   
3. ;;;balabalabala~~~
   
4. (if (not *RunAtOnce*)
   
5.   (setq *RunAtOnce*
   
6.   (vlr-docmanager-reactor
   
7.     nil
   
8.     '(
   
9.       (:vlr-documentToBeActivated . IWillRunAtOnce)
   
10.      )
    
11.   )
    
12.   )
    
13. )
    
14. ;;;balabalabala~~~
    
15. (defun IWillRunAtOnce (reactor command-list)
    
16.   (princ "\nI will run at once!")
    
17.   (if *RunAtOnce*
    
18.     (progn
    
19.       (vlr-remove-all :VLR-DocManager-Reactor )
    
20.       (setq *RunAtOnce* nil)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25. 
    

<br /> (vl-load-com)<br /> ;;;balabalabala~~~<br /> (if (not *RunAtOnce*)<br />   (setq *RunAtOnce*<br />   (vlr-docmanager-reactor<br />     nil<br />     '(<br />       (:vlr-documentToBeActivated . IWillRunAtOnce)<br />      )<br />   )<br />   )<br /> )<br /> ;;;balabalabala~~~<br /> (defun IWillRunAtOnce (reactor command-list)<br />   (princ "\nI will run at once!")<br />   (if *RunAtOnce*<br />     (progn<br />       (vlr-remove-all :VLR-DocManager-Reactor )<br />       (setq *RunAtOnce* nil)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

请教下问题出在哪里？

阿然

另外再请教下：
(vlr-remove reactor)
(vlr-owner-remove reactor owner)
这两个函数我个人理解是这样的owner 全部都(vlr-owner-remove)掉的反应器应该已经从cad中完全删除了吧？
(vlr-remove)适用owner为nil的reactor，如果owner存在，只是暂时禁用，可以用(vlr-add)函数恢复使用？
(vlr-remove-all)函数是把反应器直接从CAD中删除了，和vlr-remove的作用不一样？
上面三个理解，希望各位大侠解答。

Gu_xl

阿然 发表于 2012-11-22 19:48
另外再请教下：
(vlr-remove reactor)
(vlr-owner-remove reactor owner)

(vlr-remove reactor) 是禁用反应器，反应器并未删除
(vlr-owner-remove reactor owner)是从反应器所有者列表中删除 VLA 对象，反应器并未删除
要删除反应器对象，先获取反应器对象，用vla-delete函数删除反应器对象！
你给的例子只要将回调函数IWillRunAtOnce放在启动反应器语句之前应该就可以了！

阿然

按照gu版说的，把iwillrunatonce放在前面，也一样卡死，这是咋回事捏？

lijiao

没有这么麻烦，比如在你的lisp里有一个叫abc的函数，你希望加载时自动运行这个函数，只需在你的lisp最后加一句（abc）即可。