自制工具箱的自定义快捷键程序

edata

我的还没完。。Z版已经完成。。。

1. ;;;*****自定义快捷命令 程序********
   
2. (defun sk_mapcar(fun lst)
   
3.   (mapcar '(lambda(x) (fun (car x)(cdr x))) lst)
   
4.   )
   
5. (defun onekeyset (/ lst)  ;一键设置
   
6.   (purgeall)  
   
7.   (setq lst(list
   
8.   (cons "wdy501" "ff")
   
9.   (cons "wdy502" "fff")
   
10.   (cons "wdy503" "oo")
    
11.   (cons "wdy504" "ooo")
    
12.   (cons "wdy505" "2o")
    
13.   (cons "wdy506" "xx")
    
14.   (cons "wdy507" "ns")
    
15.   (cons "wdy508" "wk")
    
16.   (cons "wdy509" "bra")
    
17.   (cons "wdy510" "lj")
    
18.   ))
    
19.   (sk_mapcar set_tile lst)
    
20. )
    
21. 
    
22. 
    
23. (defun purgeall (/ lst) ;自定义快捷键全部清除
    
24.   (setq lst(list
    
25.              (cons "wdy501" "")
    
26.   (cons "wdy502" "")
    
27.   (cons "wdy503" "")
    
28.   (cons "wdy504" "")
    
29.   (cons "wdy505" "")
    
30.   (cons "wdy506" "")
    
31.   (cons "wdy507" "")
    
32.   (cons "wdy508" "")
    
33.   (cons "wdy509" "")
    
34.   (cons "wdy510" "")
    
35.              ))
    
36.   (sk_mapcar set_tile lst)
    
37. )
    
38. 
    
39. ;;;***读取注册表 程序开始***
    
40. (defun read_from_registry ()
    
41.   (setq rfreg_wdy501 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy501"))
    
42.   (setq rfreg_wdy502 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy502"))
    
43.   (setq rfreg_wdy503 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy503"))
    
44.   (setq rfreg_wdy504 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy504"))
    
45.   (setq rfreg_wdy505 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy505"))
    
46.   (setq rfreg_wdy506 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy506"))
    
47.   (setq rfreg_wdy507 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy507"))
    
48.   (setq rfreg_wdy508 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy508"))
    
49.   (setq rfreg_wdy509 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy509"))
    
50.   (setq rfreg_wdy510 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy510"))
    
51. )
    
52. ;;;***读取注册表 程序结束***
    
53. 
    
54. ;;;*****写入WDY 程序开始*****
    
55. (defun write_to_wdy ()
    
56.   (if rfreg_wdy501 (set_tile "wdy501" rfreg_wdy501) (set_tile "wdy501" ""))
    
57.   (if rfreg_wdy502 (set_tile "wdy502" rfreg_wdy502) (set_tile "wdy502" ""))
    
58.   (if rfreg_wdy503 (set_tile "wdy503" rfreg_wdy503) (set_tile "wdy503" ""))
    
59.   (if rfreg_wdy504 (set_tile "wdy504" rfreg_wdy504) (set_tile "wdy504" ""))
    
60.   (if rfreg_wdy505 (set_tile "wdy505" rfreg_wdy505) (set_tile "wdy505" ""))
    
61.   (if rfreg_wdy506 (set_tile "wdy506" rfreg_wdy506) (set_tile "wdy506" ""))
    
62.   (if rfreg_wdy507 (set_tile "wdy507" rfreg_wdy507) (set_tile "wdy507" ""))
    
63.   (if rfreg_wdy508 (set_tile "wdy508" rfreg_wdy508) (set_tile "wdy508" ""))
    
64.   (if rfreg_wdy509 (set_tile "wdy509" rfreg_wdy509) (set_tile "wdy509" ""))
    
65.   (if rfreg_wdy510 (set_tile "wdy510" rfreg_wdy510) (set_tile "wdy510" ""))
    
66. )
    
67. ;;;*****写入WDY 程序结束*****
    
68. 
    
69. ;;;*****读取WDY 程序开始*****
    
70. (defun read_from_wdy (/ lst)
    
71.   (setq lst(list
    
72.              (cons rfw_wdy501 "wdy501")
    
73.              (cons rfw_wdy502 "wdy502")
    
74.              (cons rfw_wdy503 "wdy503")
    
75.              ))
    
76.   (sk_mapcar get_tile lst)
    
77. 
    
78. ;;;  (setq rfw_wdy501 (get_tile "wdy501"))
    
79. ;;;  (setq rfw_wdy502 (get_tile "wdy502"))
    
80. ;;;  (setq rfw_wdy503 (get_tile "wdy503"))
    
81. ;;;  (setq rfw_wdy504 (get_tile "wdy504"))
    
82. ;;;  (setq rfw_wdy505 (get_tile "wdy505"))
    
83. ;;;  (setq rfw_wdy506 (get_tile "wdy506"))
    
84. ;;;  (setq rfw_wdy507 (get_tile "wdy507"))
    
85. ;;;  (setq rfw_wdy508 (get_tile "wdy508"))
    
86. ;;;  (setq rfw_wdy509 (get_tile "wdy509"))
    
87. ;;;  (setq rfw_wdy510 (get_tile "wdy510"))
    
88. )
    
89. ;;;*****读取WDY 程序结束*****
    
90. 
    
91. ;;;***写入注册表 程序开始
    
92. (defun write_to_registry (/ lst)
    
93.   (defun sk_reg_write(sk_name sk_value)(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" sk_name sk_value))
    
94.   (setq lst(list
    
95.              (cons "wdy501" rfw_wdy501)
    
96.              (cons "wdy502" rfw_wdy502)
    
97.              (cons "wdy503" rfw_wdy503)
    
98.              ))
    
99. (sk_mapcar sk_reg_write lst)
    
100. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy501" rfw_wdy501)
     
101. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy502" rfw_wdy502)
     
102. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy503" rfw_wdy503)
     
103. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy504" rfw_wdy504)
     
104. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy505" rfw_wdy505)
     
105. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy506" rfw_wdy506)
     
106. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy507" rfw_wdy507)
     
107. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy508" rfw_wdy508)
     
108. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy509" rfw_wdy509)
     
109. ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy510" rfw_wdy510)
     
110. )
     
111. ;;;***写入注册表 程序结束
     
112. 
     
113. ;;;***自定义命令 程序开始***
     
114. (defun wdy_qidong (/ lst)
     
115.   (read_from_registry)
     
116.   (setq lst(list
     
117.              (cons rfreg_wdy501 "wdy_lxdj")
     
118.              (cons rfreg_wdy502 "wdy_kxyj")
     
119.              (cons rfreg_wdy503 "wdy_sxpy")
     
120.              ))
     
121.   (defun sk_eval(sk_cmd fun_)(eval (read (strcat "(defun c:" sk_cmd "() (c:" fun_ "))"))))
     
122.   (sk_mapcar sk_eval lst)
     
123. ;;;  
     
124. ;;;  (if rfreg_wdy501 (eval (read (strcat "(defun c:" rfreg_wdy501 "() (c:wdy_lxdj))")))) ;rfreg_wdy501对应于wdy_lxdj命令,后面的也一样
     
125. ;;;  (if rfreg_wdy502 (eval (read (strcat "(defun c:" rfreg_wdy502 "() (c:wdy_kxyj))"))))
     
126. ;;;  (if rfreg_wdy503 (eval (read (strcat "(defun c:" rfreg_wdy503 "() (c:wdy_sxpy))"))))
     
127. ;;;  (if rfreg_wdy504 (eval (read (strcat "(defun c:" rfreg_wdy504 "() (c:wdy_dcpy))"))))
     
128. ;;;  (if rfreg_wdy505 (eval (read (strcat "(defun c:" rfreg_wdy505 "() (c:wdy_ecpy))"))))
     
129. ;;;  (if rfreg_wdy506 (eval (read (strcat "(defun c:" rfreg_wdy506 "() (c:wdy_cjxj))"))))
     
130. ;;;  (if rfreg_wdy507 (eval (read (strcat "(defun c:" rfreg_wdy507 "() (c:wdy_nspy))"))))
     
131. ;;;  (if rfreg_wdy508 (eval (read (strcat "(defun c:" rfreg_wdy508 "() (c:wdy_wkpy))"))))
     
132. ;;;  (if rfreg_wdy509 (eval (read (strcat "(defun c:" rfreg_wdy509 "() (c:wdy_jddk))"))))
     
133. ;;;  (if rfreg_wdy510 (eval (read (strcat "(defun c:" rfreg_wdy510 "() (c:wdy_dxhy))"))))
     
134. )
     

;;;*****自定义快捷命令 程序********<br /> (defun sk_mapcar(fun lst)<br />   (mapcar '(lambda(x) (fun (car x)(cdr x))) lst)<br />   )<br /> (defun onekeyset (/ lst)  ;一键设置<br />   (purgeall)  <br />   (setq lst(list<br />   (cons "wdy501" "ff")<br />   (cons "wdy502" "fff")<br />   (cons "wdy503" "oo")<br />   (cons "wdy504" "ooo")<br />   (cons "wdy505" "2o")<br />   (cons "wdy506" "xx")<br />   (cons "wdy507" "ns")<br />   (cons "wdy508" "wk")<br />   (cons "wdy509" "bra")<br />   (cons "wdy510" "lj")<br />   ))<br />   (sk_mapcar set_tile lst)<br /> )<br /> <br /> <br /> (defun purgeall (/ lst) ;自定义快捷键全部清除<br />   (setq lst(list<br />              (cons "wdy501" "")<br />   (cons "wdy502" "")<br />   (cons "wdy503" "")<br />   (cons "wdy504" "")<br />   (cons "wdy505" "")<br />   (cons "wdy506" "")<br />   (cons "wdy507" "")<br />   (cons "wdy508" "")<br />   (cons "wdy509" "")<br />   (cons "wdy510" "")<br />              ))<br />   (sk_mapcar set_tile lst)<br /> )<br /> <br /> ;;;***读取注册表 程序开始***<br /> (defun read_from_registry ()<br />   (setq rfreg_wdy501 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy501"))<br />   (setq rfreg_wdy502 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy502"))<br />   (setq rfreg_wdy503 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy503"))<br />   (setq rfreg_wdy504 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy504"))<br />   (setq rfreg_wdy505 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy505"))<br />   (setq rfreg_wdy506 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy506"))<br />   (setq rfreg_wdy507 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy507"))<br />   (setq rfreg_wdy508 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy508"))<br />   (setq rfreg_wdy509 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy509"))<br />   (setq rfreg_wdy510 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy510"))<br /> )<br /> ;;;***读取注册表 程序结束***<br /> <br /> ;;;*****写入WDY 程序开始*****<br /> (defun write_to_wdy ()<br />   (if rfreg_wdy501 (set_tile "wdy501" rfreg_wdy501) (set_tile "wdy501" ""))<br />   (if rfreg_wdy502 (set_tile "wdy502" rfreg_wdy502) (set_tile "wdy502" ""))<br />   (if rfreg_wdy503 (set_tile "wdy503" rfreg_wdy503) (set_tile "wdy503" ""))<br />   (if rfreg_wdy504 (set_tile "wdy504" rfreg_wdy504) (set_tile "wdy504" ""))<br />   (if rfreg_wdy505 (set_tile "wdy505" rfreg_wdy505) (set_tile "wdy505" ""))<br />   (if rfreg_wdy506 (set_tile "wdy506" rfreg_wdy506) (set_tile "wdy506" ""))<br />   (if rfreg_wdy507 (set_tile "wdy507" rfreg_wdy507) (set_tile "wdy507" ""))<br />   (if rfreg_wdy508 (set_tile "wdy508" rfreg_wdy508) (set_tile "wdy508" ""))<br />   (if rfreg_wdy509 (set_tile "wdy509" rfreg_wdy509) (set_tile "wdy509" ""))<br />   (if rfreg_wdy510 (set_tile "wdy510" rfreg_wdy510) (set_tile "wdy510" ""))<br /> )<br /> ;;;*****写入WDY 程序结束*****<br /> <br /> ;;;*****读取WDY 程序开始*****<br /> (defun read_from_wdy (/ lst)<br />   (setq lst(list<br />              (cons rfw_wdy501 "wdy501")<br />              (cons rfw_wdy502 "wdy502")<br />              (cons rfw_wdy503 "wdy503")<br />              ))<br />   (sk_mapcar get_tile lst)<br /> <br /> ;;;  (setq rfw_wdy501 (get_tile "wdy501"))<br /> ;;;  (setq rfw_wdy502 (get_tile "wdy502"))<br /> ;;;  (setq rfw_wdy503 (get_tile "wdy503"))<br /> ;;;  (setq rfw_wdy504 (get_tile "wdy504"))<br /> ;;;  (setq rfw_wdy505 (get_tile "wdy505"))<br /> ;;;  (setq rfw_wdy506 (get_tile "wdy506"))<br /> ;;;  (setq rfw_wdy507 (get_tile "wdy507"))<br /> ;;;  (setq rfw_wdy508 (get_tile "wdy508"))<br /> ;;;  (setq rfw_wdy509 (get_tile "wdy509"))<br /> ;;;  (setq rfw_wdy510 (get_tile "wdy510"))<br /> )<br /> ;;;*****读取WDY 程序结束*****<br /> <br /> ;;;***写入注册表 程序开始<br /> (defun write_to_registry (/ lst)<br />   (defun sk_reg_write(sk_name sk_value)(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" sk_name sk_value))<br />   (setq lst(list<br />              (cons "wdy501" rfw_wdy501)<br />              (cons "wdy502" rfw_wdy502)<br />              (cons "wdy503" rfw_wdy503)<br />              ))<br /> (sk_mapcar sk_reg_write lst)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy501" rfw_wdy501)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy502" rfw_wdy502)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy503" rfw_wdy503)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy504" rfw_wdy504)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy505" rfw_wdy505)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy506" rfw_wdy506)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy507" rfw_wdy507)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy508" rfw_wdy508)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy509" rfw_wdy509)<br /> ;;;(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy510" rfw_wdy510)<br /> )<br /> ;;;***写入注册表 程序结束<br /> <br /> ;;;***自定义命令 程序开始***<br /> (defun wdy_qidong (/ lst)<br />   (read_from_registry)<br />   (setq lst(list<br />              (cons rfreg_wdy501 "wdy_lxdj")<br />              (cons rfreg_wdy502 "wdy_kxyj")<br />              (cons rfreg_wdy503 "wdy_sxpy")<br />              ))<br />   (defun sk_eval(sk_cmd fun_)(eval (read (strcat "(defun c:" sk_cmd "() (c:" fun_ "))"))))<br />   (sk_mapcar sk_eval lst)<br /> ;;;  <br /> ;;;  (if rfreg_wdy501 (eval (read (strcat "(defun c:" rfreg_wdy501 "() (c:wdy_lxdj))")))) ;rfreg_wdy501对应于wdy_lxdj命令,后面的也一样<br /> ;;;  (if rfreg_wdy502 (eval (read (strcat "(defun c:" rfreg_wdy502 "() (c:wdy_kxyj))"))))<br /> ;;;  (if rfreg_wdy503 (eval (read (strcat "(defun c:" rfreg_wdy503 "() (c:wdy_sxpy))"))))<br /> ;;;  (if rfreg_wdy504 (eval (read (strcat "(defun c:" rfreg_wdy504 "() (c:wdy_dcpy))"))))<br /> ;;;  (if rfreg_wdy505 (eval (read (strcat "(defun c:" rfreg_wdy505 "() (c:wdy_ecpy))"))))<br /> ;;;  (if rfreg_wdy506 (eval (read (strcat "(defun c:" rfreg_wdy506 "() (c:wdy_cjxj))"))))<br /> ;;;  (if rfreg_wdy507 (eval (read (strcat "(defun c:" rfreg_wdy507 "() (c:wdy_nspy))"))))<br /> ;;;  (if rfreg_wdy508 (eval (read (strcat "(defun c:" rfreg_wdy508 "() (c:wdy_wkpy))"))))<br /> ;;;  (if rfreg_wdy509 (eval (read (strcat "(defun c:" rfreg_wdy509 "() (c:wdy_jddk))"))))<br /> ;;;  (if rfreg_wdy510 (eval (read (strcat "(defun c:" rfreg_wdy510 "() (c:wdy_dxhy))"))))<br /> )<br />

ZZXXQQ

2. ;;;*****自定义快捷命令 程序********
   
3. (defun onekeyset ()  ;一键设置
   
4. (mapcar 'set_tile
   
5. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
   
6. '("ff" "fff" "oo" "ooo" "2o" "xx" "ns" "wk" "bra" "lj")
   
7. )
   
8. )
   
9. (defun purgeall () ;自定义快捷键全部清除
   
10. (mapcar 'set_tile
    
11. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
    
12. '("" "" "" "" "" "" "" "" "" "")
    
13. )
    
14. )
    
15. ;;;***读取注册表 程序开始***
    
16. (defun read_from_registry ()
    
17. (foreach x
    
18. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
    
19. (setq a (read(strcat "rfreg_" x)))
    
20. (set a (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" x))
    
21. )
    
22. )
    
23. ;;;***读取注册表 程序结束***
    
24. ;;;*****写入WDY 程序开始*****
    
25. (defun write_to_wdy ()
    
26. (foreach x
    
27. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
    
28. (setq a (eval(read(strcat "rfreg_" x))))
    
29. (set_tile x (if a a ""))
    
30. )
    
31. )
    
32. ;;;*****写入WDY 程序结束*****
    
33. ;;;*****读取WDY 程序开始*****
    
34. (defun read_from_wdy ()
    
35. (foreach x
    
36. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
    
37. (set (read(strcat "rfw_" x)) (get_tile x))
    
38. )
    
39. )
    
40. ;;;*****读取WDY 程序结束*****
    
41. ;;;***写入注册表 程序开始
    
42. (defun write_to_registry ()
    
43. (foreach x
    
44. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
    
45. (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" x (read(strcat "rfw_" x)))
    
46. )
    
47. )
    
48. ;;;***写入注册表 程序结束
    
49. ;;;***自定义命令 程序开始***
    
50. (defun wdy_qidong ()
    
51.   (read_from_registry)
    
52. (mapcar
    
53. '(lambda (x y)
    
54. (setq a (eval(read(strcat "rfreg_" x))))
    
55. (if a (eval(read(strcat "(defun c:" a "() (c:wdy_" y "))"))))
    
56. )
    
57. '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")
    
58. '('"lxdj" "kxyj" "sxpy" "dcpy" "ecpy" "cjxj" "nspy" "wkpy" "jddk" "dxhy")
    
59. )
    
60. )
    

;;;*****自定义快捷命令 程序********<br /> (defun onekeyset ()  ;一键设置<br /> (mapcar 'set_tile<br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> '("ff" "fff" "oo" "ooo" "2o" "xx" "ns" "wk" "bra" "lj")<br /> )<br /> )<br /> (defun purgeall () ;自定义快捷键全部清除<br /> (mapcar 'set_tile<br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> '("" "" "" "" "" "" "" "" "" "")<br /> )<br /> )<br /> ;;;***读取注册表 程序开始***<br /> (defun read_from_registry ()<br /> (foreach x<br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> (setq a (read(strcat "rfreg_" x)))<br /> (set a (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" x))<br /> )<br /> )<br /> ;;;***读取注册表 程序结束***<br /> ;;;*****写入WDY 程序开始*****<br /> (defun write_to_wdy ()<br /> (foreach x <br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> (setq a (eval(read(strcat "rfreg_" x))))<br /> (set_tile x (if a a ""))<br /> )<br /> )<br /> ;;;*****写入WDY 程序结束*****<br /> ;;;*****读取WDY 程序开始*****<br /> (defun read_from_wdy ()<br /> (foreach x<br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> (set (read(strcat "rfw_" x)) (get_tile x))<br /> )<br /> )<br /> ;;;*****读取WDY 程序结束*****<br /> ;;;***写入注册表 程序开始<br /> (defun write_to_registry ()<br /> (foreach x<br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" x (read(strcat "rfw_" x)))<br /> )<br /> )<br /> ;;;***写入注册表 程序结束<br /> ;;;***自定义命令 程序开始***<br /> (defun wdy_qidong ()<br />   (read_from_registry)<br /> (mapcar<br /> '(lambda (x y)<br /> (setq a (eval(read(strcat "rfreg_" x))))<br /> (if a (eval(read(strcat "(defun c:" a "() (c:wdy_" y "))"))))<br /> )<br /> '("wdy501" "wdy502" "wdy503" "wdy504" "wdy505" "wdy506" "wdy507" "wdy508" "wdy509" "wdy510")<br /> '('"lxdj" "kxyj" "sxpy" "dcpy" "ecpy" "cjxj" "nspy" "wkpy" "jddk" "dxhy")<br /> )<br /> )<br />

荒野孤行

edata 发表于 2014-6-10 10:07
应该是工具箱之类的，个人觉得应该采用一个包含点对的表来制作，因为需要一一对应，不然多了容易出错，也不 ...

采用cons和car、cadr去做么？用了大家写的，没达到想要的效果，我的源码已经丢出来了。

荒野孤行

ll_j 发表于 2014-6-10 09:18
实话实说，没想出楼主到底是在什么情况下使用，在我的一个帖子里提到过类似的“变态”定义，不过我还是认为 ...

用于自定义命令的快捷键设置，想进行优化，相关的源码已经发到帖子里面了。

荒野孤行

ZZXXQQ 发表于 2014-6-10 08:08
首先变量reg_wdy50?中要有需要的东东。

这是我做的WDY工具箱里面自定义快捷键的源码程序，那样写的太多了，我希望通过mapcar函数进行优化。

;;;*****自定义快捷命令 程序********
(defun onekeyset ()  ;一键设置
  (purgeall)
  (set_tile "wdy501" "ff")
  (set_tile "wdy502" "fff")
  (set_tile "wdy503" "oo")
  (set_tile "wdy504" "ooo")
  (set_tile "wdy505" "2o")
  (set_tile "wdy506" "xx")
  (set_tile "wdy507" "ns")
  (set_tile "wdy508" "wk")
  (set_tile "wdy509" "bra")
  (set_tile "wdy510" "lj")
)

(defun purgeall () ;自定义快捷键全部清除
  (set_tile "wdy501" "")
  (set_tile "wdy502" "")
  (set_tile "wdy503" "")
  (set_tile "wdy504" "")
  (set_tile "wdy505" "")
  (set_tile "wdy506" "")
  (set_tile "wdy507" "")
  (set_tile "wdy508" "")
  (set_tile "wdy509" "")
  (set_tile "wdy510" "")
)

;;;***读取注册表 程序开始***
(defun read_from_registry ()
  (setq rfreg_wdy501 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy501"))
  (setq rfreg_wdy502 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy502"))
  (setq rfreg_wdy503 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy503"))
  (setq rfreg_wdy504 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy504"))
  (setq rfreg_wdy505 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy505"))
  (setq rfreg_wdy506 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy506"))
  (setq rfreg_wdy507 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy507"))
  (setq rfreg_wdy508 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy508"))
  (setq rfreg_wdy509 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy509"))
  (setq rfreg_wdy510 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy510"))
)
;;;***读取注册表 程序结束***

;;;*****写入WDY 程序开始*****
(defun write_to_wdy ()
  (if rfreg_wdy501 (set_tile "wdy501" rfreg_wdy501) (set_tile "wdy501" ""))
  (if rfreg_wdy502 (set_tile "wdy502" rfreg_wdy502) (set_tile "wdy502" ""))
  (if rfreg_wdy503 (set_tile "wdy503" rfreg_wdy503) (set_tile "wdy503" ""))
  (if rfreg_wdy504 (set_tile "wdy504" rfreg_wdy504) (set_tile "wdy504" ""))
  (if rfreg_wdy505 (set_tile "wdy505" rfreg_wdy505) (set_tile "wdy505" ""))
  (if rfreg_wdy506 (set_tile "wdy506" rfreg_wdy506) (set_tile "wdy506" ""))
  (if rfreg_wdy507 (set_tile "wdy507" rfreg_wdy507) (set_tile "wdy507" ""))
  (if rfreg_wdy508 (set_tile "wdy508" rfreg_wdy508) (set_tile "wdy508" ""))
  (if rfreg_wdy509 (set_tile "wdy509" rfreg_wdy509) (set_tile "wdy509" ""))
  (if rfreg_wdy510 (set_tile "wdy510" rfreg_wdy510) (set_tile "wdy510" ""))
)
;;;*****写入WDY 程序结束*****

;;;*****读取WDY 程序开始*****
(defun read_from_wdy ()
  (setq rfw_wdy501 (get_tile "wdy501"))
  (setq rfw_wdy502 (get_tile "wdy502"))
  (setq rfw_wdy503 (get_tile "wdy503"))
  (setq rfw_wdy504 (get_tile "wdy504"))
  (setq rfw_wdy505 (get_tile "wdy505"))
  (setq rfw_wdy506 (get_tile "wdy506"))
  (setq rfw_wdy507 (get_tile "wdy507"))
  (setq rfw_wdy508 (get_tile "wdy508"))
  (setq rfw_wdy509 (get_tile "wdy509"))
  (setq rfw_wdy510 (get_tile "wdy510"))
)
;;;*****读取WDY 程序结束*****

;;;***写入注册表 程序开始
(defun write_to_registry ()
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy501" rfw_wdy501)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy502" rfw_wdy502)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy503" rfw_wdy503)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy504" rfw_wdy504)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy505" rfw_wdy505)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy506" rfw_wdy506)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy507" rfw_wdy507)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy508" rfw_wdy508)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy509" rfw_wdy509)
(vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\WDYGJX\\Hotkey" "wdy510" rfw_wdy510)
)
;;;***写入注册表 程序结束

;;;***自定义命令 程序开始***
(defun wdy_qidong ()
  (read_from_registry)
  (if rfreg_wdy501 (eval (read (strcat "(defun c:" rfreg_wdy501 "() (c:wdy_lxdj))")))) ;rfreg_wdy501对应于wdy_lxdj命令,后面的也一样
  (if rfreg_wdy502 (eval (read (strcat "(defun c:" rfreg_wdy502 "() (c:wdy_kxyj))"))))
  (if rfreg_wdy503 (eval (read (strcat "(defun c:" rfreg_wdy503 "() (c:wdy_sxpy))"))))
  (if rfreg_wdy504 (eval (read (strcat "(defun c:" rfreg_wdy504 "() (c:wdy_dcpy))"))))
  (if rfreg_wdy505 (eval (read (strcat "(defun c:" rfreg_wdy505 "() (c:wdy_ecpy))"))))
  (if rfreg_wdy506 (eval (read (strcat "(defun c:" rfreg_wdy506 "() (c:wdy_cjxj))"))))
  (if rfreg_wdy507 (eval (read (strcat "(defun c:" rfreg_wdy507 "() (c:wdy_nspy))"))))
  (if rfreg_wdy508 (eval (read (strcat "(defun c:" rfreg_wdy508 "() (c:wdy_wkpy))"))))
  (if rfreg_wdy509 (eval (read (strcat "(defun c:" rfreg_wdy509 "() (c:wdy_jddk))"))))
  (if rfreg_wdy510 (eval (read (strcat "(defun c:" rfreg_wdy510 "() (c:wdy_dxhy))"))))
)

llsheng_73

1. (defun tt(lst)
   
2.   (mapcar'(lambda(x)(eval(read(strcat"(defun c:"(vl-princ-to-string(car x))"()("(vl-princ-to-string(last x))"))"))))lst)
   
3.   )
   
4. (defun tt1(lst)
   
5.   (foreach x lst(eval(read(strcat"(defun c:"(vl-princ-to-string(car x))"()("(vl-princ-to-string(last x))"))")))))
   

(defun tt(lst)<br />   (mapcar'(lambda(x)(eval(read(strcat"(defun c:"(vl-princ-to-string(car x))"()("(vl-princ-to-string(last x))"))"))))lst)<br />   )<br /> (defun tt1(lst)<br />   (foreach x lst(eval(read(strcat"(defun c:"(vl-princ-to-string(car x))"()("(vl-princ-to-string(last x))"))")))))<br />

;(tt'((reg_wdy501 wdy_zf)(reg_wdy502 wdy_ff)(reg_wdy503 wdy_py)(reg_wdy504 wdy_sy)(reg_wdy505 wdy_yy)))
;(tt1'((reg_wdy501 wdy_zf)(reg_wdy502 wdy_ff)(reg_wdy503 wdy_py)(reg_wdy504 wdy_sy)(reg_wdy505 wdy_yy)))

另外多线段绘制,可指定各点起止宽度，可指定不为0的凸度
http://bbs.mjtd.com/forum.php?mo ... &fromuid=202795
里边子函数 x的定义个人觉得还是可以参考一下的，当然，实际意义不大，与楼主的需求也不相关....
唯一的好处是提前根据参数的类型定义出了对应的处理过程而不需要在循环内部重复判断该参数类型去调用相应的处理函数

edata

应该是工具箱之类的，个人觉得应该采用一个包含点对的表来制作，因为需要一一对应，不然多了容易出错，也不好添加。

ll_j

实话实说，没想出楼主到底是在什么情况下使用，在我的一个帖子里提到过类似的“变态”定义，不过我还是认为理论上是可行的，并没有什么实用价值。
楼主的wd*和reg_wd*是什么关系？这么复杂的变量名和变量的值又是什么关系？仅仅从mapcar的使用来说，总是不难的，不过我感觉应该有更深层次的优化才对。

lijiao

(setq lst1 '(wdy501 wdy502 wdy503 wdy504 wdy505))
(setq lst2 '(wdy_zf wdy_ff wdy_py wdy_sy wdy_yy))


(mapcar
  '(lambda (x y)
     (if (= (type
              (setq m (eval (read (strcat "reg_" (VL-PRINC-TO-STRING x)))))
            )
            'STR
         )
       (set (read (strcat "c:" m)) y)
     )
   )
  lst1
  lst2
)

ZZXXQQ

首先变量reg_wdy50?中要有需要的东东。