怎么用反应器监视一个特定的命令

xinrstar

如题，请教老师

xinrstar

找到一个有些复杂的方法：
(setvar "LOGFILEMODE" 1)  
设置系统变量LOGFILEMODE的值为1 维护日志文件
(getvar "LOGFILENAME")
得到系统日志文件的地址和文件名
然后从日志文件中可以得到最近执行的命令

这样可以监视CAD已经执行完的命令，不过命令刚开始执行就不行了。
继续请教高手：怎么在命令开始执行时就可以得到命令名

阿然

使用命令反应器

1. (vl-load-com)
   
2. (or *commandReactor*
   
3.   (setq        *commandReactor*
   
4.          (VLR-Command-Reactor
   
5.            nil
   
6.            '
   
7.             (
   
8.              (:vlr-commandWillStart . test:command-will-start)
   
9.             )
   
10.          ) ;_ end of vlr-command-reactor
    
11.   )
    
12. )
    
13. 
    
14. (defun test:command-will-start (reactor command-list / objlist)
    
15.   (princ (strcat "\n您执行了 " (car command-list) "命令!"))
    
16. )
    

(vl-load-com)<br /> (or *commandReactor*<br />   (setq        *commandReactor*<br />          (VLR-Command-Reactor<br />            nil<br />            '<br />             (<br />              (:vlr-commandWillStart . test:command-will-start)<br />             )<br />          ) ;_ end of vlr-command-reactor<br />   )<br /> )<br /> <br /> (defun test:command-will-start (reactor command-list / objlist)<br />   (princ (strcat "\n您执行了 " (car command-list) "命令!"))<br /> )<br />

669423907

你看看这个也许对你有帮助
http://bbs.mjtd.com/thread-86804-1-1.html

Gu_xl

监视lisp命令:

1. (or *lispvlr*
   
2.     (setq *lispvlr* (vlr-lisp-reactor nil '((:vlr-lispWillStart . lispcallback))))
   
3.     )
   
4. (defun lispcallback (vlrobj data)
   
5.   (princ "\n启动lisp命令是： ")
   
6.   (princ (car data)) (princ)
   
7.   )

(or *lispvlr*<br />     (setq *lispvlr* (vlr-lisp-reactor nil '((:vlr-lispWillStart . lispcallback))))<br />     )<br /> (defun lispcallback (vlrobj data)<br />   (princ "\n启动lisp命令是： ")<br />   (princ (car data)) (princ)<br />   )

xinrstar

阿然 发表于 2014-4-8 11:07
使用命令反应器

感谢阿然  问题已解决 谢谢！！！

CAD_lso

xinrstar 发表于 2014-4-9 11:25
感谢阿然  问题已解决 谢谢！！！

如何将问题设置为已解决?