[求助]：如何用程序在“支持文件搜索路径”里加自己希望加的路径？

iloveada

小弟是个菜鸟。单位让我做菜单，库的路径好多，作好菜单给别人用需要加很多路径，希望哪位大哥帮帮忙，教教我怎么用程序加载路径。

我在网上找到一个文章，但看不太懂，希望高手帮帮忙。
(
defun c:test (/ a pa lst ls1 path)
  (
    setq    a    (getenv "ACAD")
    pa   (getstring "\nD")
    ;;要增加的路径
    lst  (list ":\books"
          )
    ls1  (car lst)
    path (strcat ";" pa ls1)
    lst  (vl-remove ls1 lst)
  )
  (
    while lst
    (
      setq ls1  (car lst)
      path (strcat path (strcat ";" pa ls1))
      lst  (vl-remove ls1 lst)
    )
  )
  (setenv "ACAD" (strcat a path))
  (getenv "ACAD")
)

yunlong3000

addSupportPath 添加文件夹到AutoCAD支持搜索路径中的指定位置  
［ 作者：佚名     来源：明经通道］

[语法]
(addSupportPath dir pos )
[说明]
添加文件夹到AutoCAD支持搜索路径中的指定位置
[函数内容]

2. 
   
3.   [FONT=courier new]
   
4. (defun addSupportPath (dir pos / tmp c)
   
5.   (setq tmp ""
   
6. c   -1
   
7.   )
   
8.   (if (not pos)
   
9.     (setq tmp (strcat (getenv "ACAD") ";" dir))
   
10.     (mapcar '(lambda (x)
    
11.         (setq tmp (if (= (setq c (1+ c)) pos)
    
12.       (strcat tmp ";" dir ";" x)
    
13.       (strcat tmp ";" x)
    
14.     )
    
15.         )
    
16.       )
    
17.      (parse (getenv "ACAD") ";")
    
18.     )
    
19.   )
    
20.   (setenv "ACAD" tmp)
    
21.   (princ)
    
22. )
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun addSupportPath (dir pos / tmp c)<br />   (setq tmp ""<br /> c   -1<br />   )<br />   (if (not pos)<br />     (setq tmp (strcat (getenv "ACAD") ";" dir))<br />     (mapcar '(lambda (x)<br />         (setq tmp (if (= (setq c (1+ c)) pos)<br />       (strcat tmp ";" dir ";" x)<br />       (strcat tmp ";" x)<br />     )<br />         )<br />       )<br />      (parse (getenv "ACAD") ";")<br />     )<br />   )<br />   (setenv "ACAD" tmp)<br />   (princ)<br /> )<br />   [/FONT]<br />

[参数]
文件夹路径及插入的位置(0时插入前端)

[返回值]
无
  
[注意]
位置参数为空时将文件夹添加到路径最后。位置参数为0时将文件夹添加到路径最前端。
  
[示例]
(addSupportPath "c:\\myFolder" 2)

iloveada

多谢大侠的帮助，终于弄明白了。谢谢  谢谢

zb_lou

原来这样。谢谢DX。