[LISP函数]：在07版中，如何编程让按键盘C就相当于按"COPY"?

tchthong

我不想改自定义文件
如何用LSP编程实现
我曾经编过，但却不能多重复制
希望高人指点...
注:(请测试成功再告诉我哦)

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun cd_err (s)
   
6.   (setvar "cmdecho" cm)
   
7.   (command "_.undo" "_e")
   
8. )
   
9. 
   
10. (defun c:c ()
    
11.   (princ "\n选择对象 <退出>:")
    
12.   (setq ss (ssget))
    
13.   (setq cm (getvar "cmdecho"))
    
14.   (setq *error* cd_err)
    
15.   (setvar "cmdecho" 1)
    
16.   (if ss (progn
    
17.                 (command ".copy" ss "" "m" pause)
    
18.          )
    
19.   )
    
20.   (setvar "cmdecho" cm)
    
21.   (princ)
    
22. )
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (defun cd_err (s)<br />   (setvar "cmdecho" cm)<br />   (command "_.undo" "_e")<br /> )<br /> <br /> (defun c:c ()<br />   (princ "\n选择对象 <退出>:")<br />   (setq ss (ssget))<br />   (setq cm (getvar "cmdecho"))<br />   (setq *error* cd_err)<br />   (setvar "cmdecho" 1)<br />   (if ss (progn<br />                 (command ".copy" ss "" "m" pause)<br />          )<br />   )<br />   (setvar "cmdecho" cm)<br />   (princ)<br /> )<br />   [/FONT]<br />