明经通道 AutoLISP 函数	明经通道 AutoLISP 函数
close

关闭一个已打开的文件

(close file-desc) 

参数

file-desc

在 open 函数打开文件时获得的文件描述符。

返回值

如果 file-desc 参数有效，close 函数返回 nil；否则它返回一个错误信息。

用 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)