lsp支持文件搜索路径

qmqyqj

我刚接触lsp没多久，想通过lsp实现自动给CAD添加 文件搜索路径，查了好多资料，没办法解决

下面的连接是在别的论坛看到的，但搞不明白怎么使用，希望得到指点一二
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=517620

这是论坛的代码，但我加载就提示    “错误: no function definition”

2. 
   
3. ;;; (xl_addsupportpath dir pos)
   
4. ;;;添加文件夹到 AutoCAD 支持搜索路径中的指定位置
   
5. ;;; dir 为路径, pos 为数值 0 或正整数。
   
6. ;;; pos 为 0 时添加支持搜索路径到最后，为 2 时添加支持搜索路径到第二项。
   
7. ;;; 示例 (xl_addsupportpath "c:\\myfolder" 2) 返回修改后的支持搜索路径。
   
8. (defun xl_addsupportpath
   
9.        (dir pos / tmp tmp1 tmp1_l tmp2 tmp3 str str_l)
   
10.   (setq dir (strcat dir ";"))
    
11.   (setq tmp1 (getenv "ACAD"))
    
12.   (setq tmp1_l (strlen tmp1))
    
13.   (setq str tmp1)
    
14.   (if (= pos 0)
    
15.     (setq tmp (strcat tmp1 ";" dir))
    
16.     (progn
    
17.       (if (= pos 1)
    
18.         (setq tmp (strcat dir tmp1))
    
19.         (progn
    
20.           (setq        str
    
21.                  (repeat pos
    
22.                    (setq str (substr (xl_strmemb ":" str) 2))
    
23.                  ) ;_ 结束repeat
    
24.           )                                ;setq str
    
25.           (setq str_l (strlen str))
    
26.           (setq        tmp2 (substr tmp1 1 (- tmp1_l str_l 2))
    
27.                 tmp3 (substr tmp1 (- tmp1_l str_l 1) 2)
    
28.                 tmp  (strcat tmp2 dir tmp3 str)
    
29.           )                                ;setq
    
30.         )                                ;progn
    
31.       )                                        ;if
    
32.     )                                        ;progn
    
33.   )                                        ;if
    
34.   (setenv "ACAD" tmp)
    
35. ;;;(princ)
    
36. )                                        ;defun xl_addsupportpath

<br /> ;;; (xl_addsupportpath dir pos) <br /> ;;;添加文件夹到 <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 支持搜索路径中的指定位置<br /> ;;; dir 为路径, pos 为数值 0 或正整数。<br /> ;;; pos 为 0 时添加支持搜索路径到最后，为 2 时添加支持搜索路径到第二项。<br /> ;;; 示例 (xl_addsupportpath "c:\\myfolder" 2) 返回修改后的支持搜索路径。<br /> (defun xl_addsupportpath<br />        (dir pos / tmp tmp1 tmp1_l tmp2 tmp3 str str_l)<br />   (setq dir (strcat dir ";"))<br />   (setq tmp1 (getenv "ACAD"))<br />   (setq tmp1_l (strlen tmp1))<br />   (setq str tmp1)<br />   (if (= pos 0)<br />     (setq tmp (strcat tmp1 ";" dir))<br />     (progn<br />       (if (= pos 1)<br />         (setq tmp (strcat dir tmp1))<br />         (progn<br />           (setq        str<br />                  (repeat pos<br />                    (setq str (substr (xl_strmemb ":" str) 2))<br />                  ) ;_ 结束repeat<br />           )                                ;setq str<br />           (setq str_l (strlen str))<br />           (setq        tmp2 (substr tmp1 1 (- tmp1_l str_l 2))<br />                 tmp3 (substr tmp1 (- tmp1_l str_l 1) 2)<br />                 tmp  (strcat tmp2 dir tmp3 str)<br />           )                                ;setq<br />         )                                ;progn<br />       )                                        ;if<br />     )                                        ;progn<br />   )                                        ;if<br />   (setenv "ACAD" tmp)<br /> ;;;(princ)<br /> )                                        ;defun xl_addsupportpath

LPACMQ

;;; 示例 (xl_addsupportpath "c:\\myfolder" 2) 返回修改后的支持搜索路径。

hehoubin

缺少函数

xiaojiajun160

看不懂！！感觉好厉害

流动的清泉

也缺少子函数 xl_strmemb，是个伪源码