AutoLISP将图形中文字写入外部文件

AutoLISP将图形中文字写入外部文件，代码如下。

(defun c:test()
  (setq ffn (getfiled "写出文件" "" "txt" 1))
  (princ "\n选取文字……")
  (setq ss (ssget))
  (setq ff (open ffn "w"))
  (setq i 0)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq sstyp (car (assoc 0 ssdata)))
    (if (= sstyp "TEXT")
      (progn
    (setq txt (cdr (assoc 1 ssdata)))
    (princ txt ff)
    (princ "\n" ff)
    )
      )
    (setq i (1+ i))
    )
  (close ff)
  (princ (strcat "\n写出文件：" ffn))
  (prin1)
  )

代码完。

文件建立了，文字没能写入。