[发明专利]一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法

说明书

本申请公开了一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法，用以解决CorelDraw地图中点状要素向GIS平台共享的难题，提高数据资源的利用率。包括：首先指定CorelDraw地图中需要转换的要素的符号图层、注记图层，以及控制点图层；使用CorelDraw VBA提供的对象模型接口，从地图成果的符号图层中获取专题点状要素的空间数据集，对应专题的注记图层获取属性数据集，从提前添加的控制点图层获取控制点信息；然后使用匹配算法为每个要素的几何数据与属性数据建立连接关系，并进行人工检核；最后使用仿射变换完成平面坐标到地理坐标的转换，得到真实可用的专题点状要素GIS成果，导入到SuperMap平台。本申请能够较为准确和快速地将CorelDraw地图中的点状要素转换到SuperMap平台进行展示分析等操作。

技术领域

本发明涉及地图制图与地理信息处理领域，具体涉及一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法。

背景技术

GIS平台是处理与空间地理分布相关的数据的一类软件，SuperMap是其中一款由北京超图软件股份有限公司开发的国产、主流的GIS软件。CorelDraw是一款通用的基于向量绘图软件,图形处理、排版等功能强大，常被用来做地图出版使用。如今的地图制图与出版领域，将GIS数据转换到CorelDraw进行辅助制图已是一套成熟的技术体系。

除了外部引入的GIS数据，在专题地图的制作中，绘图人员还常要在CorelDraw中手动标绘一些专题数据。因此，地图生产单位不得不维护两套基础地理信息数据。为了能够统一到GIS平台中管理，需要将这部分手动标绘的要素数据从CorelDraw地图中转换到GIS平台。

由于地图生产长期以来的客观需要，GIS到CorelDraw的数据转换已有许多成熟方式。而随着“数字城市”建设的普及，兴起的城市基础地理信息数据统一管理是近年涌现的新需求，CorelDraw地图数据到GIS平台的逆转换过程的研究还相对较少。

两类平台间的数据转换主要有三种方式：①采用软件平台自带的数据转换功能实现，如ArcGIS原生支持*.dwg格式数据的导入，或利用平台提供的选择性粘贴功能进行数据传递；②采用数据处理软件实现，如ArcGIS软件强大的工具箱能够支持不同数据格式间的相互转换，*.dwg数据即可借助ArcGIS转换到*.kml格式；③采用编程的方法实现，直接将待共享数据处理为目标平台支持的数据格，也可自定义中间格式，再解决转换双方对该格式的导入导出支持。

方法①②相对简单，理论上只需要中间处理软件或目标软件的功能支持，做一点导入导出的工作，但由于平台间对数据组织的差异，常会出现属性信息丢失、空间信息不一致等问题，转换后的数据不能满足使用，需要大量的人工再处理。方法③有一定的技术门槛，但其对数据的操作粒度更加精细，可以实现对数据的定制。

发明内容

本发明的目的在于克服CorelDraw地图成果中专题数据再利用的难题，提出一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法，实现CorelDraw成果中点状要素数据快速GIS化，以解决上述背景技术中提出的问题。

为实现上述目的，本发明提供如下技术方案：一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法，包括以下步骤：

S1：指定CorelDraw地图中需要转换的要素的符号图层、注记图层，以及控制点图层；

S2：使用CorelDraw VBA提供的对象模型接口，从地图成果的符号图层中获取专题点状要素的空间数据集，对应专题的注记图层获取属性数据集，从而获取注记形状的最小外接矩形坐标集，从提前添加的控制点图层获取控制点信息；其中，点状要素的空间数据集和注记形状的外接矩形坐标集用于步骤S3的匹配算法，控制点信息用于步骤S4中的坐标转换过程；