求LISP大神改进代码

camera.Q

现在我已经有了一下代码，可以实现在框选区域捕捉到框选区域文字起点坐标，但是我想把这些信息以excel表格的形式输出，请问怎么改进。谢谢。
(defun c:tt (/ ent i lst ss)
  (setq lst '())

  (if (setq ss (ssget '((0 . "text"))))
    (repeat (setq i (sslength ss))
      (setq ent (entget (ssname ss (setq i (1- i)))))
      (setq lst (cons (list (cdr (assoc 1 ent)) (cdr (assoc 10 ent)) (cdr (assoc 50 ent))) lst))
   )
  )
)