高手帮忙看一下添加文件搜索路径的lsp

Andyhon

那您需要找个函数,能返回子目录的树状结构...
有大神分享过

xujinhua

zhynt 发表于 2011-6-14 16:35
我是做建筑设计的。

学习了，谢谢你

aichong

cabinsummer 发表于 2012-4-15 12:27
昨天的有误，今天更新如下：

代码很好用，谢谢分享。我修改了一下，这样就可以放在最前面或最后面：

(setq sp (getenv "ACAD"))
(setq path '("D:\\autocad1" "D:\\autocad2" "D:\\autocad3"))
;(foreach x path (setq sp (strcat sp ";" x))) ;文件搜索路径放在最后
(foreach x path (setq sp (strcat x ";" sp))) ;文件搜索路径放在最前
(setenv "ACAD" sp)

magicheno

aichong 发表于 2020-9-24 23:00
代码很好用，谢谢分享。我修改了一下，这样就可以放在最前面或最后面：

(setq sp (getenv "ACAD"))

好东西！！！支持哈

xiaojiajun160

好难啊！！头发都没了一大半

zhangrunze

学习了~

2. (setq sp (getenv "ACAD"))
   
3. (setq path '("D:\\autocad1" "D:\\autocad2" "D:\\autocad3"))
   
4. 
   
5. (foreach x path (setq sp (strcat sp ";" x))) ;文件搜索路径放在最后
   
6. ;(foreach x path (setq sp (strcat x ";" sp))) ;文件搜索路径放在最前
   
7. 
   
8. (setenv "ACAD" sp)
   
9. 
   
10. (princ)

(setq sp (getenv "ACAD"))<br /> (setq path '("D:\\autocad1" "D:\\autocad2" "D:\\autocad3"))<br /> <br /> (foreach x path (setq sp (strcat sp ";" x))) ;文件搜索路径放在最后<br /> ;(foreach x path (setq sp (strcat x ";" sp))) ;文件搜索路径放在最前<br /> <br /> (setenv "ACAD" sp)<br /> <br /> (princ)