如何用LISP操作导出注册表呢？

江南十笑

快捷键保存在注册表某个文件夹下  重装系统 每次手动找注册表导出比较麻烦  如何用lisp操作自动导出该文件夹下的注册表呢？保存在LISP同目录下  重装后双击导入即可恢复原来的快捷键了。

e2002

没必要用注册表来保存啊，你可以直接记录在dwg内，程序直接读取，如果dwg内没有保存，就使用app所在文件夹内的那个配置文件的数据，如果还没有或者读取出错，那就使用app默认设置值，并重新创建正确的配置文件。总有一款会等到你...:D

xiaocainiao

+1 同问这个问题、目前是用的批处理文件导出指定文件夹的注册表、用lisp不知道该如何导出

foolishzy

抱歉 没看清题目

2. (setq regfilepath "c:\\test11.reg")
   
3. (setq path "HKEY_CLASSES_ROOT\\wdpfile")
   
4. (vl-cmdf "shell" (strcat "cmd.exe /c reg export " path " "  regfilepath))

(setq regfilepath "c:\\test11.reg")<br /> (setq path "HKEY_CLASSES_ROOT\\wdpfile")<br /> (vl-cmdf "shell" (strcat "cmd.exe /c reg export " path " "  regfilepath))

可以shell调用cmd导出注册表，不知道能否满足楼主使用需求

xiaocainiao

foolishzy 发表于 2023-5-26 08:43
抱歉 没看清题目

可以shell调用cmd导出注册表，不知道能否满足楼主使用需求

2. (defun c:tt (/ path reg_export)
   
3.         (vl-load-com)
   
4.         (setq reg_export (getfiled "浏览导出路径" "111" "reg" 1))
   
5.         (while (vl-string-search "\" reg_export)
   
6.                 (setq reg_export (vl-string-subst "/" "\" reg_export))
   
7.         )
   
8.         (setq path "HKEY_CURRENT_USER/Software/TEXT")
   
9.         (vl-cmdf "shell" (strcat "cmd.exe /c reg export " path " "  reg_export))
   
10.         (princ)
    
11. )

(defun c:tt (/ path reg_export)<br />         (vl-load-com)<br />         (setq reg_export (getfiled "浏览导出路径" "111" "reg" 1))<br />         (while (vl-string-search "\" reg_export)<br />                 (setq reg_export (vl-string-subst "/" "\" reg_export))<br />         )<br />         (setq path "HKEY_CURRENT_USER/Software/TEXT")<br />         (vl-cmdf "shell" (strcat "cmd.exe /c reg export " path " "  reg_export))<br />         (princ)<br /> )

请教一下我按您的方式操作了一下、但是执行的时候会被火绒杀毒拦截、出现"AutoCAD SHELL激活对话框"、即使火绒那个点了允许操作、也无法导出注册表是什么情况啊、求大神指教