将度-分-秒值转换为十进制度
分享
在ArcMap中,在表中新建一个字段,用于存储新的十进制度值,使用字段计算器和 VB 脚本实现。
如下示例,其中,假设 Latitude 是表中存储 DMS 纬度值字段的名称,经纬度数据中的度分秒三个数据是以空格分隔。
Dim Degrees
Dim Minutes
Dim Seconds
Dim DMS
Dim DD
DMS = Split([Latitude])
Degrees = CDbl(DMS(0))
Minutes = CDbl(DMS(1))
Seconds = CDbl(DMS(2))
If Degrees < 0 Then
DD = -(Seconds/3600) - (Minutes/60) + Degrees
Else
DD = (Seconds/3600) + (Minutes/60) + Degrees
End If
PS:使用到的VBScript 函数:
(1)Split:
Split(expression[,delimiter[,count[,compare]]])
(2)CDbl:
CDbl 函数可把表达式转换为双精度(Double)类型。
结果示例:
文章来源:http://kikitamap.com/2013/07/22/ConvertDMS/
如下示例,其中,假设 Latitude 是表中存储 DMS 纬度值字段的名称,经纬度数据中的度分秒三个数据是以空格分隔。
Dim Degrees
Dim Minutes
Dim Seconds
Dim DMS
Dim DD
DMS = Split([Latitude])
Degrees = CDbl(DMS(0))
Minutes = CDbl(DMS(1))
Seconds = CDbl(DMS(2))
If Degrees < 0 Then
DD = -(Seconds/3600) - (Minutes/60) + Degrees
Else
DD = (Seconds/3600) + (Minutes/60) + Degrees
End If
PS:使用到的VBScript 函数:
(1)Split:
Split(expression[,delimiter[,count[,compare]]])
(2)CDbl:
CDbl 函数可把表达式转换为双精度(Double)类型。
结果示例:
文章来源:http://kikitamap.com/2013/07/22/ConvertDMS/
0 个评论
推荐内容
相关问题
- 用ArcMap输入7参数,从wgs84坐标系转西安80坐标系,转后误差较大,4米左右,请问这是正常的吗?如何能提高转换精度?
- 基于ArcGIS的CAD数据向GIS数据转换方法
- 相同投影带有/无带号的栅格转换,“平移”与“重投影”是不是等效的?
- arcmap中.shp文件如何转换为geojson文件
- 栅格数据集怎样转换为图层啊(通过modelbuilder)??
- 投影坐标系转换:Beijing_1954_GK_Zone_19N转换至GCS_China_Geodetic_Coordinate_System_2000
- Arcgis拥有七参数,如何精确进行大地与西安坐标转换?
- Krasovsky_1940_Albers与WGS984转换出现参数选择时的问题
- ArcMap里注记坐标系如何转换
- arcgis API for JS 4.4里怎么将web 墨卡托的xy坐标值转换为经纬度呢??
- 如何用api将栅格数据转换为带坐标系的图片