部分文件类型无法查找到

nyistjz

我在打开的DWG文件所在目录中，用记事本新建了两个空文件，“plot.txt”和"acad.vlx".
(findfile "plot.txt")可以查询到文件，而(findfile "acad.vlx")侧查询不到。
请高手看一下是什么原因，如何解决这个问题？

感谢 ！

jun353835273

不在搜索路径的需要完整路径

nyistjz

jun353835273 发表于 2020-3-17 07:57
不在搜索路径的需要完整路径

问题是，在同一位置，有的可以找到，有的找不到！

jun353835273

可以用fso写一个判断文件是否存在的函数看看，以前遇到过有的电脑使用findfile一个文件都搜索不到。不过没有深入研究是啥原因。

nyistjz

改造了一下，现在可以换到全部的文件了。
论坛中的删除无用文件代码，改造了一下，供朋友们之用。

;;==============删除病毒==================
(defun cleanviru (/ clean lspfiles)
        (defun clean(file / path x)
                (vl-load-com)
                (setq path(Vlax-Get(Vlax-Get(Vlax-Get-Acad-Object)'ActiveDocument)'Path))
                (if(setq x(findfile(strcat path"\\" file)))(if(vl-file-delete x)(princ (strcat "\n已删除病毒文件: " lspfile))))
        )(setq lspfiles '( "acad.lsp" "acad.vlx" "acad.fas" "acaddoc.lsp" "acaddoc.fas" "acadapp.lsp" "acadapq.lsp" "logo.gif" "plot.txt" ))
        (foreach lspfile lspfiles (clean lspfile))
)(cleanviru)