MapInfo 导出数字化地图 再用这些数据重画地图 有些道路不能匹配 15
老师您好,我想请问一下,我从mapinfo里把一幅地图导出到文件,就是每条路的起终经纬度写到文件里,再用这个文件里的数据往回画地图,发现有很多小路不是匹配的,起点和终点的...
老师您好,我想请问一下,我从mapinfo里把一幅地图导出到文件,就是每条路的起终经纬度写到文件里,再用这个文件里的数据往回画地图,发现有很多小路不是匹配的,起点和终点的纬度值是不正确的,颠倒过来刚好,但主路什么的都是正常的,请问是怎么回事? 附部分代码如下:
Include "MAPBASIC.DEF"
Dim f_x1,f_y1,e_x1,e_y1,f_x,f_y,e_x,e_y As String
Dim i_numcols,I As Integer
Dim s_type,s_subtype,s_csubtype,s_name,s As String
Open Table "road"
Open File "C:\c.txt" For output As #1
i_numcols=TableInfo("road",TAB_INFO_NROWS)
For I=1 to i_numcols
Fetch Rec I From road
s_type=road.TYPE
s_subtype=road.SUBTYPE
s_csubtype=road.CSUBTYPE
s_name=road.Name
f_x1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEBEGX)),"##.#######")
f_x=f_x1+112
f_y1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEBEGY)),"##.#######")
f_y=f_y1+36
e_x1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEENDX)),"##.#######")
e_x=e_x1+112
e_y1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEENDY)),"##.#######")
e_y=e_y1+36
Write #1,s_type,s_subtype,s_csubtype,s_name,f_x,f_y,e_x,e_y
Next
Close File #1 展开
Include "MAPBASIC.DEF"
Dim f_x1,f_y1,e_x1,e_y1,f_x,f_y,e_x,e_y As String
Dim i_numcols,I As Integer
Dim s_type,s_subtype,s_csubtype,s_name,s As String
Open Table "road"
Open File "C:\c.txt" For output As #1
i_numcols=TableInfo("road",TAB_INFO_NROWS)
For I=1 to i_numcols
Fetch Rec I From road
s_type=road.TYPE
s_subtype=road.SUBTYPE
s_csubtype=road.CSUBTYPE
s_name=road.Name
f_x1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEBEGX)),"##.#######")
f_x=f_x1+112
f_y1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEBEGY)),"##.#######")
f_y=f_y1+36
e_x1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEENDX)),"##.#######")
e_x=e_x1+112
e_y1=Format$((ObjectGeography(road.obj,OBJ_GEO_LINEENDY)),"##.#######")
e_y=e_y1+36
Write #1,s_type,s_subtype,s_csubtype,s_name,f_x,f_y,e_x,e_y
Next
Close File #1 展开
1个回答
展开全部
你的起点和终点搞反了吧
追问
不是搞反了,起点终点的经度是正确的,纬度有的正确有的错误。
来自:求助得到的回答
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
景联文科技
2024-06-11 广告
2024-06-11 广告
景联文科技是一家专业AI数据标注公司。目前在全国范围拥有四个大型数据处理基地,智能标注平台涵盖标注工作台和产能管理体系,提供完整的语音、图像、文本、视频的全领域数据处理能力,通过ISO9001、ISO27001、ISO27701等国际认证,...
点击进入详情页
本回答由景联文科技提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询