[求助][0707]如何检查增加支援环境档案路径?

xyz518mm

[求助][0707]如何检查增加支援环境档案路径?
我想再启动CAD时自动检查有无设定档案路径,
若没有则自行增加,
但我编写的程序好像没办法增加在其路径后...
不知道可以请各位看看该怎样处理吗?

谢谢

程序如下:

2. 
   
3. (setq lst (acet-pref-supportpath-list))
   
4. (setq lst_path (list
   
5. (list "C:\\DOCUMENTS AND SETTINGS\\HUNTER\\MY DOCUMENTS\")
   
6. (list "C:\\DS\")
   
7. (list "C:\\DOCU-DOENTS\")
   
8. ));要增加的路径...不知道有没有办法设定成为参考文件档案来载入呢?
   
9. 
   
10. ;;判断有无此路径,如果没有就增加...这段不知道该怎样增加在其表的最后面...
    
11. (foreach n lst_path
    
12. (if (not (member n lst))
    
13. (progn
    
14. (setq path-name (apply 'STRCAT n))
    
15. (setenv "ACAD" path-name)
    
16. )
    
17. )
    
18. )
    

<br /> (setq lst (acet-pref-supportpath-list))<br /> (setq lst_path (list<br /> (list "C:\\DOCUMENTS AND SETTINGS\\HUNTER\\MY DOCUMENTS\")<br /> (list "C:\\DS\")<br /> (list "C:\\DOCU-DOENTS\")<br /> ));要增加的路径...不知道有没有办法设定成为参考文件档案来载入呢?<br /> <br /> ;;判断有无此路径,如果没有就增加...这段不知道该怎样增加在其表的最后面...<br /> (foreach n lst_path<br /> (if (not (member n lst))<br /> (progn<br /> (setq path-name (apply 'STRCAT n))<br /> (setenv "ACAD" path-name)<br /> )<br /> )<br /> )<br />

zih1427

2. 
   
3. (defun C:SetPath( / lst lst_path n path-name)
   
4.   (setq lst (acet-pref-supportpath-list))
   
5.   (setq        lst_path
   
6.          (list
   
7.            "C:\\DOCUMENTS AND SETTINGS\\HUNTER\\MY DOCUMENTS\"
   
8.            "C:\\DS\"
   
9.            "C:\\DOCU-DOENTS\"
   
10.            )
    
11.   )
    
12. 
    
13.   (setq path-name (getenv "ACAD"))
    
14.   
    
15.   (foreach n lst_path
    
16.     (if        (not (member n lst))
    
17.       (setq path-name (STRCAT path-name n ";"))
    
18.     )
    
19.   )
    
20. 
    
21.   (setenv "ACAD" path-name)
    
22. 
    
23. )
    

<br /> (defun C:SetPath( / lst lst_path n path-name)<br />   (setq lst (acet-pref-supportpath-list))<br />   (setq        lst_path<br />          (list<br />            "C:\\DOCUMENTS AND SETTINGS\\HUNTER\\MY DOCUMENTS\"<br />            "C:\\DS\"<br />            "C:\\DOCU-DOENTS\"<br />            )<br />   )<br /> <br />   (setq path-name (getenv "ACAD"))<br />   <br />   (foreach n lst_path<br />     (if        (not (member n lst))<br />       (setq path-name (STRCAT path-name n ";"))<br />     )<br />   )<br /> <br />   (setenv "ACAD" path-name)<br /> <br /> )<br />

xyz518mm

谢谢解答