[求助]返回当前路径并添加到CAD支持目录，退出时又怎样删除这个目录呢？

dinosaurhxe · 发表于 2008-4-7 20:25

(defun getpath (/ nowdwg path1)
(setq nowdwg (getvar "dwgname"))
(setq path1 (findfile nowdwg))
(setq path1 (substr path1 1 (- (strlen path1) (strlen nowdwg))))
path1
)
;上面这段代码可以得到当前图形的路径。怎样将其添加到CAD的支持路径呢？
;又看到MJTD上下面的这段代码，但感觉会有\\与\的问题，没有详细试验。
;
;
(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"
;;
) ;_ 结束list
;_ 结束list
ls1 (car lst)
path (strcat ";" pa ls1)
lst (vl-remove ls1 lst)
) ;_ 结束setq
(while lst
(setq ls1 (car lst)
path (strcat path (strcat ";" pa ls1))
lst (vl-remove ls1 lst)
) ;_ 结束setq
) ;_ 结束while
(setenv "ACAD" (strcat a path))
(getenv "ACAD")
)

现在的问题是，即使我将当前目录添加进CAD支持目录，又怎样将其删除呢？若不删除，那CAD的支持路径就会无限膨胀了。

dinosaurhxe2 · 发表于 2008-4-7 22:11

另外想问一下，在CAD命令行中键入SH得到的路径，有时是当前文件的路径，有时又不是。它到底是怎么定的呢？

dinosaurhxe2 · 发表于 2008-4-7 22:35

本帖最后由作者于 2008-4-7 22:54:20 编辑

原来如此简单。

目前虽然得到了结果，但感觉仍是知其不知其所以然。
另外因后续程序可能需要用到oldacad，这里不能将其当作局部变量清除掉，怎么解决这个问题呢，在主程序里把它当成局部变量吗？
所以仍期望高人指点一二，不甚感激！

dinosaurhxe · 发表于 2008-4-14 21:23

4.7日直接(setenv "ACAD" oldacad)，这就需要保留局部变量到程序结束。
再经过几日的思考，算是找到一个比较好一些的方案，如下，请前辈们指点。

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