[LISP函数]：支持文件搜索路径？

silen618 · 发表于 2004-12-6 17:09:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何获取CAD中“支持文件搜索路径”，

如何实现用程序修改“支持文件搜索路径”。

xyp1964 · 发表于 2004-12-6 22:57:55

(getvar"acadprefix")

LUCAS · 发表于 2004-12-7 08:04:23

;;如何獲取CAD中「支持文件搜索路徑」，
(setq A (getenv "ACAD"))
;;如何實現用程序修改「支持文件搜索路徑」。
(setenv "ACAD" (strcat A "C:\\TEMP"))

silen618 · 发表于 2004-12-7 15:24:57

3楼主，为什么我改了之后，“选项”对话框中的“支持文件搜索路径”并没有改变呢？

LUCAS · 发表于 2004-12-7 17:03:48

"ACAD"<--- 一定要大寫

yfy2003 · 发表于 2004-12-7 18:37:44

;;如何獲取CAD中「支持文件搜索路徑」，
(setq A (getenv "ACAD"))
;;如何實現用程序修改「支持文件搜索路徑」。
(setenv "ACAD" (strcat A "C:\\TEMP"))

能不能将C:\\TEMP提升到第一支持路径？

xyp1964 · 发表于 2004-12-7 22:41:06

增加多个新路径：
[php]
;;设置路径
(defun c:test (/ 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")
)
[/php]

LUCAS · 发表于 2004-12-8 12:38:39

最初由 yfy2003 发布
[B];;如何獲取CAD中「支持文件搜索路徑」，
(setq A (getenv "ACAD"))
;;如何實現用程序修改「支持文件搜索路徑」。
(setenv "ACAD" (strcat A "C:\\TEMP"))

能不能将C:\\TEMP提升到第一支持路径？ [/B]

參考
http://www.mjtd.com/function/alisp/003.htm

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：支持文件搜索路径？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子