(defun c:ufl00007 ( / flna dataa ffr nn datar )
;テキストファイルを読み込む
  (setq flna "C:\\UfCadP\\text1.txt")
  (setq dataa nil)
  (setq ffr (open flna "r")) ;ファイルのオープン
  (if (= ffr nil)
    (prompt "\nファイルをオープンできません。")
    (progn
      (setq nn 5)
      (repeat nn
        (setq datar (read-line ffr)) ;１〜５行目
        (if (/= datar nil)
          (progn
            (if (= dataa nil)
              (setq dataa (list datar))
              (setq dataa (append dataa (list datar)))
            )
          )
        )
      )
      (close ffr)
    )
  )
  (print dataa)
  (princ)
)