cad文本导出到excel里的函数，怎么使输出的文本为列输出？？

xunzhao123

(defun c:tqwz()
   (if (= (setq n (getint "\n保存文字时每行的个数<5>:")) niL)
       (setq n 5)
   )
   (princ "\n请选择单行文字:")
   (if (setq ssa (ssget '((0 . "text"))))
       (if (setq wjm  (getfiled "请指定提取结果存盘文件" "d://" "csv" 1))
           (progn
               (setq m (sslength ssa)
                     i 0
                     zfc ""
                     ff (open wjm "w")
                     j 0
               )
               (repeat m
                   (setq dxf (entget (ssname ssa i))
                         i   (1+ i)
                         wz  (cdr (assoc 1 dxf))
                         j   (1+ j)
                   )
                   (if (= j n)
                       (progn
                           (setq zfc (strcat zfc wz "\n"))
                           (princ zfc ff)
                           (princ zfc)
                           (setq zfc "" j 0)
                       )
                       (setq zfc (strcat zfc wz ","))
                   )
              )
              (if (< 0 j n)
                  (progn
                      (setq zfc (substr zfc 1 (1- (strlen zfc)))
                            zfc (strcat zfc "\n")
                      )
                      (princ zfc ff)
                      (princ zfc)
                  )
              )
              (close ff)                 
           )
           (princ "\n没有指定提取结果存盘文件")
       )
       (princ "\n没有选取任何单行文字！")
    )
    (princ)
)

st788796

先构造表，最后再写文件，这样可以按要求处理表