Autolisp文件夹环境变量操作函数一.pdfVIP

Autolisp 文件夹环境变量操作函数一 ..****************************************************************************** JI ******** .. JI 文件名 DIR.lsp .. JI ;功 能: 本文件主要实现日录操作， Autolisp 环境部分。 .. JI 说 明:文件夹的复制、 剪切等操作准备和文件操作讲到一起。 .. JI 函数- CheckFindPath 检查搜索路径 .. JI 设置 函数二 setFindPath 搜索路径 .. JI 函数- GetFindPath 获得 CAD 支持搜索路径，或指定的其他环境路径 .. JI 获得指定文件夹路径 ;函数四 GetDirectory 一一 .. JI 测试加载状态 函数五 c:testdir 一一 .. JI 需要引用的文件: .. STRING .lsp 字符串操作类 JI .. JI ..****************************************************************************** JI ******** .. ****************************************************************************** JI ******** .. JI · 函数名: CheckFindPath .. JI 功 能:检查搜索路径中是否包涵所需文件 .. JI 变 量: filename 一 需要检索的文件名 .. JI ;返 回:如果文件存在，返回飞否则 nil .. JI .. ****************************************************************************** JI ******** (defun CheckFindPath(filename; 需要检索的文件名 / (vl-filename-directory (findfile filename)) ..****************************************************************************** JI ******** .. JI 函数名: SetFindPath .. JI 功能:设置搜索路径 .. JI 变量: .. JI pathname 需要设置添加的路径名 .. JI ;返 回:设置成功，返回飞否则 nil .. JI ..****************************************************************************** JI ******** (defun SetFindPath (path 需要添加的路径 p_str 需要设置的环境变量字符 / p_cur 当前需要设置路径的值 (setq P_cur (GetFindPath p_str)) ·检查检索到的