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

vken7az2p

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

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. (foreach n lst_path
11. (if (not (member n lst))
12. (progn
13. (setq path-name (apply 'STRCAT n))
14. (setenv "ACAD" path-name)
15. )
16. )
17. )

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