[求助]：如何编辑快捷键修改线色？

13802782441

我在朋友公司看到他们是用1，2等数字键改变线色，使用起来非常方便，听说是改auto.lsp，有大虾知道如何改吗？

f5612140

要在acad.lsp ,acad200x.lsp 中先載入才有意義,否則用時再載入,用傳統方法較快

2. 
   
3. (defun c:cc()
   
4.        (setvar "cmdecho" 0)
   
5.        (initget 7)
   
6.        (setq int (getint "\nSet color:"))
   
7.        (command "color" int)
   
8. (prin1)
   
9. )
   
10. (prin1)
    
11. 
    
12. (defun c:1()
    
13.        (setvar "cmdecho" 0)
    
14.        (command "color" 1)
    
15. (prin1)
    
16. )
    
17. (prin1)
    
18. 
    
19. 
    
20. (defun c:2()
    
21. 
    
22.        (setvar "cmdecho" 0)
    
23.        (command "color" 2)
    
24. (prin1)
    
25. )
    
26. (prin1)
    

<br /> (defun c:cc()<br />        (setvar "cmdecho" 0)<br />        (initget 7)<br />        (setq int (getint "\nSet color:"))<br />        (command "color" int)<br /> (prin1)<br /> )<br /> (prin1)<br /> <br /> (defun c:1()<br />        (setvar "cmdecho" 0)<br />        (command "color" 1)<br /> (prin1)<br /> )<br /> (prin1)<br /> <br /> <br /> (defun c:2()<br /> <br />        (setvar "cmdecho" 0)<br />        (command "color" 2)<br /> (prin1)<br /> )<br /> (prin1)<br />

依此類推

luck star

二楼楼主发的我怎么都看不懂啊？