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

ddbegg

代码如下：
! p( }9 K7 v  s; _% f+ }& h3 |(defun c:qsz ()
/ }) I. R, F& n" I0 D( R4 C; G  (setq file_id (open "C:/Documents and Settings/Administrator/桌面/ss.txt" "w"))
  (repeat     
5 u5 V' ]! U6 e! N0 N....中间省略取得的数值...
. V- a$ Y% g+ O* Q      (progn
          (setq k (+ k 1))
         (write-line qdmj file_id)
( A$ f, {+ Q+ b7 b- P3 A" o      )
   )
' S6 m) n1 D$ `5 I- ~* }  (close file_id)
)
) H$ |4 T# h2 L
qdmj 为我取得的数值（princ 能显示出来）
5 G+ o0 v" E2 `; ?7 X总是提示：错误: 参数类型错误: stringp
无法将取得的数值写入到桌面的ss.text中
另，请问下为什么我向ss.text写入数值老是会覆盖掉里面的数据，而不是在下面添加