为什么注册表里已经加入了启动组，启动CAD后，启动组内容是空的？

szswgswg

为什么注册表里已经加入了启动组，启动CAD后，用Appload命令，查看启动组，内容是空的？如下图
注册表如下：
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.0\ACAD-5001:804\Profiles\<<未命名配置>>\Dialogs\Appload\Startup
“1Startup”="C:\Program Files\MYCAD\My.vlx"

启动CAD，用Appload 命令，点击启动组【内容】，里面为什么是空的呢？

cabinsummer

CAD有几个配置选项时就会出现没写对的情况。比如你有<<未命名配置>>和<<我的配置>>两项，你用的是<<我的配置>>却写注册表到<<未命名配置>>，那你必须切换正确的配置之后才会出现在启动组里。

szx025

最近我也遇到这个问题，运行下面的程序，启动组也是空的

2. ;|= 将程序加入启动组
   
3. @== (AddStartup AppName)
   
4. #== return:
   
5. par: AppName: [str] 完整路径
   
6. sample: (AddStartup "e:\\12.lsp")
   
7. ver: [1.0] by xshrimp @mjtd
   
8.   [1.1] by lostbalance
   
9. ====================|;
   
10. (defun AddStartup (AppName / $akey $skey loadctrlnum NumStartup acadpath loader)
    
11.   (setq acadpath (vl-filename-directory (findfile "acad.exe"))) ;;获取AutoCAD的安装路径
    
12.   (if (= (type appname) 'STR)
    
13.     (progn
    
14.       (setq
    
15.         $skey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload\\Startup")
    
16.         $akey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Applications\\AcadAppload" )
    
17.       )
    
18.       ;;加入启动组
    
19.       (setq NumStartup (vl-registry-read $skey "NumStartup"))
    
20.       (if NumStartup
    
21.         (progn
    
22.           (vl-registry-write $skey "NumStartup" (itoa (+ 1 (atoi NumStartup))))
    
23.           (vl-registry-write $skey (strcat (itoa (+ 1 (atoi NumStartup))) "Startup") AppName )
    
24.         )
    
25.         (progn
    
26.           (vl-registry-write $skey "NumStartup" "1")
    
27.           (vl-registry-write $skey "1Startup" AppName )
    
28.         )
    
29.       )
    
30.       ;;读取LoadCtrls的值,将这个值与2作“或”运算，再写回。这样可以保证AutoCAD启动时会加载Appload.arx模块。
    
31.       ;;不设置LOADCTRLS的话，加入启动组的程序无法正确加载，需要手动启动启动组确认后才可以
    
32.       (setq loadctrlnum (vl-registry-read $akey "LOADCTRLS"))
    
33.       (if loadctrlnum
    
34.         (vl-registry-write $akey "LOADCTRLS" (Boole 7 loadctrlnum 2))
    
35.         (vl-registry-write $akey "LOADCTRLS" 15)
    
36.       )
    
37.       (setq loader (vl-registry-read $akey "LOADER"))
    
38.       (if (not loader)
    
39.         (progn
    
40.           (vl-registry-write $akey "DESCRIPTION" "AcadAppload Command Module") ;;此条可以不加，注释性内容，不影响正常启动
    
41.           (vl-registry-write $akey "LOADER" (strcat acadpath "\\Appload.arx")) ;;全新安装或格式化后的AutoCAD默认不加载appload.arx，需添加
    
42.         )
    
43.       )
    
44.     ;  T ;;这个T什么用？
    
45.     )
    
46.     nil
    
47.   )
    
48. )

;|= 将程序加入启动组<br /> @== (AddStartup AppName)<br /> #== return: <br /> par: AppName: [str] 完整路径<br /> sample: (AddStartup "e:\\12.lsp")<br /> ver: [1.0] by xshrimp @mjtd<br />   [1.1] by lostbalance<br /> ====================|;<br /> (defun AddStartup (AppName / $akey $skey loadctrlnum NumStartup acadpath loader)<br />   (setq acadpath (vl-filename-directory (findfile "acad.exe"))) ;;获取AutoCAD的安装路径<br />   (if (= (type appname) 'STR)<br />     (progn<br />       (setq <br />         $skey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload\\Startup")<br />         $akey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Applications\\AcadAppload" )<br />       )<br />       ;;加入启动组<br />       (setq NumStartup (vl-registry-read $skey "NumStartup"))<br />       (if NumStartup<br />         (progn<br />           (vl-registry-write $skey "NumStartup" (itoa (+ 1 (atoi NumStartup))))<br />           (vl-registry-write $skey (strcat (itoa (+ 1 (atoi NumStartup))) "Startup") AppName )<br />         )<br />         (progn<br />           (vl-registry-write $skey "NumStartup" "1")<br />           (vl-registry-write $skey "1Startup" AppName )<br />         )<br />       )<br />       ;;读取LoadCtrls的值,将这个值与2作“或”运算，再写回。这样可以保证AutoCAD启动时会加载Appload.arx模块。<br />       ;;不设置LOADCTRLS的话，加入启动组的程序无法正确加载，需要手动启动启动组确认后才可以<br />       (setq loadctrlnum (vl-registry-read $akey "LOADCTRLS")) <br />       (if loadctrlnum<br />         (vl-registry-write $akey "LOADCTRLS" (Boole 7 loadctrlnum 2))<br />         (vl-registry-write $akey "LOADCTRLS" 15)<br />       )<br />       (setq loader (vl-registry-read $akey "LOADER"))<br />       (if (not loader)<br />         (progn<br />           (vl-registry-write $akey "DESCRIPTION" "AcadAppload Command Module") ;;此条可以不加，注释性内容，不影响正常启动<br />           (vl-registry-write $akey "LOADER" (strcat acadpath "\\Appload.arx")) ;;全新安装或格式化后的AutoCAD默认不加载appload.arx，需添加<br />         )<br />       )<br />     ;  T ;;这个T什么用？<br />     )<br />     nil<br />   )<br /> )

菜卷鱼

szx025 发表于 2019-1-8 09:26
最近我也遇到这个问题，运行下面的程序，启动组也是空的

斜杠打少了
(strcat "HKEY_CURRENT_USER\\"
                         (vlax-product-key)
                         "\\\\Profiles\\"
                         (getvar "CPROFILE")
                         "\\\\Dialogs\\\\Appload\\\\Startup"
                 )

VBALISPER

启动组数量那项也要修改才行。还有就是写注册表时CAD必须关闭

szswgswg

启动组数量也写了。"NumStartup"="1"。
关了CAD，重新写了一遍还是不行。
CAD支持路径也都加了，
CAD试了2004、2006、2007，还都不行。
这是怎么回事呢？

VBALISPER

目前科学家暂时无法解释这种现象,只能用RP问题来解释了.

s305040093

我也遇到了这个问题，郁闷了 ，折腾了一晚上也是不知其解。注册表里确实写上了，一启动cad就清空了。
如果单独写reg文件则又可以 简直是开国际玩笑，cad怎么知道我注册表是怎么写上去的？

geabus

如果是程序写入的话，在WIN7系统中由于安全问题，可能被系统拒绝了，XP应该无此问题

ezj2008

帮你顶起，同问

teykmcqh

这个问题现在有解决办法了吗？顶一下！