非常感谢！meflying兄
meflying兄：很感谢你，给我解决了问题！
谢谢了，我会不断努力的！
你这是完全对文件的操作，其实用C编一个程序更简单些
还有一点小问题。
我用了您写的程序之后，已经可以完成我的要求，还有一点就是，我原来的文件开始第一行是表示总点数，第二行是第一个点，第三行是第二个点。。。重新写入的文件应该也是这个格式，但是我在应用时发现，新的文件第一行的总点数没有写入，我也试着修改了一下，但是没有成功，能不能在帮我看看呢？
万分感谢！！！！
修改过的（1）
(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)))
)
修改过的（2）
此函数后面的同原来的相同，(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))
meflying兄，真的好感谢！
非常感谢！meflying兄，你不厌其烦的帮助我，我只有更加努力了！！ <p>数字格式呢</p><p>看我的如何实现</p><p>要高程加一个常数</p><p>3,,2994.2350,3000.0000,1000.1400<br/>4,,3012.7040,2998.2560,999.4580<br/>5,,2987.2440,2998.5070,1000.3200<br/>6,,3015.6750,2998.6460,999.2950<br/>7,,2984.4610,2992.2890,1000.3630<br/>8,,3018.6840,2998.0700,999.6960<br/>9,,2967.7240,2989.8850,1000.4730<br/>10,,2966.4990,2989.6790,1000.4670<br/>11,,2942.2650,2992.0700,999.7680<br/>12,,3024.7020,2997.9890,999.1820<br/>13,,3021.1370,2999.0670,999.1570<br/>14,,2939.1720,2991.4770,999.6820<br/>15,,3012.9780,2995.7580,1001.5880<br/>16,,2947.1480,2986.7700,1000.3880<br/>17,,3009.1310,2997.4610,999.6610<br/>18,,2954.3210,2986.7790,1000.4860<br/>19,,3006.2750,2996.5250,999.8200<br/>20,,2960.5680,2987.6970,1000.4900<br/>21,,3005.0320,2994.9590,999.9080<br/>22,,2963.6080,2985.7480,1000.4620<br/>23,,3004.3690,2992.6870,999.9820</p>
页:
1
[2]