想求个代码，打印出当前图形打开期间运行过的所有命令和执行的次数

Lisphk

在学反应器，想求个代码，打印出当前图形打开期间运行过的所有命令和执行的次数

marting

1. (defun CmdSpy()
   
2.   (vl-load-com)
   
3.   (if(not cmdspy:cmdreactor)
   
4.     (setq cmdspy:cmdreactor
   
5.            (vlr-Command-Reactor nil
   
6.              '((:vlr-CommandEnded . CmdSpyReaction))
   
7.              )
   
8.           )
   
9.     )
   
10.   (princ)
    
11.   )
    
12. 
    
13. (CmdSpy)
    
14. 
    
15. (defun CmdSpyReaction(Reac Args / cLst)
    
16.   (if
    
17.     (not
    
18.       (setq cLst(assoc(car Args)cmdspy:list)))
    
19.         (setq cmdspy:list(cons(cons(car Args) 1)cmdspy:list))
    
20.         (setq cmdspy:list(subst(cons(car Args)(1+(cdr cLst)))
    
21.                                              cLst cmdspy:list))
    
22.     )
    
23.   (princ)
    
24.   )
    
25. 
    
26. (defun c:lookcmdlist(/ cTot)
    
27.   (if cmdspy:list
    
28.     (progn
    
29.       (setq cmdspy:list
    
30.           (vl-sort cmdspy:list
    
31.                    '(lambda(a b)(>(cdr a)(cdr b))))
    
32.             cTot(apply '+(mapcar 'cdr cmdspy:list))
    
33.             )
    
34.       (princ "\n====== 命令使用列表 ======\n")
    
35.       (foreach i cmdspy:list
    
36.         (princ(strcat "\n "(car i)" "))
    
37.         (repeat(- 26(strlen(car i)))(princ "."))
    
38.         (princ " ")(princ(itoa(cdr i)))
    
39.         ); end foreach
    
40.       (princ(strcat "\n\n TOTAL: "(itoa cTot)))
    
41.       (princ "\n\n========== 结束 报告 =========")
    
42.       (textscr)
    
43.       )
    
44.      (princ "\nNo command history found ")
    
45.     )
    
46.   (princ)
    
47.   ); end of c:lookcmdlist
    

(defun CmdSpy()<br />   (vl-load-com)<br />   (if(not cmdspy:cmdreactor)<br />     (setq cmdspy:cmdreactor<br />            (vlr-Command-Reactor nil<br />              '((:vlr-CommandEnded . CmdSpyReaction))<br />              )<br />           )<br />     )<br />   (princ)<br />   )<br /> <br /> (CmdSpy)<br /> <br /> (defun CmdSpyReaction(Reac Args / cLst)<br />   (if<br />     (not<br />       (setq cLst(assoc(car Args)cmdspy:list)))<br />         (setq cmdspy:list(cons(cons(car Args) 1)cmdspy:list))<br />         (setq cmdspy:list(subst(cons(car Args)(1+(cdr cLst)))<br />                                              cLst cmdspy:list))<br />     )<br />   (princ)<br />   )<br /> <br /> (defun c:lookcmdlist(/ cTot)<br />   (if cmdspy:list<br />     (progn<br />       (setq cmdspy:list<br />           (vl-sort cmdspy:list<br />                    '(lambda(a b)(>(cdr a)(cdr b))))<br />             cTot(apply '+(mapcar 'cdr cmdspy:list))<br />             )<br />       (princ "\n====== 命令使用列表 ======\n")<br />       (foreach i cmdspy:list<br />         (princ(strcat "\n "(car i)" "))<br />         (repeat(- 26(strlen(car i)))(princ "."))<br />         (princ " ")(princ(itoa(cdr i)))<br />         ); end foreach<br />       (princ(strcat "\n\n TOTAL: "(itoa cTot)))<br />       (princ "\n\n========== 结束 报告 =========")<br />       (textscr)<br />       )<br />      (princ "\nNo command history found ")<br />     )<br />   (princ)<br />   ); end of c:lookcmdlist<br />

命令: lookcmdlist

======== 命令使用列表 ========

LINE ............................. 2
MOVE ........................... 1
COPY .............................1
PROPERTIES ................ 1

TOTAL: 5

========= 结束 报告 ==========