怎样用lisp在CAD的搜索路径中添加新的路径

caoyin

请教各位大师:

怎样用lisp在CAD的搜索路径中添加新的路径

xyp1964

2. ;;设置路径
3. (defun c:test041 (/ a pa lst ls1 path)
4.   (setq a    (getenv "ACAD")
5. pa   (getstring "\n盘符 : ")
6. ;;要增加的路径，由用户自己改写
7. lst  (list ":\block\a1"    ":\block\a2"    ":\block\a3"
8.      ":\bk\b1"    ":\bk\b2"    ":\bk\b3"
9.      ":\bk\pat"
10.      ;;
11.     )
12. ls1  (car lst)
13. path (strcat ";" pa ls1)
14. lst  (vl-remove ls1 lst)
15.   )
16.   (while lst
17.     (setq ls1  (car lst)
18.    path (strcat path (strcat ";" pa ls1))
19.    lst  (vl-remove ls1 lst)
20.     )
21.   )
22.   (setenv "ACAD" (strcat a path))
23.   (getenv "ACAD")
24. )

;;设置路径 (defun c:test041 (/ a pa lst ls1 path)   (setq a    (getenv "ACAD") pa   (getstring "\n盘符 : ") ;;要增加的路径，由用户自己改写 lst  (list ":\block\a1"    ":\block\a2"    ":\block\a3"      ":\bk\b1"    ":\bk\b2"    ":\bk\b3"      ":\bk\pat"      ;;     ) 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") )

qmqyqj

怎么自动识别当前lisp文件所在的路径，然后添加该路径和子目录

zhangkui9070

非常好，添加成功，感谢院长

tcsl9621

我也是用这个方法加的。

qianglcq

谢谢分享

yugarden

这样加出来的路径，没有了“\”这个符号，怎么回事？比如：:\block\a1，就变了“F:blocka1”是怎么回事

Andyhon

Syntax

\block\a1
==>
\\block\\a1
or
/block/a1

yugarden

另外请教一下：如果我不想加在“支持文件搜索路径”这里，想加在“样板设置－样板文件位置”下，有没有办法？这些路径修改是有哪里控制？注册表？

是不是改注册表的templatepath键值？

另外，如果我同时安抓有CAD2007，天正，那就有2个“ACAD”键值了，怎么指定改哪个？那在天正下运行，它只改2007的，还是只改天正的？还是都改？

Andyhon

http://forums.cadalyst.com/showthread.php?t=4600
or more
search "vla-put-TemplateDwgPath"

弓志贤

这个功能困扰我很久，终于解决了，谢谢

︶ㄣ与狼共舞

xyp1964 发表于 2006-3-11 16:27

找了好久都没找到，看看这个行不行！