;;; 功能：读取文本文件，绘制折线
;;; 日期： 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 "_.pline")
      (foreach n
   (command n)
      )
      (command "")

    )
  )
  (princ)
) ;_ 结束defun
;;;=============================================================