（XD::Table:toCSV）AUTOCAD 表格或者表格型LST生成CSV文件

Lispboy

(defun XD::Table:toCSV (tb fn / cols i isLst isTable lst rows x y)
  (cond
    ((and
       (= (type tb) 'ENAME)
       (setq isTable (xdrx_object_isa tb "AcDbTable"))
     )
     (setq rows        (xdrx_table_numrows tb)
           cols        (xdrx_table_numcolumns tb)
           i        -1
     )
     (repeat rows
       (setq i (1+ i))
       (setq lst (cons (xdrx_table_textstring tb i -1) lst))
     )
     (setq lst (reverse lst))
    )
    ((and
       (= (type tb) 'LIST)
       (setq isLst (xd::list:isTable tb))
     )
     (setq lst        tb
           rows        (car isLst)
           cols        (cadr isLst)
     )
    )
    (t
     (exit)
    )
  )
  (setq        lst (mapcar
              '(lambda (x)
                 (mapcar
                   '(lambda (y)
                      (cond
                        ((or
                           (not y)
                           (= y "")
                         )
                         ""
                        )
                        ((/= (type y) 'STR)
                         (vl-princ-to-string y)
                        )
                        (t
                         y
                        )
                      )
                    )
                   x
                 )
               )
              lst
            )
  )
  (setq        lst (mapcar
              '(lambda (x)
                 (xdrx_string_join x ",")
               )
              lst
            )
  )
  (xd::list:tofile fn lst)
  t
)

Lispboy

测试代码，选ACAD_TABLE实体，生成CSV

(defun c:tt()
  (if (and (setq e (car (xdrx_entsel "\n点取表格实体<退出>:" '((0 . "ACAD_TABLE")))))
           (setq fn (xdrx_system_selectfiles "CSV" "" "CSV" 1))
      )
    (XD::TABLE:TOCSV e (car fn))
  )
)

longer1000

啥也不说了，感谢楼主分享哇！

spp_wall

支持！！！！！！！谢谢！！！！！！！

cable2004

啥也不说了，感谢楼主分享哇！

kqqt6236

谢谢分享。

wenyish

正需要，支持楼主大人了！