[求助]：在CAD2004，CAD2005中怎么设相同的注册表信息？(没完全解决,搜索中!)

jeepsheep

在CAD2004，CAD2005中怎么设相同的注册表信息？
因为在CAD2005中的支持文件搜索目录有C:\\Documents and Settings\\登录用户名\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\Support，因为每台机器的登录用户名不同，所以搜索目录也就不同，这点特不爽,不象CAD2002在一台机器设置好了,导出一个注册表信息,在其他机器导入注册表信息就每台机器都是一样的设置了!
有谁能教教我如何编写注册表信息或其他手段使得:
1,支持文件搜索目录增加或删减,或让某个目录上下移动使之搜索顺序前后变更!
例如:我想加个目录C:\\并让它为第一顺序
[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.1\ACAD-301:804\Profiles\2002-new\General]
"ACAD"="C:\\Program Files\\AutoCAD 2005\\Support;C:\\Program Files\\AutoCAD 2005\\Help;C:\\Documents and Settings\\登录用户名\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\Support;C:\\Program Files\\AutoCAD 2005\\Express;C:\\Program Files\\XDSoft\\.;C:\\Program Files\\XDSoft\\LISP;C:\\Program Files\\XDSoft\\SYS;C:\\Program Files\\XDSoft\\LIB;C:\\Program Files\\XDSoft\\BIN"
象装晓东工具箱就是可以追加晓东工具箱支持文件搜索目录!


2,有什么办法加载LISP中直接追加LISP?
例如:下面原来有三个LISP了,想直接追加4.LSP(因为有可能不知道原来加载的内容,也不想改原来加载的内容)!
[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.1\ACAD-301:804\Profiles\2002-new\Dialogs\Appload\Startup]
"NumStartup"="3"
"1Startup"="C:\\Program Files\\AutoCAD 2005\\LT2support\\1.LSP"
"2Startup"="C:\\Program Files\\AutoCAD 2005\\LT2support\\2.LSP"
"3Startup"="C:\\Program Files\\AutoCAD 2005\\LT2support\\3.lsp"

它山之石

　　1、你利用晓东论坛上的秋枫写的安装程序，将你的LSP程序等做成安装程序，安装后就可以象晓东工具箱那样增加支持路径了。
　　2、在自己的菜单文件XXX.MNL中加载你要加的程序。利用（LOAD）。
具体的情况你可以研究一下晓东工具箱的安装程序和菜单文件。会大有帮助的。你这样

jeepsheep

最初由 它山之石 发布
[B]　　1、你利用晓东论坛上的秋枫写的安装程序，将你的LSP程序等做成安装程序，安装后就可以象晓东工具箱那样增加支持路径了。
　　2、在自己的菜单文件XXX.MNL中加载你要加的程序。利用（LOAD）。
具体的情况你可以... [/B]

谢谢你的回答,但是能写详细写吗?或者给个链接!
我搜索了秋枫所参与的有关帖子:
http://www.xdcad.net/forum/showt ... d=385810#post385810
http://www.xdcad.net/forum/showt ... y=&pagenumber=3

它山之石

　　对，就是上面的两帖子。如果你想做成安装程序，自己研究一下应该可以了。其中第二种方法纯属傻瓜式，秋枫替大家考虑的很周到了。
　　至于直接修改注册表，VL中有这样的函数。具体怎么用我没也没试过。你可以看看CAD的帮助文件。

LJCAD

读；
(setq ProfilePath (strcat (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "\\Profiles\\"))
(setq ProfileKey (vl-registry-read ProfilePath))
(setq aaa (strcat ProfilePath ProfileKey "\\aaa\\"))

写；
(vl-registry-write aaa "123"         "456" )

jeepsheep

最初由 LJCAD 发布
[B]读；
(setq ProfilePath (strcat (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "\\Profiles\\"))
(setq ProfileKey (vl-registry-read ProfilePath))
(setq aaa (strcat ProfilePath ProfileKey "\\aaa\\"... [/B]

能写详细或注明吗?我没看懂是什么?
谢谢!

LJCAD

最初由 LJCAD 发布
[B]读；
(setq ProfilePath (strcat (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "\\Profiles\\"))
(setq ProfileKey (vl-registry-read ProfilePath))
(setq aaa (strcat ProfilePath ProfileKey "\\aaa\\"... [/B]

在LSP中，先读取注册表中aaa项中的内容，写到aaa中，然后将aaa根据你自己需要作修改，在用“写”中的语法写回到注册表中去

jeepsheep

最初由 LJCAD 发布
[B][QUOTE]最初由 LJCAD 发布
[B]读；
(setq ProfilePath (strcat (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "\\Profiles\\"))
(setq ProfileKey (vl-registry-read ProfilePath))
(setq aaa (str... [/B]

不太明白,你的意思是写一个新的LISP,之后在每台机器上打开CAD再执行这个LISP吗?
如果是这样,也不太方便!
我的想法是只合并注册表信息或不开CAD简单执行某个文件,使的每台机器都是一样的设置!
还是谢谢你的答复,真是好心人!

LJCAD

呵呵，我以为楼主是要在LISP中读写注册表，如过不进ACAD，就更简单啦，随便用vb或vc编都行啦

jeepsheep

VB,VC我就更不懂了,能不能就我提的例子写一写,再详细说明,我可能就可以自己改改!
谢谢!

啵浪鼓

VL好是好,只是程序老出乱

狂刀

用reg文件嘛

xiaoyu1999

我也想知道怎么办呢！大家来讨论讨论

zxmmelly

reg 文件是文本文件呀，用记事本打开一个已有的reg 看看怎么写的不就行了、