自动设置CAD自动搜文件的原码

梁智泓

不过这个程序有点问题，就是每输一次命令就重复加一次路径，请问高手，有没有办法设置如果重复就不添加？
;;设置路径
(defun c:tlj (/ a pa lst ls1 path)
  (setq a    (getenv "ACAD")
pa   (getstring "\n盘符 : ")
;;要增加的路径，由用户自己改写
lst  (list ":\\拷贝到E盘"    ":\\拷贝到E盘\\常用" )
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")
)