读取文本文件，绘制折线

[code];;; 功能：读取文本文件，绘制折线
;;; 日期： 2008-12-24
(vl-load-com)
(defun C:zx ()
(if (setq FILE (getfiled "选择dat文件"
""
"dat;txt"
4
)
)
(progn
;;===================
;;第一步：把文件内容全部读出来
;;读模式打开lsp文件
(setq F1 (open FILE "r")
lst_jg '()
)
;;逐行读入
(while (setq STR (read-line F1))
(setq LST (read (strcat "(" STR ")")))
(setq lst_jg (cons lst lst_jg))
)
(setq lst_jg (reverse lst_jg))
;;关闭文件
(close f1)

;;====================
;;第二步：开始画
(command "_.spline")
(foreach n lst_jg
(command "non" n)
)
(command "")

)
)
(princ)
) ;_ 结束defun
;;;=============================================================[/code]