[讨论]：如何用lisp获取AutoCAD在注册表中的键名

Qlin

按照资料介绍，AutoCAD很多数据储存在注册表中
类似：HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\R14.0\ACAD-nnnnnnn:nnnnnnnn
这样的键名下，问题是，如何获得当前系统中这个
不确定的nnnnnnn:nnnnnnnn？
ARX中好像有个acrxProductKey，在lisp应该如何作呢？

eachy

最初由 Qlin 发布
[B]按照资料介绍，AutoCAD很多数据储存在注册表中
类似：HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\R14.0\ACAD-nnnnnnn:nnnnnnnn
这样的键名下，问题是，如何获得当前系统中这个
不确定的nnnnnnn:nnnnnnnn？
A... [/B]

工具箱中几个命令都用了注册表的读取、写入函数，你可好好看看XDSoft.mnl。
以下是联机帮助中的说明：

2. 
   
3. [color=red](vl-registry-write [/color]
   
4. 
   
5. 在 Windows 注册表中创建主键
   
6. (vl-registry-write reg-key [val-name val-data])
   
7. 
   
8. 参数
   
9. 
   
10. reg-key
    
11. 
    
12. 字符串，指定 Windows 注册表主键。
    
13. 注意 不能将 vl-registry-write 用于 HKEY_USERS 或 KEY_LOCAL_MACHINE。
    
14. 
    
15. val-name
    
16. 
    
17. 字符串，包含注册表条目的值。
    
18. 
    
19. val-data
    
20. 
    
21. 字符串，包含注册表数据。
    
22. 
    
23. 如果未指定 val-name 或其值为 nil，则写入该主键的缺省值。如果指定了 val-name 且未指定 val-data，则存储空字符串。
    
24. 
    
25. 返回值
    
26. 
    
27. 如果成功则 vl-registry-write 返回 val-data，否则返回 nil。
    
28. 
    
29. 样例
    
30. 
    
31. _$ (vl-registry-write "HKEY_CURRENT_USER\\Test" "" "test data")
    
32. "test data"
    
33. _$  (vl-registry-read "HKEY_CURRENT_USER\\Test")
    
34. 
    
35. "test data"
    
36. 
    
37. [color=red]vl-registry-delete[/color]
    
38. 
    
39. 从 Winows 注册表中删除指定的主键或值
    
40. (vl-registry-delete reg-key [val-name])
    
41. 
    
42. 参数
    
43. 
    
44. reg-key
    
45. 
    
46. 字符串，指定 Windows 注册表主键。
    
47. 
    
48. val-name
    
49. 
    
50. 字符串，包含 reg-key 条目的值。
    
51. 
    
52. 如果给出了 val-name 且其值不为 nil，则将从注册表清除指定值。如果没有 val-name 或该值为 nil，函数将删除指定主键及其所有的值。
    
53. 
    
54. 返回值
    
55. 
    
56. 如果成功则返回 T，否则返回 nil。
    
57. 
    
58. 样例
    
59. 
    
60. _$ (vl-registry-write "HKEY_CURRENT_USER\\Test" "" "test data")
    
61. 
    
62. "test data"
    
63. 
    
64. _$ (vl-registry-read "HKEY_CURRENT_USER\\Test")
    
65. 
    
66. "test data"
    
67. 
    
68. _$ (vl-registry-delete "HKEY_CURRENT_USER\\Test")
    
69. 
    
70. T
    
71. 
    
72. 注意 该函数不能删除包含子树的主键。要删除子树，必须使用 vl-registry-descendents 枚举并删除所有的子键。
    
73. 
    
74. [color=red]vl-registry-descendents[/color]
    
75. 
    
76. 返回指定注册表键的子键或值名称的列表
    
77. (vl-registry-descendents reg-key [val-names])
    
78. 
    
79. 参数
    
80. 
    
81. reg-key
    
82. 
    
83. 字符串，指定 Windows 主键。
    
84. 
    
85. val-names
    
86. 
    
87. 字符串，包含 reg-key 条目的值。
    
88. 
    
89. 如果指定 val-names 且其值不为 nil，则将列出注册表中的指定值名。如果未指定 val-name 或其值为 nil，则函数显示 reg-key 的所有子键。
    
90. 
    
91. 返回值
    
92. 
    
93. 如果成功则返回字符串表，否则返回 nil。
    
94. 
    
95. 样例
    
96. 
    
97. $ (vl-registry-descendents "HKEY_LOCAL_MACHINE\\SOFTWARE")
    
98. ("Description"  "Program Groups" "ORACLE" "ODBC" "Netscape" "Microsoft")
    
99. 
    
100. [color=red]vlax-product-key[/color]
     
101. 
     
102. 返回 AutoCAD 的 Window 注册表路径
     
103. AutoCAD 注册表路径可以用于注册应用程序，以用于按需加载。
     
104. 
     
105. (vlax-product-key)
     
106. 
     
107. 返回值
     
108. 
     
109. 包含AutoCAD 注册表路径的字符串。
     
110. 
     
111. 样例
     
112. 
     
113. _$ (vlax-product-key)
     
114. 
     
115. "Software\\Autodesk\\AutoCAD\\R15.0\\ACAD-1:409"

<br /> [color=red](vl-registry-write [/color]<br /> <br /> 在 Windows 注册表中创建主键<br /> (vl-registry-write reg-key [val-name val-data])<br /> <br /> 参数<br /> <br /> reg-key <br /> <br /> 字符串，指定 Windows 注册表主键。<br /> 注意 不能将 vl-registry-write 用于 HKEY_USERS 或 KEY_LOCAL_MACHINE。<br /> <br /> val-name <br /> <br /> 字符串，包含注册表条目的值。<br /> <br /> val-data <br /> <br /> 字符串，包含注册表数据。<br /> <br /> 如果未指定 val-name 或其值为 nil，则写入该主键的缺省值。如果指定了 val-name 且未指定 val-data，则存储空字符串。<br /> <br /> 返回值<br /> <br /> 如果成功则 vl-registry-write 返回 val-data，否则返回 nil。<br /> <br /> 样例<br /> <br /> _$ (vl-registry-write "HKEY_CURRENT_USER\\Test" "" "test data") <br /> "test data"<br /> _$  (vl-registry-read "HKEY_CURRENT_USER\\Test") <br /> <br /> "test data"<br /> <br /> [color=red]vl-registry-delete[/color]<br /> <br /> 从 Winows 注册表中删除指定的主键或值<br /> (vl-registry-delete reg-key [val-name])<br /> <br /> 参数<br /> <br /> reg-key <br /> <br /> 字符串，指定 Windows 注册表主键。<br /> <br /> val-name <br /> <br /> 字符串，包含 reg-key 条目的值。<br /> <br /> 如果给出了 val-name 且其值不为 nil，则将从注册表清除指定值。如果没有 val-name 或该值为 nil，函数将删除指定主键及其所有的值。<br /> <br /> 返回值<br /> <br /> 如果成功则返回 T，否则返回 nil。<br /> <br /> 样例<br /> <br /> _$ (vl-registry-write "HKEY_CURRENT_USER\\Test" "" "test data") <br /> <br /> "test data"<br /> <br /> _$ (vl-registry-read "HKEY_CURRENT_USER\\Test") <br /> <br /> "test data"<br /> <br /> _$ (vl-registry-delete "HKEY_CURRENT_USER\\Test") <br /> <br /> T<br /> <br /> 注意 该函数不能删除包含子树的主键。要删除子树，必须使用 vl-registry-descendents 枚举并删除所有的子键。<br /> <br /> [color=red]vl-registry-descendents[/color]<br /> <br /> 返回指定注册表键的子键或值名称的列表<br /> (vl-registry-descendents reg-key [val-names])<br /> <br /> 参数<br /> <br /> reg-key <br /> <br /> 字符串，指定 Windows 主键。<br /> <br /> val-names <br /> <br /> 字符串，包含 reg-key 条目的值。<br /> <br /> 如果指定 val-names 且其值不为 nil，则将列出注册表中的指定值名。如果未指定 val-name 或其值为 nil，则函数显示 reg-key 的所有子键。<br /> <br /> 返回值<br /> <br /> 如果成功则返回字符串表，否则返回 nil。<br /> <br /> 样例<br /> <br /> $ (vl-registry-descendents "HKEY_LOCAL_MACHINE\\SOFTWARE") <br /> ("Description"  "Program Groups" "ORACLE" "ODBC" "Netscape" "Microsoft")<br /> <br /> [color=red]vlax-product-key[/color]<br /> <br /> 返回 AutoCAD 的 Window 注册表路径<br /> AutoCAD 注册表路径可以用于注册应用程序，以用于按需加载。<br /> <br /> (vlax-product-key)<br /> <br /> 返回值<br /> <br /> 包含AutoCAD 注册表路径的字符串。<br /> <br /> 样例<br /> <br /> _$ (vlax-product-key) <br /> <br /> "Software\\Autodesk\\AutoCAD\\R15.0\\ACAD-1:409"

Qlin

谢谢了，以前一直用autolisp的函数，
我该好好学学VL开头的新函数了。