为什么不能写入文本？

chui · 发表于 2003-5-23 02:06:00

我写的程序意图是：读取文本数据，使的数据中的X ，Y，H，能够同时加一个给定的常数，同时保存为原来的文本数据格式，程序运行中只能将原第二行的数据，加常数后写入新的文件中。我想是不是循环的问题，但是还是没有解决，请帮忙！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

chui · 发表于 2003-5-23 22:13:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:kysn1z04n15.lsp
下载次数:0 文件大小:1.72 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

meflying · 发表于 2003-5-24 13:42:00

你每一行加的数值不一样吗？而且每一行都要另存一个文件吗？
另外，保存文件用参数9。
看看下面的程序能否满足你的要求

meflying · 发表于 2003-5-24 13:48:00

(defun readtxt(str / lists )
  (setq lists (list (read str)))
  (setq str (vl-string-left-trim (rtos (car lists)) str))
  (setq str (vl-string-trim ", " str))
  (setq lists (append lists (list (read str))))
  (setq str (vl-string-left-trim (rtos (cadr lists)) str))
  (setq str (vl-string-trim ", " str))
  (setq lists (append lists (list (read str))))
  (setq str (vl-string-left-trim (rtos (caddr lists)) str))
  (setq str (vl-string-trim ", " str))
  (setq lists (append lists (list (read str))))
)

meflying · 发表于 2003-5-24 13:48:00

(defun puttxt(f lists / n m i j str)
  (setq n (length lists))
  (setq m (length (car lists)))
  (setq i 0)
  (while () :"))
  (if (null xg) (setq xg 10))
(TERPRI)
(setq yg (getreal "\n东方向加固定常数(Y + ) :"))
  (if (null yg) (setq yg 20))
(TERPRI)
(setq hg (getreal "\n高程加固定常数(H + ) :"))
  (if (null hg) (setq hg 30))
  (while ft
(setq list1 (readtxt ft))
(setq x (nth 1 list1))
(setq y (nth 2 list1))
(setq h (nth 3 list1))

meflying · 发表于 2003-5-24 13:52:00

(setq x_xg (+ x xg))
(setq y_yg (+ y yg))
(setq h_hg (+ h hg))
(setq list1 (list (car list1) x_xg y_yg h_hg))
(setq lists (append lists (list list1)))
(setq ft (read-line fn)))
  (close fn)
  (setq fm (getfiled "请指定保存新数据的路径及文件名"  "e:\\DATA1.TXT"  "txt;dat;*"  9))
  (setq n_file (open fm "w"))
  (puttxt n_file lists)
  (close n_file)
  (princ)
)

为什么不能写入文本？

发表回复

精选推荐