求高手帮我解下下在CAD中取得数值后存入text文本中的问题

ddbegg

代码如下：
2 g' V/ {+ r, X7 C(defun c:qsz ()
  (setq file_id (open "C:/Documents and Settings/Administrator/桌面/ss.txt" "w"))
/ L, ~* Q+ `: g  Q1 H  (repeat     
....中间省略取得的数值...
: p( ?/ b; l$ V* p      (progn
  A5 G2 i& Q! M" x; V          (setq k (+ k 1))
         (write-line qdmj file_id)
; g/ t, e7 e$ J8 C8 `; R      )
   )
  (close file_id)
)
& ~3 o# X- _9 q; F7 {- i( w
qdmj 为我取得的数值（princ 能显示出来）
% ~4 L, V* N! L总是提示：错误: 参数类型错误: stringp
# @7 z, j" w# w+ }: H, `无法将取得的数值写入到桌面的ss.text中
( Y- n# C! D$ C' g另，请问下为什么我向ss.text写入数值老是会覆盖掉里面的数据，而不是在下面添加