[发明专利]一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法在审
申请号: | 202011431607.7 | 申请日: | 2020-12-07 |
公开(公告)号: | CN112487124A | 公开(公告)日: | 2021-03-12 |
发明(设计)人: | 杜清运;赵玉春;任福;程思聪 | 申请(专利权)人: | 武汉大学 |
主分类号: | G06F16/29 | 分类号: | G06F16/29;G06F16/25 |
代理公司: | 武汉科皓知识产权代理事务所(特殊普通合伙) 42222 | 代理人: | 王琪 |
地址: | 430072 湖*** | 国省代码: | 湖北;42 |
权利要求书: | 查看更多 | 说明书: | 查看更多 |
摘要: | |||
搜索关键词: | 一种 使用 vba coreldraw 地图 中点 要素 转换 supermap 方法 | ||
1.一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法,其特征在于,包括以下几个步骤:
S1:指定CorelDraw地图中需要转换的要素的符号图层、注记图层,以及控制点图层;
S2:使用CorelDraw VBA提供的对象模型接口,从地图成果的符号图层中获取专题点状要素的空间数据集,对应专题的注记图层获取属性数据集,从而获取注记形状的最小外接矩形坐标集,从提前添加的控制点图层获取控制点信息;其中,点状要素的空间数据集和注记形状的外接矩形坐标集用于步骤S3的匹配算法,控制点信息用于步骤S4中的坐标转换过程;
S3:使用匹配算法为每个点状要素的几何数据与属性数据建立连接关系,即建立实体的空间数据与属性数据的匹配关系,并对匹配结果进行人工检核;
S4:使用坐标转换中的仿射变换方法完成平面坐标到地理坐标的转换,得到真实可用的专题点状要素GIS成果,导入到SuperMap平台。
2.如权利要求1所述的一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法,其特征在于:所述步骤S1中,在指定图层前,需要对CorelDraw地图进行规范处理,为每个要素的符号形状建立群组,以免对同一要素重复提取,符号个数与对应的注记个数保持一致,添加具有已知地理坐标的控制点图层。
3.如权利要求1所述的一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法,其特征在于:步骤S3中建立点状要素的几何数据与属性数据的连接问题即转变为寻找距离符号最近的注记,亦抽象为计算点状要素符号的中心点到注记的最小外接矩形面的最短距离;
其中点到面的最短距离是点到组成面的所有边线的最短距离,而计算点到线的最短距离,则是用线段两端的垂线将点线所在平面分为三部分,当点落入相应区域时,则代入对应的距离公式,最终简化到计算点与点的距离比较;
当要素的坐标点P(x’,y’)落在注记的外接矩形面ABCD内部或边界上时,最短距离为0,即认为该注记与符号完全匹配;落在矩形的长宽延长区域,只需要对相应轴向的坐标进行减法运算;落在角点的延伸区域时,计算点P到对应角点的空间距离即为最短距离;
循环计算空间数据集中每个空间点位与注记集中所有外接矩形面的距离,计算出离该点最近的面,即认为该点要素的符号与该面代表的注记属性匹配。
4.如权利要求1所述的一种使用VBA将CorelDraw地图中点状要素转换到SuperMap的方法,其特征在于:所述步骤S4中,仿射变换的变换公式为:
其中,a1、a2、a3、b1、b2、b3为变换系数,x、y为变换前坐标,x′、y′为坐标理论值;
在数据提取时已经为每类要素的空间数据集统一添加了四个控制点,坐标转换的思路是首先将四个控制点的坐标及理论值分别代入变换公式,计算出变换系数;之后遍历空间数据集,将每个要素的相对坐标代入公式进行变换,得到真实地理坐标。
该专利技术资料仅供研究查看技术是否侵权等信息,商用须获得专利权人授权。该专利全部权利属于武汉大学,未经武汉大学许可,擅自商用是侵权行为。如果您想购买此专利、获得商业授权和技术合作,请联系【客服】
本文链接:http://www.vipzhuanli.com/pat/books/202011431607.7/1.html,转载请声明来源钻瓜专利网。