（完成）[编程申请]：申请编一个显示命令使用频率的程序

whitephoto

申请编一个能显示我们各种命令使用频率的程序，并按频率排序，这样可以优化cad的使用。

eachy

最初由 whitephoto 发布
[B]申请编一个能显示我们各种命令使用频率的程序，并按频率排序，这样可以优化cad的使用。 [/B]

你用什么版本的CAD？
这个可以用命令反应器记录。构造一个表，其中的每个字表中包含两项：前面是命令名称，后面是使用次数。

whitephoto

我用的是autocad2002,用命令反应器记录的话该怎么记，怎么看呢？

eachy

最初由 whitephoto 发布
[B]我用的是autocad2002,用命令反应器记录的话该怎么记，怎么看呢？ [/B]

2. 
   
3. (if (not ea:commandrecord_end)
   
4.   (setq        ea:commandrecord_end
   
5.          (vlr-command-reactor
   
6.            nil
   
7.            '((:vlr-commandEnded . ea:endCommand))
   
8.          )
   
9.   )
   
10. )
    
11. ;;;命令结束回调
    
12. (defun ea:endCommand (calling-reactor endcommandInfo / cmd lst)
    
13.   (setq cmd (nth 0 endcommandInfo))
    
14.   (if ea:cmdlst
    
15.     (if        (setq lst (assoc cmd ea:cmdlst))
    
16.       (setq ea:cmdlst (subst (list cmd (1+ (cadr lst)))
    
17.                              lst
    
18.                              ea:cmdlst
    
19.                       )
    
20.       )
    
21.       (setq ea:cmdlst (append (list (list cmd 1)) ea:cmdlst))
    
22.     )
    
23.     (setq ea:cmdlst (list (list cmd 1)))
    
24.   )
    
25. )
    
26. (defun c:Ea:LstCMD ()
    
27.   (if ea:cmdlst
    
28.     (princ ea:cmdlst)
    
29.     (princ "\nNone command enable!")
    
30.   )
    
31.   (princ)
    
32. )

<br /> (if (not ea:commandrecord_end)<br />   (setq        ea:commandrecord_end<br />          (vlr-command-reactor<br />            nil<br />            '((:vlr-commandEnded . ea:endCommand))<br />          )<br />   )<br /> )<br /> ;;;命令结束回调 <br /> (defun ea:endCommand (calling-reactor endcommandInfo / cmd lst)<br />   (setq cmd (nth 0 endcommandInfo))<br />   (if ea:cmdlst<br />     (if        (setq lst (assoc cmd ea:cmdlst))<br />       (setq ea:cmdlst (subst (list cmd (1+ (cadr lst)))<br />                              lst<br />                              ea:cmdlst<br />                       )<br />       )<br />       (setq ea:cmdlst (append (list (list cmd 1)) ea:cmdlst))<br />     )<br />     (setq ea:cmdlst (list (list cmd 1)))<br />   )<br /> )<br /> (defun c:Ea:LstCMD ()<br />   (if ea:cmdlst<br />     (princ ea:cmdlst)<br />     (princ "\nNone command enable!")<br />   )<br />   (princ)<br /> )