- A+
所属分类：CAD二次开发
其实用lsp判断文件是否存在，可以用函数open直接打开一个文件，要是返回空肯定就不存在，要是返回的不是空，那还用说嘛，看到是有的了。
函数open用法：（open "完整路径使用反斜杠" "打开模式 r只读、a追加写入、w覆盖写"）
例子：
(defun c:fii (/ ff)
;读配置文件
(setq ff (open "L:/CAD/nc/huojibk.dat" "r"));打开文件R只读/W覆盖写入/A追加写入
(if (/= ff nil);文件返回空就是文件不存在
(progn
(alert"文件存在的哦huojibk.com")
;存在就继续往下运行，编写需要执行代码
(close ff);关闭文件
)
(progn
(alert"你在开玩笑嘛！啥也没找着，一根毛都没有，huojibk.com")
)
))
复制
