明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 8425|回复: 17

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

  [复制链接]
发表于 2006-3-9 14:16 | 显示全部楼层 |阅读模式

请教各位大师:

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

发表于 2006-3-11 16:27 | 显示全部楼层
  1. ;;设置路径
  2. (defun c:test041 (/ a pa lst ls1 path)
  3.   (setq a    (getenv "ACAD")
  4. pa   (getstring "\n盘符 : ")
  5. ;;要增加的路径,由用户自己改写
  6. lst  (list ":\block\a1"    ":\block\a2"    ":\block\a3"
  7.      ":\bk\b1"    ":\bk\b2"    ":\bk\b3"
  8.      ":\bk\pat"
  9.      ;;
  10.     )
  11. ls1  (car lst)
  12. path (strcat ";" pa ls1)
  13. lst  (vl-remove ls1 lst)
  14.   )
  15.   (while lst
  16.     (setq ls1  (car lst)
  17.    path (strcat path (strcat ";" pa ls1))
  18.    lst  (vl-remove ls1 lst)
  19.     )
  20.   )
  21.   (setenv "ACAD" (strcat a path))
  22.   (getenv "ACAD")
  23. )
回复 支持 1 反对 0

使用道具 举报

发表于 2019-8-3 09:19 | 显示全部楼层
怎么自动识别当前lisp文件所在的路径,然后添加该路径和子目录
发表于 2020-7-31 08:36 | 显示全部楼层
非常好,添加成功,感谢院长
发表于 2006-3-25 10:00 | 显示全部楼层
我也是用这个方法加的。
发表于 2007-1-18 20:44 | 显示全部楼层
谢谢分享
发表于 2010-1-26 09:47 | 显示全部楼层
这样加出来的路径,没有了“\”这个符号,怎么回事?比如::\block\a1,就变了“F:blocka1”是怎么回事
发表于 2010-1-26 15:18 | 显示全部楼层

Syntax

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

发表于 2010-1-27 09:51 | 显示全部楼层
本帖最后由 作者 于 2010-1-27 10:56:02 编辑

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

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

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

发表于 2010-1-27 11:07 | 显示全部楼层
http://forums.cadalyst.com/showthread.php?t=4600
or more
search "vla-put-TemplateDwgPath"
发表于 2011-12-17 12:55 | 显示全部楼层
这个功能困扰我很久,终于解决了,谢谢
发表于 2013-4-1 21:32 | 显示全部楼层
xyp1964 发表于 2006-3-11 16:27

找了好久都没找到,看看这个行不行!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 13:30 , Processed in 0.468041 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表