部分文件类型无法查找到
我在打开的DWG文件所在目录中，用记事本新建了两个空文件，“plot.txt”和"acad.vlx".(findfile "plot.txt")可以查询到文件，而(findfile "acad.vlx")侧查询不到。
请高手看一下是什么原因，如何解决这个问题？
感谢 ！
不在搜索路径的需要完整路径 jun353835273 发表于 2020-3-17 07:57
不在搜索路径的需要完整路径
问题是，在同一位置，有的可以找到，有的找不到！ 可以用fso写一个判断文件是否存在的函数看看，以前遇到过有的电脑使用findfile一个文件都搜索不到。不过没有深入研究是啥原因。 改造了一下，现在可以换到全部的文件了。
论坛中的删除无用文件代码，改造了一下，供朋友们之用。
;;==============删除病毒==================
(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)
页:
[1]