求助:VBA 百度坐标转换WGS84坐标 代码

这里的是没有给定参数所以没有用七参法,先将投影坐标系转了地理坐标系,然后做了横纵和比例纠偏

// 由高斯投影坐标反算成经纬度

横向有20m左右偏差,纵向有3m左右偏差。因为cad没有旋转,所以没有做旋转的纠偏。

这里的代码仅作参考,有更好建议可以提出来大家一起研究

}

“如何将平面控制点导入Google Earth、奥维互动地图及手机奥维互动地图APP里面

本程序可以将WGS84坐标系(经纬度)控制点坐标生成Google Earth、奥维等地图KML文件,提供选择多种地标样式,上次发表过文章:“如何将平面控制点导入Google Earth、奥维互动地图及手机奥维互动地图APP里面?”附件中的程序提供了少许的地标样式,本次添加了备注说明。

  本程序采用Excel VBA编写部分代码来自网络的“经纬度生成KML文件”,当您使用本程序时需要启用Office Excel VBA“宏”常称为安全级别设置,需将安全级别设置为“中或低”高版本则是启用宏之后才可进行下一步操作!如果您已启用“宏”请进入KML表格中进行相关操作!

  提示:经纬度格式为(度)而不是d.ms格式,点名(Name)、经度(Longitude)、纬度(Latitude)必须填写完整,其中点名不能重复,经度不能大于180°,纬地不能大于90°。

  注意:点名(Name)和备注不能为中文字符,因为生成的KML文件存储格式默认编码为ANSI格式不属于UTF-8编码格式,若需要输入中文字符需要将生成完毕的KML文件转为UTF-8编码格式,不然文件会出现乱码Google Earth不能正常读取。

  KML文件转为UTF-8编码格式的方法:

  Office Excel设置安全级别方法如下:

提供选择多种地标样式,在底色部分点击按钮选择地标样式

如果坐标系为其他椭球,需要将坐标系转换为WGS84坐标系的经纬度(度)格式,转换的经纬度若是度分秒格式可以使用程序中的“角度转换”进行格式转换。

在KML表格中“点击生成”按钮可以导出地标点,导出成功提示

点击地标点显示的备注说明,生成地标点时在KML表格中的备注栏可以填写XYZ或者其他说明,如果备注中含有中文字符需要转换为UTF-8编码格式(详见说明)。

在手机奥维互动地图中显示的备注

在奥维互动地图中显示的地标点

}

我要回帖

更多关于 wgs84坐标转换经纬度工具 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信