CAD表格生成Excel表格问题

笑看丿丶生

CAD表格生成 Excel表格的代码，只能生成一个表头，表格的内容没有，求大神们帮忙完善一下，谢谢，最好可以同CAD表格的形式，自动合并单元格。
选择生成后CAD提示 nil  可以生成csv文件，但是只有CAD表格的表头，没有表格内的其它内容。

源码（不知道是哪位大神写的，在此谢过）如下：
(defun c:c2e ( /  hangdau)
(defun sosanh (e1 e2 / p1 p2)
(setq p1 (car e1)
p2 (car e2)
)
(if (equal (cadr p1) (cadr p2) fuzz)
(< (car p1) (car p2))
(< (cadr p2) (cadr p1))
)
)
(setq
ss (ssget '((0 . "ACAD_TABLE,*TEXT")))
lst (ss2ent ss)
lst (mapcar '(lambda (e) (cons (cdr (assoc 10 (entget e))) (cdr (assoc 1 (entget e))))) lst)
lst (mapcar '(lambda (e) (if (= (cdr e) "*") (cons (car e) "") e)) lst)
caotext (cdr (assoc 40 (entget (ssname ss 0))))
fuzz (* caotext 1.0)
lst (vl-sort lst 'sosanh)
index 1
oldy nil
fn (getfiled "保存文件名" "" "csv" 1)
fid (open fn "w")
)
(foreach e lst
(if (equal oldy (cadr (car e)) fuzz)
(progn
(princ "," fid)
(setq index (1+ index))
)
(progn
(if hangdau
(progn
(setq index 1)
(princ "\n" fid)
)
(setq hangdau t)
)
)
)
(princ (cdr e) fid)
(setq oldy (cadr (car e)))
)
(close fid)
)
(defun ss2ent (ss / sodt index lstent)
(setq
sodt (if ss
(sslength ss)
0
)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

笑看丿丶生

坐沙发上等高手来解救

llsheng_73

随便用几个文字测试了一下，好象只能输出文字内容（输出的文字内容比我所选的少了一个），没看到表头，最好你自己做一个文件，把它用EXCEL打开了发个图上来？

笑看丿丶生

llsheng_73 发表于 2015-9-1 15:57
随便用几个文字测试了一下，好象只能输出文字内容（输出的文字内容比我所选的少了一个），没看到表头，最好 ...

CAD的表格是这样的

生成表格后是这样的，只有一个表头

llsheng_73

笑看丿丶生 发表于 2015-9-1 17:23
CAD的表格是这样的

生成表格后是这样的，只有一个表头

印象中论坛里边有CAD表格到XLS的，多找下。。。。

笑看丿丶生

llsheng_73 发表于 2015-9-1 17:30
印象中论坛里边有CAD表格到XLS的，多找下。。。。

一直没找到  

香田里浪人

truetable11.0I(AutoCAD-Rel)破解版可以实现

笑看丿丶生

香田里浪人 发表于 2015-9-3 21:11
truetable11.0I(AutoCAD-Rel)破解版可以实现

我是想自己弄一个工具箱 所以还得要把源码弄出来  不过还是要谢谢你了  

vectra

这个程序只支持文字对象 不支持表格实体 你可以把表格炸开后再运行试试

对于表格对象，你可以右键，“输出”直接生成csv文件。

新鲜8

把表格炸开再选就可以了