明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2278|回复: 9

[讨论]  CAD表格生成Excel表格问题

[复制链接]
发表于 2015-9-1 13:57 | 显示全部楼层 |阅读模式
5明经币
本帖最后由 笑看丿丶生 于 2015-9-1 14:02 编辑

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)
)



点评

CSV虽然是EXCEL支持的一个文件格式,但说到底它就相当于一个记事本文件,估计合并单元格什么的是做不到  发表于 2015-9-1 15:54
 楼主| 发表于 2015-9-1 14:06 | 显示全部楼层
坐沙发上等高手来解救
回复

使用道具 举报

发表于 2015-9-1 15:57 | 显示全部楼层
随便用几个文字测试了一下,好象只能输出文字内容(输出的文字内容比我所选的少了一个),没看到表头,最好你自己做一个文件,把它用EXCEL打开了发个图上来?
回复

使用道具 举报

 楼主| 发表于 2015-9-1 17:23 | 显示全部楼层
llsheng_73 发表于 2015-9-1 15:57
随便用几个文字测试了一下,好象只能输出文字内容(输出的文字内容比我所选的少了一个),没看到表头,最好 ...

CAD的表格是这样的

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

那么你希望EXCEL表格是什么样子,和cad的tabel表一个样子?如果是,用CSV真还做不到  发表于 2015-9-1 17:29
回复

使用道具 举报

发表于 2015-9-1 17:30 | 显示全部楼层
笑看丿丶生 发表于 2015-9-1 17:23
CAD的表格是这样的

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

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

使用道具 举报

 楼主| 发表于 2015-9-2 14:35 | 显示全部楼层
llsheng_73 发表于 2015-9-1 17:30
印象中论坛里边有CAD表格到XLS的,多找下。。。。

一直没找到  
回复

使用道具 举报

发表于 2015-9-3 21:11 | 显示全部楼层
本帖最后由 香田里浪人 于 2015-9-3 21:13 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2015-9-7 11:47 | 显示全部楼层
香田里浪人 发表于 2015-9-3 21:11
truetable11.0I(AutoCAD-Rel)破解版可以实现

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

使用道具 举报

发表于 2015-9-7 12:43 | 显示全部楼层
本帖最后由 vectra 于 2015-9-7 12:48 编辑

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

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

使用道具 举报

发表于 2017-10-6 17:11 | 显示全部楼层
把表格炸开再选就可以了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 08:15 , Processed in 0.426873 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表