(defun c:ufl00006 ( / flna ffw dataw )
;テキストファイルを書き出す
  (setq flna "C:\\UfCadP\\text1.txt")
  (setq ffw (open flna "w")) ;ファイルのオープン
  (if (= ffw nil)
    (prompt "\nファイルをオープンできません。")
    (progn
      (setq dataw "abcde")
      (write-line dataw ffw) ;１行目
      (setq dataw "fghij")
      (write-line dataw ffw) ;２行目
      (setq dataw "ＫＬＭＮＯ")
      (write-line dataw ffw) ;３行目
      (setq dataw "ＰＱＲＳＴ")
      (write-line dataw ffw) ;４行目
      (setq dataw "100.00")
      (write-line dataw ffw) ;５行目
      (close ffw)
    )
  )
  (princ)
)