为什么不能写入文本？

chui

meflying兄：
很感谢你，给我解决了问题！
谢谢了，我会不断努力的！

meflying

chui

我用了您写的程序之后，已经可以完成我的要求，还有一点就是，我原来的文件开始第一行是表示总点数，第二行是第一个点，第三行是第二个点。。。
重新写入的文件应该也是这个格式，但是我在应用时发现，新的文件第一行的总点数没有写入，我也试着修改了一下，但是没有成功，能不能在帮我看看呢？
万分感谢！！！！

meflying

(defun puttxt(f lists / n m i j str)
  (setq n (length lists))
  (setq m (length (cadr lists)))
  (write-line (rtos (car lists)) f)
  (setq i 1)
  (while (< i n)
    (setq j 1)
    (setq str (strcat (rtos (car (nth i lists))) " ,"))
    (while (< j m)
      (setq str (strcat str "," (rtos (nth j (nth i lists))) " "))
      (setq j (1+ j))
    )
    (write-line str f)
    (setq i (1+ i)))
)

meflying

此函数后面的同原来的相同，
(defun c:sjjcs (/ x y h xg yg hg x_xg y_yg h_hg lists list1 ft fm fn)
  (setq file (findfile "*.txt"))
  (if (not file)
    (setq file (getfiled "\n请输入原数据文件" "e:\\" "txt;dat;*" 8))
  )
  (setq fn (open file "r"))
  (setq ft (read-line fn))
  (setq lists (list (read ft)))
  (setq ft (read-line fn))

chui

非常感谢！
meflying兄，你不厌其烦的帮助我，我只有更加努力了！！

参股银行

数字格式呢

看我的如何实现

要高程加一个常数

3,,2994.2350,3000.0000,1000.1400
4,,3012.7040,2998.2560,999.4580
5,,2987.2440,2998.5070,1000.3200
6,,3015.6750,2998.6460,999.2950
7,,2984.4610,2992.2890,1000.3630
8,,3018.6840,2998.0700,999.6960
9,,2967.7240,2989.8850,1000.4730
10,,2966.4990,2989.6790,1000.4670
11,,2942.2650,2992.0700,999.7680
12,,3024.7020,2997.9890,999.1820
13,,3021.1370,2999.0670,999.1570
14,,2939.1720,2991.4770,999.6820
15,,3012.9780,2995.7580,1001.5880
16,,2947.1480,2986.7700,1000.3880
17,,3009.1310,2997.4610,999.6610
18,,2954.3210,2986.7790,1000.4860
19,,3006.2750,2996.5250,999.8200
20,,2960.5680,2987.6970,1000.4900
21,,3005.0320,2994.9590,999.9080
22,,2963.6080,2985.7480,1000.4620
23,,3004.3690,2992.6870,999.9820