如何利用LISP或VISUALLISP实现搜索路径的设置????

chenwl

chg

chenwl

在CAD中我们一般都用OPTIONS命令中的FILE下面来设置SUPPORT FIEL SEARCH PATH, 我想通过(setvar "acadprefix")设置这个系统变量,但因为是只读,故无法更改,是否能通过LISP的其它命令实现.

alin

if you want to add a path to the support path, there is a function call addSupportPath in the AutoLisp Function Collection in this web site.

qlin

http://www.mccad.net/function/alisp/003.htm

chg

;|将自己定义的路径加载到ACAD支持路径当中。
参数dir是自己定义的路径名，pos是位置，为0时在最前端，为nil时在最后。|;

(defun addSupportPath (dir pos / tmp c)
  (setq        tmp ""
        c   -1
  )
  (if (not pos)
    (setq tmp (strcat (getenv "ACAD") ";" dir))
    (mapcar '(lambda (x)
               (setq tmp (if (= (setq c (1+ c)) pos)
                           (strcat tmp ";" dir ";" x)
                           (strcat tmp ";" x)
                         )
               )
             )
            (list (getenv "ACAD") ";")
    )
  )
  (setenv "ACAD" tmp)
  (princ)
)

chenwl