各路武林大侠，打开一个DWG后，能让启动组的所有程序再加载一次吗

jialiang168

奇怪问的问题都很好，我也很想知道答案怎么都没人帮忙回答呢！望高手解答啦！

Gu_xl

2. ;;;命令：reloadStartUp
   
3. (defun c:reloadStartUp (/ $skey $akey NumStartup n StartupList)
   
4.   (setq
   
5.     $skey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload\\Startup")
   
6.     $akey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Applications\\AcadAppload" )
   
7.     )
   
8.   (setq NumStartup (vl-registry-read $skey "NumStartup")
   
9.         n 1
   
10.         StartupList '())
    
11.   (repeat (atoi NumStartup)
    
12.     (setq StartupList (cons (vl-registry-read $skey (strcat   (itoa n) "Startup")) StartupList))
    
13.     (setq n (1+ n))
    
14.     )
    
15. (mapcar 'load StartupList)
    
16.   (princ)
    
17.   )
    

;;;命令：reloadStartUp<br /> (defun c:reloadStartUp (/ $skey $akey NumStartup n StartupList)<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 />   (setq NumStartup (vl-registry-read $skey "NumStartup")<br />         n 1<br />         StartupList '())<br />   (repeat (atoi NumStartup)<br />     (setq StartupList (cons (vl-registry-read $skey (strcat   (itoa n) "Startup")) StartupList))<br />     (setq n (1+ n))<br />     )<br /> (mapcar 'load StartupList)<br />   (princ)<br />   )<br />

alin

写一个命令将启动组里的程序一个个加载就好了。
例如
(defun C:ReloadStartUp()
        (load "....lsp")
        (load "...lsp")
        ...
)
若要知道启动组的程序列表，可以找注册表，例如我的机器上
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:804\Profiles\<<未命名配置>>\Dialogs\Appload\Startup