如何区分只读

Ahankhah · 发表于 2022-7-6 09:50:33

特别感谢你们，以下是一个完整的函数，作为你们提供的方法的总结：

(defun [b]DwgFileStatus [/b](DwgName / *dwg* *folder* *name* *dwl* *ret* *f*)
  (if (setq *dwg* (findfile DwgName))
     (progn
        (setq *folder* (vl-filename-directory *dwg*))
        (setq *name* (vl-filename-base *dwg*))
        (setq *dwl* (findfile (strcat *folder* "\" *name* ".dwl")))
     )
  )
  (setq *ret* 
     (cond
        (  (not *dwg*)
           'NoSuchFile
        ) 
        (  (setq *f* (open *dwg* "a"))
           'Editable
        )
        (  (not *dwl*)
           'ReadOnly
        )
        (  (setq *f* (open *dwl* "a"))
           'EditableAfterCrash
        )
        (  (not *f*)
           'InUse
        )
        (  T
           'NotProspected
        )
     )
  )      
  (if *f* (close *f*))
  *ret*
)

irneb · 发表于 2022-7-6 09:52:20

它将受到文件状态的影响，因为我打开它是为了进行写访问（请注意“a”-append选项）。因此，如果有人已经打开了它（即使是你自己），windows将不允许此调用，并且open函数将返回nil。
我也不太乐意打开它——但这就是你在AutoLisp中真正能做的一切。即使使用ActiveX脚本，文件系统/文件对象也无法检查文件是否由其他人打开。这绝对不是理想的，因为你依赖的是失败/不成功。虽然打开它然后直接关闭应该没有任何问题-注意，我还使用了“a”（append）选项，以防“w”（rewrite）选项删除文件的内容。

为此，我建议Ahankhaha将close call放在尽可能靠近open的位置——实际上，我会将其直接放在每个cond条件中的open之后。即使在函数中需要两个重复项，但这样更安全（你永远不知道以后是否要扩展函数并使用该*f*变量，这太关键了，不能听天由命）。甚至在这里添加一条注释来解释您永远不应该向*f*变量写入任何内容，只是为了提醒自己永远不要这样做。

编辑：顺便说一句，DWL文件很少被任何人打开。当有人打开/关闭DWG文件时，只需几秒钟。所以你不需要检查。您也可以以只读方式打开DWL文件，即（打开“FileName.DWL”“r”），然后逐行阅读以找到打开它的用户-这基本上是WHOHAS命令所做的。第一行是用户名，第二行是计算机名，第三行是打开日期和时间。

此外，我认为您误解了李关于检查DWL文件的建议。如果它存在，则通常意味着有人打开了DWG。如果找不到，则DWG肯定未打开。