Xuất dữ liệu từ Cad sang TXT

[18011985 62]

Mình đang viết 1 đoạn lisp xuất dữ liệu ra TXT nhưng gặp1 vấn đề như sau:

- Khi thực hiện lệnh lần 1 thì không có vấn đề gì.

- Thực hiện lần 2 thì kết quả lần 2 đè lên lần 1.

( ờ đây mình ghi cùng lên 1 file )

Mình muốn lần 1 thì kết quả ở dòng 1 của file TXT.

Lần 2 ghi vào dòng 2.

Lần n ghi vào dòng n.

Sau đây là lsp của mình mong các bạn góp ý và chỉ cho mình.

(defun c:a12 (/ a b m F i mm mmm)
(setq a 1)
(setq b 3)
(setq show nil)
 (while (<=a b )
   (setq m (getstring "\n ky tu: "))
   (setq show (cons m show))
   (setq a (+ a 1))
   )
(setq i 0)
(setq F (OPEN "C:/Documents and Settings/Truong Duc Hanh/Desktop/hanh.txt" "w"))
(WRITE-LINE (strcat (nth i show)"	"(nth (setq i (+ i 1)) show)   "	"(nth (setq i (+ i 1)) show))F)
(CLOSE F)
 )

[dkkx3a 59]

Mình đang viết 1 đoạn lisp xuất dữ liệu ra TXT nhưng gặp1 vấn đề như sau:

- Khi thực hiện lệnh lần 1 thì không có vấn đề gì.

- Thực hiện lần 2 thì kết quả lần 2 đè lên lần 1.

( ờ đây mình ghi cùng lên 1 file )

Mình muốn lần 1 thì kết quả ở dòng 1 của file TXT.

Lần 2 ghi vào dòng 2.

Lần n ghi vào dòng n.

Sau đây là lsp của mình mong các bạn góp ý và chỉ cho mình.

(defun c:a12 (/ a b m F i mm mmm)
(setq a 1)
(setq b 3)
(setq show nil)
 (while (<=a b )
   (setq m (getstring "\n ky tu: "))
   (setq show (cons m show))
   (setq a (+ a 1))
   )
(setq i 0)
(setq F (OPEN "C:/Documents and Settings/Truong Duc Hanh/Desktop/hanh.txt" "w"))
(WRITE-LINE (strcat (nth i show)"	"(nth (setq i (+ i 1)) show)   "	"(nth (setq i (+ i 1)) show))F)
(CLOSE F)
 )

 

Bạn đổi dòng lệnh này thử xem, có lẽ ở đây:

(setq F (OPEN "C:/Documents and Settings/Truong Duc Hanh/Desktop/hanh.txt" "w"))

thành:

(setq F (OPEN "C:/Documents and Settings/Truong Duc Hanh/Desktop/hanh.txt" "a"))

 

@ Dòng này bị lỗi: (while (<=a b ) sửa lại: (while (<= a b )

Thế là chắc đc