caoyin 发表于 2006-3-9 14:16:00

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

<P>请教各位大师:</P>
<P>怎样用lisp在CAD的搜索路径中添加新的路径</P>

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

;;设置路径
(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 发表于 2019-8-3 09:19:13

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

zhangkui9070 发表于 2020-7-31 08:36:34

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

tcsl9621 发表于 2006-3-25 10:00:00

我也是用这个方法加的。

qianglcq 发表于 2007-1-18 20:44:00

谢谢分享

yugarden 发表于 2010-1-26 09:47:00

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

Andyhon 发表于 2010-1-26 15:18:00

<p>Syntax</p><p>\block\a1<br/>==&gt;<br/><a href="file://\\block\\a1">\\block\\a1</a><br/>or<br/>/block/a1</p><p></p><p></p>

yugarden 发表于 2010-1-27 09:51:00

本帖最后由 作者 于 2010-1-27 10:56:02 编辑 <br /><br /> <p>另外请教一下：如果我不想加在“支持文件搜索路径”这里，想加在“样板设置－样板文件位置”下，有没有办法？这些路径修改是有哪里控制？注册表？</p><p>是不是改注册表的templatepath键值？</p><p>另外，如果我同时安抓有CAD2007，天正，那就有2个“ACAD”键值了，怎么指定改哪个？那在天正下运行，它只改2007的，还是只改天正的？还是都改？</p>

Andyhon 发表于 2010-1-27 11:07:00

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

弓志贤 发表于 2011-12-17 12:55:23

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

︶ㄣ与狼共舞 发表于 2013-4-1 21:32:20

xyp1964 发表于 2006-3-11 16:27 static/image/common/back.gif


找了好久都没找到，看看这个行不行！
页: [1] 2
查看完整版本: 怎样用lisp在CAD的搜索路径中添加新的路径