向文件写数据的函数

我爱你王子呀

问题描述：我想获取屏幕上200个定点的坐标，并存入特定的文件，小弟写了下面的函数，但是运行的结果是只写入一行数据？还望大神们指正。小弟在此先拜谢了，祝各位大神早安~~~
函数如下
(setq i 1)(while (<= i 200)
    (setq p (getpoint))
   (setq X (car p))
   (setq Y (cadr p))
   (setq WJ (open "e:\lx2.txt" "w"))
   (princ X WJ) (princ "," WJ) (princ Y WJ) (princ "\n" WJ)
   (setq i (+ 1 i))
)

vectra

请将open 移出while循环

ll_j

1、可以先打开文件，就如2楼所说。
2、如果open在循环中，可以使用“a”打开，而不是使用“w”。
3、文件打开的位置不同，最后关闭的语句位置也不同，需要注意。

我爱你王子呀

谢谢各位大神指教，小弟经过多次试验 发现
(setq i 1)
(while (<= i 3)
  (setq p (getpoint))
  (setq X (car p))
  (setq Y (cadr p))
  (setq WJ (open "e:\lxa2.txt" "a"))
  (princ X WJ) (princ "," WJ) (princ Y WJ) (princ "\n" WJ)
  (setq i (+ 1 i))
)   这个程序 不可行


(setq i 1)
(while (<= i 3)
  (setq p (getpoint))
  (setq X (car p))
  (setq Y (cadr p))
  (setq WJ (open "e:\lxa3.txt" "a"))
  (princ X WJ) (princ "," WJ) (princ Y WJ) (princ "\n" WJ)
  (close WJ)
  (setq i (+ 1 i))
)  这个程序可行

(setq i 1)
(while (<= i 3)
  (setq p (getpoint))
  (setq X (car p))
  (setq Y (cadr p))
  (setq WJ (open "e:\lxa4.txt" "a"))
  (princ X WJ) (princ "," WJ) (princ Y WJ) (princ "\n" WJ)
    (setq i (+ 1 i))
)
(close WJ) 这个程序不可行

我爱你王子呀

二楼和三楼的方法，小弟下午再试，吃中午饭去了，各位大神也早点吃饭

ll_j

我爱你王子呀 发表于 2015-9-14 11:50
谢谢各位大神指教，小弟经过多次试验 发现
(setq i 1)
(while (

第一段代码的错误是没有关闭文件，第三段代码的错误是文件打开和关闭不匹配，在循环中打开文件后，第二次打开前没有关闭，所以无法打开。
第二段代码把关闭语句放在循环中，每次打开并操作后都关闭，所以问题解决，但这种方法不断的重复打开、关闭、效率不高，所以正确的方法是在循环开始前打开，循环结束后关闭。

我爱你王子呀

ll_j 发表于 2015-9-14 12:25
第一段代码的错误是没有关闭文件，第三段代码的错误是文件打开和关闭不匹配，在循环中打开文件后，第二次 ...

谢谢大神指教

我爱你王子呀

ll_j 发表于 2015-9-14 12:25
第一段代码的错误是没有关闭文件，第三段代码的错误是文件打开和关闭不匹配，在循环中打开文件后，第二次 ...

刚试了一下，成功，再次拜谢大神，小弟不胜感激！！！！！！

skg123

这是我以前写的，你参考一下，注意：提取的坐标格式是 测量坐标系，格式如下
1,,443355.7270,3223379.6554,0.0000
2,,443430.5589,3223417.7149,0.0000
3,,443430.5589,3223417.7149,0.0000
4,,443512.4506,3223417.7149,0.0000
5,,443551.9844,3223450.1360,0.0000
6,,443621.1687,3223438.8591,0.0000
7,,443650.8192,3223426.1726,0.0000
8,,443646.5834,3223365.5592,0.0000
9,,443657.8788,3223340.1862,0.0000
10,,443649.4072,3223309.1747,0.0000

2. ;命令：plzbsc  （2010-05-17 ）  
   
3. (defun c:plzbsc()
   
4.           (princ "\n选择所需输出的点（point）:")
   
5.           (setq ss (ssget ));;选取坐标点
   
6.           (setq n (sslength ss ));计算坐标点数量
   
7.         (setq ff (open (getfiled "坐标文件保存为" "d:/" "dat" 1) "w"));保存路径
   
8.           (setq i 0)
   
9.           (repeat n
   
10.                 (setq spt (ssname ss i ))
    
11.                   (setq ept (entget spt))
    
12.                   (if (= (cdr (assoc 0 ept)) "POINT")
    
13.                           (progn
    
14.                                            (setq lxyz (cdr (assoc 10  ept)))
    
15.                                           (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
    
16.                                           (setq sy (rtos (nth 0 lxyz)))
    
17.                                           (setq sz (rtos (nth 2 lxyz)))
    
18.                                         (setq i1 (+ i 1));计算点序号
    
19.                                         (setq sn (rtos i1 2 0));将序号实数转换成字符
    
20.                                           (setq sxyz (strcat sn",,"  sy ","  sx  ","  sz))
    
21.                                           (write-line sxyz ff)
    
22.                                 )
    
23.                   )
    
24.                   (setq i (+ i 1))
    
25.           );repeat
    
26. )
    
27. (prompt "* << 命令:plzbsc >> *输出格式（点号,, Y，X，Z）**")
    
28. (prin1)

;命令：plzbsc  （2010-05-17 ）  <br /> (defun c:plzbsc()<br />           (princ "\n选择所需输出的点（point）:")<br />           (setq ss (ssget ));;选取坐标点<br />           (setq n (sslength ss ));计算坐标点数量<br />         (setq ff (open (getfiled "坐标文件保存为" "d:/" "dat" 1) "w"));保存路径<br />           (setq i 0)<br />           (repeat n<br />                 (setq spt (ssname ss i ))<br />                   (setq ept (entget spt))<br />                   (if (= (cdr (assoc 0 ept)) "POINT")<br />                           (progn<br />                                            (setq lxyz (cdr (assoc 10  ept)))<br />                                           (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符<br />                                           (setq sy (rtos (nth 0 lxyz)))<br />                                           (setq sz (rtos (nth 2 lxyz)))<br />                                         (setq i1 (+ i 1));计算点序号<br />                                         (setq sn (rtos i1 2 0));将序号实数转换成字符<br />                                           (setq sxyz (strcat sn",,"  sy ","  sx  ","  sz))<br />                                           (write-line sxyz ff)<br />                                 )<br />                   )<br />                   (setq i (+ i 1))<br />           );repeat<br /> )<br /> (prompt "* << 命令:plzbsc >> *输出格式（点号,, Y，X，Z）**")<br /> (prin1)

xyp1964

2. (defun c:tt ()
   
3.   (setq WJ (open "e:\\lx2.txt" "w"))
   
4.   (while (setq p (getpoint "\n点<退出>: "))
   
5.     (princ (car p) WJ)
   
6.     (princ "," WJ)
   
7.     (princ (cadr p) WJ)
   
8.     (princ "\n" WJ)
   
9.   )
   
10.   (close WJ)
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   (setq WJ (open "e:\\lx2.txt" "w"))<br />   (while (setq p (getpoint "\n点<退出>: "))<br />     (princ (car p) WJ)<br />     (princ "," WJ)<br />     (princ (cadr p) WJ)<br />     (princ "\n" WJ)<br />   )<br />   (close WJ)<br />   (princ)<br /> )