autolisp读取文本文档后再写到另一个文档会出现乱码，求助解决办法

Question

(defun C:fff ()
;(setvar "cmdecho" 0)
;(setvar "blipmode" 0)
(setq f1 (open "11.daT" "r")) ;;打开并读取文件
(setq data (read-line f1))

(setq f2 (open "22.dat" "w")) ;;打开并读取文件
(PRINC DATA f2);这一行可以正常显示
(setq aa (ascii (substr data 1 1)))
(princ aa f2) ;这一个就是显示乱码

(close f2)
(close f1)

)

Answer 1

不要同时打开两个文档，先读取，关闭了，然后再打开另一个文档写入。