有没有办法用VLISP程序添加文件支持路径！！！！！！！

尘缘一生

秋枫 发表于 2003-12-16 20:08
;;;AddSupportPath
;;;添加文件夹到AutoCAD支持搜索路径中的指定位置
;;;参数

大师的代码，这地方显示个笑脸，是哪个变量？

andyding

尘缘一生 发表于 2020-3-20 03:23
大师的代码，这地方显示个笑脸，是哪个变量？

笑脸是PATH。
我这里出了另一个问题，位置参数为空时，提示参数太少，程序就不运行了。

paulpipi

学习了，谢谢高手们

秋枫

秋枫 发表于 2003-12-16 20:08
;;;AddSupportPath
;;;添加文件夹到AutoCAD支持搜索路径中的指定位置
;;;参数

2. 
   
3. (defun strsplit (str pat / i j n lst)
   
4.     (cond
   
5.         ((/= (type str) (type pat) 'STR))
   
6.         ((= str pat) '(""))
   
7.         (T
   
8.          (setq i 0
   
9.                n (strlen pat)
   
10.          )
    
11.          (while (setq j (vl-string-search pat str i))
    
12.              (setq lst (cons (substr str (1+ i) (- j i)) lst)
    
13.                    i   (+ j n)
    
14.              )
    
15.          )
    
16.          (reverse (cons (substr str (1+ i)) lst))
    
17.         )
    
18.     )
    
19. )
    
20. (defun strjoin (Lst Delimiter / return)
    
21.     (setq return "")
    
22.     (foreach str Lst
    
23.         (setq return (strcat return Delimiter str))
    
24.     )
    
25.     (substr return 2)
    
26. )
    

<br /> (defun strsplit (str pat / i j n lst) <br />     (cond <br />         ((/= (type str) (type pat) 'STR))<br />         ((= str pat) '(""))<br />         (T<br />          (setq i 0<br />                n (strlen pat)<br />          )<br />          (while (setq j (vl-string-search pat str i)) <br />              (setq lst (cons (substr str (1+ i) (- j i)) lst)<br />                    i   (+ j n)<br />              )<br />          )<br />          (reverse (cons (substr str (1+ i)) lst))<br />         )<br />     )<br /> )<br /> (defun strjoin (Lst Delimiter / return) <br />     (setq return "")<br />     (foreach str Lst <br />         (setq return (strcat return Delimiter str))<br />     )<br />     (substr return 2)<br /> )<br />

@尘缘一生

you_boss

秋枫 发表于 2021-8-19 12:07
@尘缘一生

大佬原谅我通过这种方式给您留言（新手权限太低）想问问您能不能发一下安装向导的脚本文件，我用inno setup 解开您发布的程序有些乱码，我的邮箱1655179357@qq.com，感谢！