用VBA将Excel表格与CAD交互

18277132841 · 发表于 2022-2-22 17:27:00

工作之后才开始接触VBA，现在已经两年了，也没有怎么认真学过做了个CAD跟Excel表格转换的，但是水平有限，代码太乱了，
写完有时自己都不记得为什么这样写的，发出来希望有大神看看，
给点建议，也顺便看看能不能解决些遗留问题。代码基本都是抄抄改改的，
用了哪些大神的也不记得了，抱歉了，上传的是源码，还有使用的相关说明。

最新文件
导入表格过程

2vholuje3qx.gif

导出表格过程

okp1nunnv2c.gif

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

18277132841 · 发表于 2022-2-24 16:25:00

补一个CAD导出Excel的思路，目前单元格内的文字排序和上下标问题没处理好，由于上下标位置太复杂，CAD各种字体宽度又不是固定的，确实想不出什么好办法。
1、拾取由线（包括多段线和直线）和文字组成的表格对象，文字和线分开两个数组存放
2、遍历线数组，提取线的点XY坐标，坐标每两个点为一组，直线的话就是起终点，多段线的话就是1、2点一组、2、3点一组，……，n-1、n点一组。这一步主要是将多段线坐标转成直线。最终得到许多直线的XY坐标数组。
3、循环XY坐标数组，将坐标数组按竖线和横线分开，横线取Y坐标，竖线取X坐标，去掉重复数字，还可以根据文字高度和宽度，去掉一些可能在单元格中的短线，这样得到表格的行线的坐标数组和列线的坐标数组。
4、循环行线坐标数组
循环列线坐标数组
如果单元格的左边线和顶边线存在，则说明单元格存在（否则单元格被合并）
向下循环行线坐标数组直到找到下边线，确定本单元格合并的行数
向右循环列线坐标数组直到找到右边线，确定本单元格合并的列数
其中，判断单元格上下左右边线是否存在如下：
计算单元格的边线中心点坐标
顶、底边线则循环第2步整理的行线行线坐标数组，通过点是否在直线上判断是否存在
左、右变线则循环第2步整理的竖线行线坐标数组
5、到此，就可以得到一个表格框架，表格的行数，行高，列数，列高，行线Y坐标，竖线X坐标，每个单元格合并的单元格情况等。
6、循环每个单元格，根据单元格的上下左右坐标为控制
循环文字的中心坐标，在单元格范围的，就拾取
将所有在单元格内的文字整理排序，处理上下标等
7、到此，就可以得到完整的表格内容。
8、循环单元格，没有被合并的则将文字输出至Excel，处理合并的单元格