关闭（AutoLISP）

签名

(close file-desc)

返回值

类型：无

nil如果文件描述有效;否则会导致错误消息。

在 a 之后，文件描述符保持不变，但不再有效。在关闭文件之前，添加到打开文件的数据实际上不会写入。close

例子

下面的代码计算文件中的行数somefile.txt并将变量ct设置为等于该数字：

(setq fil "SOMEFILE.TXT")
(setq x (open fil "r") ct 0)
(while (read-line x)
  (setq ct (1+ ct))
)
(close x)