怎样将点坐标读取到文本文件？

55353491

地形图里有上万个点，怎样才能将这些点的坐标x、y、z读入到一个文本文件里？谢谢

xyp1964

2. ;;;点坐标写出文件
3. (defun c:test ()
4.    ;(CMDLA0)
5.    (setq  ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)
6.   ff   (open ffn "w")
7.   ss   (ssget '((0 . "POINT")))
8.   i     -1
9.    )
10.    (while (setq s1 (ssname ss (setq i (1+ i))))
11.        (setq pt (dxf 10 (entget s1))
12.      tx (strcat (rtos (car pt) 2 3)
13.              " "
14.              (rtos (cadr pt) 2 3)
15.              " "
16.              (rtos (caddr pt) 2 3)
17.            )
18.        )
19.        (write-line tx ff)
20.    )
21.    (close ff)
22.    (princ (strcat "\n 坐标写至=>" ffn))
23.    ;(CMDLA1)
24.    (princ)
25. )
26. (defun dxf (code elist) (cdr (assoc code elist)))

;;;点坐标写出文件 (defun c:test ()    ;(CMDLA0)    (setq  ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)   ff   (open ffn "w")   ss   (ssget '((0 . "POINT")))   i     -1    )    (while (setq s1 (ssname ss (setq i (1+ i))))        (setq pt (dxf 10 (entget s1))      tx (strcat (rtos (car pt) 2 3)              " "              (rtos (cadr pt) 2 3)              " "              (rtos (caddr pt) 2 3)            )        )        (write-line tx ff)    )    (close ff)    (princ (strcat "\n 坐标写至=>" ffn))    ;(CMDLA1)    (princ) ) (defun dxf (code elist) (cdr (assoc code elist)))