各位大大v帮我看看 为什么重启CAD自定义命令失效

love1030312

在明经上下载的别人的   
各位大大 版主  高手  帮我看看 为什么重启CAD自定义命令失效
哪个地方有问题？？？

2. (princ "\n启动命令：test")
   
3. 
   
4. (defun c:test ()
   
5.   (setvar "cmdecho" 0)
   
6.   (vl-load-com)
   
7.   (setq dcl_id (load_dialog "Test.dcl"))
   
8.   (new_dialog "userset" dcl_id)
   
9.   (read_from_registry)
   
10.   (write_to_wdy)
    
11.   (action_tile "onekeyset" "(onekeyset)")
    
12.   (action_tile "purgeall" "(purgeall)")
    
13.   (action_tile "ok" "(read_from_wdy) (done_dialog 1001)")
    
14.   (setq dd (start_dialog))
    
15.   (if (= dd 1001)
    
16.       (progn
    
17.         (write_to_registry)
    
18.         (alert "★提示：\n自定义快捷命令已设置成功！\n重新打开AutoCAD后，自定义快捷命令才会全部生效！")
    
19.         (wdy_qidong)
    
20.       )
    
21.   )
    
22. )
    
23. 
    
24. ;;;*****自定义快捷命令 程序********
    
25. (defun onekeyset ()  ;一键设置
    
26.   (purgeall)
    
27.   (set_tile "wdy501" "te1")
    
28.   (set_tile "wdy502" "te2")
    
29.   (set_tile "wdy503" "te3")
    
30.   (set_tile "wdy504" "te4")
    
31.   (set_tile "wdy505" "te5")
    
32. )
    
33. 
    
34. (defun purgeall () ;自定义快捷键全部清除
    
35.   (set_tile "wdy501" "")
    
36.   (set_tile "wdy502" "")
    
37.   (set_tile "wdy503" "")
    
38.   (set_tile "wdy504" "")
    
39.   (set_tile "wdy505" "")
    
40. )
    
41. 
    
42. ;;;***读取注册表 程序开始***
    
43. (defun read_from_registry ()
    
44.   (setq rfreg_wdy501 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy501"))
    
45.   (setq rfreg_wdy502 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy502"))
    
46.   (setq rfreg_wdy503 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy503"))
    
47.   (setq rfreg_wdy504 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy504"))
    
48.   (setq rfreg_wdy505 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy505"))
    
49. )
    
50. ;;;***读取注册表 程序结束***
    
51. 
    
52. ;;;*****写入WDY 程序开始*****
    
53. (defun write_to_wdy ()
    
54.   (if rfreg_wdy501 (set_tile "wdy501" rfreg_wdy501) (set_tile "wdy501" ""))
    
55.   (if rfreg_wdy502 (set_tile "wdy502" rfreg_wdy502) (set_tile "wdy502" ""))
    
56.   (if rfreg_wdy503 (set_tile "wdy503" rfreg_wdy503) (set_tile "wdy503" ""))
    
57.   (if rfreg_wdy504 (set_tile "wdy504" rfreg_wdy504) (set_tile "wdy504" ""))
    
58.   (if rfreg_wdy505 (set_tile "wdy505" rfreg_wdy505) (set_tile "wdy505" ""))
    
59. )
    
60. ;;;*****写入WDY 程序结束*****
    
61. 
    
62. ;;;*****读取WDY 程序开始*****
    
63. (defun read_from_wdy ()
    
64.   (setq rfw_wdy501 (get_tile "wdy501"))
    
65.   (setq rfw_wdy502 (get_tile "wdy502"))
    
66.   (setq rfw_wdy503 (get_tile "wdy503"))
    
67.   (setq rfw_wdy504 (get_tile "wdy504"))
    
68.   (setq rfw_wdy505 (get_tile "wdy505"))
    
69. )
    
70. ;;;*****读取WDY 程序结束*****
    
71. 
    
72. ;;;***写入注册表 程序开始
    
73. (defun write_to_registry ()
    
74. (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy501" rfw_wdy501)
    
75. (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy502" rfw_wdy502)
    
76. (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy503" rfw_wdy503)
    
77. (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy504" rfw_wdy504)
    
78. (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy505" rfw_wdy505)
    
79. )
    
80. ;;;***写入注册表 程序结束
    
81. 
    
82. ;;;***自定义命令 程序开始***
    
83. (defun wdy_qidong ()
    
84.   (read_from_registry)
    
85.   (if rfreg_wdy501 (eval (read (strcat "(defun c:" rfreg_wdy501 "() (c:wdy_test1))"))))
    
86.   (if rfreg_wdy502 (eval (read (strcat "(defun c:" rfreg_wdy502 "() (c:wdy_test2))"))))
    
87.   (if rfreg_wdy503 (eval (read (strcat "(defun c:" rfreg_wdy503 "() (c:wdy_test3))"))))
    
88.   (if rfreg_wdy504 (eval (read (strcat "(defun c:" rfreg_wdy504 "() (c:wdy_test4))"))))
    
89.   (if rfreg_wdy505 (eval (read (strcat "(defun c:" rfreg_wdy505 "() (c:wdy_test5))"))))
    
90. )

(princ "\n启动命令：test")<br /> <br /> (defun c:test ()<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (setq dcl_id (load_dialog "Test.dcl"))<br />   (new_dialog "userset" dcl_id)<br />   (read_from_registry)<br />   (write_to_wdy)<br />   (action_tile "onekeyset" "(onekeyset)")<br />   (action_tile "purgeall" "(purgeall)")<br />   (action_tile "ok" "(read_from_wdy) (done_dialog 1001)")<br />   (setq dd (start_dialog))<br />   (if (= dd 1001)<br />       (progn<br />         (write_to_registry)<br />         (alert "★提示：\n自定义快捷命令已设置成功！\n重新打开<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>后，自定义快捷命令才会全部生效！")<br />         (wdy_qidong)<br />       )<br />   )<br /> )<br /> <br /> ;;;*****自定义快捷命令 程序********<br /> (defun onekeyset ()  ;一键设置<br />   (purgeall)<br />   (set_tile "wdy501" "te1")<br />   (set_tile "wdy502" "te2")<br />   (set_tile "wdy503" "te3")<br />   (set_tile "wdy504" "te4")<br />   (set_tile "wdy505" "te5")<br /> )<br /> <br /> (defun purgeall () ;自定义快捷键全部清除<br />   (set_tile "wdy501" "")<br />   (set_tile "wdy502" "")<br />   (set_tile "wdy503" "")<br />   (set_tile "wdy504" "")<br />   (set_tile "wdy505" "")<br /> )<br /> <br /> ;;;***读取注册表 程序开始***<br /> (defun read_from_registry ()<br />   (setq rfreg_wdy501 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy501"))<br />   (setq rfreg_wdy502 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy502"))<br />   (setq rfreg_wdy503 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy503"))<br />   (setq rfreg_wdy504 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy504"))<br />   (setq rfreg_wdy505 (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy505"))<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 /> )<br /> ;;;*****写入WDY 程序结束*****<br /> <br /> ;;;*****读取WDY 程序开始*****<br /> (defun read_from_wdy ()<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 /> )<br /> ;;;*****读取WDY 程序结束*****<br /> <br /> ;;;***写入注册表 程序开始<br /> (defun write_to_registry ()<br /> (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy501" rfw_wdy501)<br /> (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy502" rfw_wdy502)<br /> (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy503" rfw_wdy503)<br /> (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy504" rfw_wdy504)<br /> (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\Hotkey" "wdy505" rfw_wdy505)<br /> )<br /> ;;;***写入注册表 程序结束<br /> <br /> ;;;***自定义命令 程序开始***<br /> (defun wdy_qidong ()<br />   (read_from_registry)<br />   (if rfreg_wdy501 (eval (read (strcat "(defun c:" rfreg_wdy501 "() (c:wdy_test1))"))))<br />   (if rfreg_wdy502 (eval (read (strcat "(defun c:" rfreg_wdy502 "() (c:wdy_test2))"))))<br />   (if rfreg_wdy503 (eval (read (strcat "(defun c:" rfreg_wdy503 "() (c:wdy_test3))"))))<br />   (if rfreg_wdy504 (eval (read (strcat "(defun c:" rfreg_wdy504 "() (c:wdy_test4))"))))<br />   (if rfreg_wdy505 (eval (read (strcat "(defun c:" rfreg_wdy505 "() (c:wdy_test5))"))))<br /> )