[求助]：怎样设置“支持文件收索路径”

yunzhong80

怎样通过程序设置“支持文件收索路径”

狂刀

setenv|;
;;加路径到cad搜索路径(后部)
(defun x@addpath (path)
  (setenv "ACAD" (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";" path));; (getenv "ACAD"),注意大写!
)

yunzhong80

非常感谢！！！

wmz_0211

非常感激!再请问一下:如何将它上移至最上端?

狂刀

strcat的次序改一下
(strcat (vl-string-right-trim ";" path) ";"(getenv "ACAD") )

wmz_0211

知道怎么用了!
请再问以下:怎么删除呢?

wwwdh

就是，怎么删除呢

wkai

1 得到支持路径字符串
2 把每个路径分开3
3 去掉你要删除的路径
4 重新setenv

cjs96001

;;; 移除支持文件搜索路径
;;; ---------------------------------------------------------------------------------
(defun QF_RemoveSupportPath (PathToRemove / supportlist)
  (setq supportlist (strparse (getenv "ACAD") ";"))
  (setq supportlist (vl-remove "" supportlist))
  (setq        supportlist
         (vl-remove-if
           '(lambda (x) (= (strcase x) (strcase PathToRemove)))
           supportlist
         ) ;_ 结束vl-remove-if
  ) ;_ 结束setq
  (setenv "ACAD" (strUnParse supportlist ";"))
) ;_ 结束defun

;;; 添加支持文件搜索路径
;;; ---------------------------------------------------------------------------------
;;; note:  第二个参数如果为真, 插最前，否则插最后
;;;        
(defun QF_AddSupportPath (PathToAdd isFirst / supportlist)
  (QF_RemoveSupportPath PathToAdd)
  (setq supportlist (strparse (getenv "ACAD") ";"))
  (setq supportlist (vl-remove "" supportlist))
  (if isFirst
    (setq supportlist (cons PathToAdd supportlist))
    (setq supportlist (append supportlist (list PathToAdd)))
  ) ;_ 结束if
  (setenv "ACAD" (strUnParse supportlist ";"))
) ;_ 结束defun

xyp1964

最初由 狂刀 发布
[B]setenv|;
;;加路径到cad搜索路径(后部)
(defun x@addpath (path)
  (setenv "ACAD" (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";" path));; (getenv "ACAD"),注意大写!
) [/B]

2. [FONT=courier new];;加路径到cad搜索路径(后部)
   
3. (defun x@addpath (path)
   
4.   (setenv "ACAD" (strcat (getenv "ACAD") path ";"))
   
5. )[/FONT]

[FONT=courier new];;加路径到cad搜索路径(后部)<br /> (defun x@addpath (path)<br />   (setenv "ACAD" (strcat (getenv "ACAD") path ";"))<br /> )[/FONT]

2. [FONT=courier new];;加路径到cad搜索路径(前部)
   
3. (defun x@addpath (path)
   
4.   (setenv "ACAD" (strcat path ";" (getenv "ACAD")))
   
5. )[/FONT]

[FONT=courier new];;加路径到cad搜索路径(前部)<br /> (defun x@addpath (path)<br />   (setenv "ACAD" (strcat path ";" (getenv "ACAD")))<br /> )[/FONT]

再合并

2. [FONT=courier new];;加路径到cad搜索路径(前或后部)
   
3. (defun addpath (path mode)
   
4.   (cond        ((= mode "R")
   
5.          (setenv "ACAD" (strcat (getenv "ACAD") path ";"))
   
6.         )
   
7.         ((= mode "L")
   
8.          (setenv "ACAD" (strcat path ";" (getenv "ACAD")))
   
9.         )
   
10.         (T (setenv "ACAD" (strcat (getenv "ACAD") path ";")))
    
11.   )
    
12. )[/FONT]

[FONT=courier new];;加路径到cad搜索路径(前或后部)<br /> (defun addpath (path mode)<br />   (cond        ((= mode "R")<br />          (setenv "ACAD" (strcat (getenv "ACAD") path ";"))<br />         )<br />         ((= mode "L")<br />          (setenv "ACAD" (strcat path ";" (getenv "ACAD")))<br />         )<br />         (T (setenv "ACAD" (strcat (getenv "ACAD") path ";")))<br />   )<br /> )[/FONT]

狂刀

[php]
;;加路径到cad搜索路径(前或后部)
(defun addpath (path mode)
  (setenv "ACAD"
          (cond        ((or (not mode) (= mode "R"))
                 (strcat (getenv "ACAD") path ";")
                )
                (T(strcat path ";" (getenv "ACAD")))
          )
  )
)[/php]

chinasbc

再请教一下，如何把它移至其它程序（比如TSSD、TASD）支持路径之后且在CAD路径之前。谢谢。