fillread-读文件到列表.LSP

defun fillread(/ ffn ff str );¶ÁÎļþµ½Áбí 
(setq ffn (getfiled "Ñ¡ÔñÎļþ" "" "txt" 2)
ff (open ffn "r")
return '()
) 
(while (setq str (read-line ff))
(setq return (cons str return))
)
(setq return(reverse return))
(close ff)
(setq ffn nil ff nil str nil)
return
)