本帖最后由 yjr111 于 2012-7-26 17:26 编辑

前几天一直有朋友在讨论cad表格导出的问题，自己也有兴趣试一试，数据是基本正确输出了，无奈水平有限，输出到excel合并不知怎么操作，有待下一步学习后完善。。。先发个fas请大家伙测试一下看看相关帖子http://bbs.mjtd.com/thread-93470-1-1.html

**2012-5-12**********************************************
1、修正了一个BUG
2、改进了输出方法（终于成功使用明总N年前就提供的函数）
3、表格输出后自动调整宽度。。。
一楼更新，请大伙继续测试！
*****************2012-5-14***********
这段时间工作较忙，合并问题一时也还不能解决，先奉上这一阶段的源码，请大伙拍砖！
;|思路：
1、取得表格范围直线，判断横表格线还是竖表格线

2、根据取得的表格线点表情况进行消除重复的表格线 即同一行多根或同一列多根表格线只计算一次，取得行数和列数

3、根据消重后的行列取得虚拟的每个单元格四个点，若 (not(ssget "wp" x '((0 . "*TEXT")))),则进行 (ssget "cp" x '((0 . "*TEXT"))),若再无，则为空字符串

4、若一个单元格有多个字符串，合并取得的每个单元格字符串

5、输出EXCEL



********************2012-7-26更新**************************










网友答: 研究了一下，增加了内外框线
测试通过，免币下载，但是下完之后请为楼主加分，不然一律作扣分处理



网友答: 这贴特火。。。这是我论坛全搜索过最好的表格转EXL。。。没见过更好滴呢
再顶上哈

网友答: 优化了一下  能读取pline线的表格了.
增加了同一格子内多段文字的排序 读取表格更准确
觉得好的 记得评分给明经币

网友答: 本帖最后由 flytoday 于 2012-5-10 17:39 编辑

严哥很给力。。

网友答:

严哥好象这张表格。。有的会两行并到一行中去了哦。。。。

网友答: 顶支持原代码

网友答: 本帖最后由 CTC 于 2012-5-10 18:20 编辑

命令:
CADTOEXCEL
请框选要导出EXCEL的表格
请框选要导出EXCEL的表格; 错误: 参数类型错误: lselsetp nil

对于表格是一个块的不行,好像要炸开才导出数据.
http://bbs.mjtd.com/thread-93429-1-1.html    7楼的表格好像就不行了.


网友答:
已经修复此问题，一楼已更新

网友答: 这个牛，flytoday的表格不是一般复杂啊。   希望能有幸学习楼主的源码。

网友答: 不错啊，以前见过C++的类似程序。。。

网友答: 好象没提取到数据

网友答: （cad2004）
命令: cadtoexcel

请框选要导出EXCEL的表格
请框选要导出EXCEL的表格参数类型错误: VLA-OBJECT nil

而且在命令的提示：（请框选要导出的EX的表格）为乱码。但是回头看文本窗口又是正确的。