自动设置CAD自动搜文件的原码
不过这个程序有点问题，就是每输一次命令就重复加一次路径，请问高手，有没有办法设置如果重复就不添加？;;设置路径
(defun c:tlj (/ a pa lst ls1 path)
(setq a (getenv "ACAD")
pa (getstring "\n盘符 : ")
;;要增加的路径，由用户自己改写
lst(list ":\\拷贝到E盘" ":\\拷贝到E盘\\常用" )
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")
)
页:
[1]