mapinfo中如何导出线段起点和终点的经纬度以及长度到文件中需要同时导出起点和终点的经纬度!
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/27 19:26:18
mapinfo中如何导出线段起点和终点的经纬度以及长度到文件中需要同时导出起点和终点的经纬度!
mapinfo中如何导出线段起点和终点的经纬度以及长度到文件中
需要同时导出起点和终点的经纬度!
mapinfo中如何导出线段起点和终点的经纬度以及长度到文件中需要同时导出起点和终点的经纬度!
Include "MAPBASIC.DEF"
open window message
Dim sAppPath as String
Dim i,counter As Integer
Dim oLine as Object
Dim geo_length As Float
Dim x1,y1,x2,y2 As Float
sAppPath=ApplicationDirectory$()
Open Table sAppPath+"Untitled.tab" as tab0''''请将文件名修改为你自己的文件名
open file sAppPath+"1.txt" for output as #1 '
i = 0
Fetch First From tab0
Do While Not EOT(tab0)
oLine=ConvertToPline(tab0.obj)
counter = ObjectInfo(oLine,OBJ_INFO_NPNTS)
print "counter:"+counter
geo_length = ObjectLen(oLine,"km")'''''得到线段长度,单位为km,也可以修改为m
x1 = ObjectNodeX(oLine,1,1) ' 获取起点经度
x2 = ObjectNodeX(oLine,1,counter) ' 获取终点经度
y1 = ObjectNodeY(oLine,1,1) ' 获取起点纬度
y2 = ObjectNodeY(oLine,1,counter) ' 获取终点经度
Print #1,geo_length+","+ x1+","+ y1+","+x2+","+ y2 ''''''写入文本1.txt中
i = i + 1
Fetch Next From tab0
loop
close all
请将上面的代码拷贝存为.mb文件后保存在你的.tab文件所在目录,修改一下代码中的文件名,运行后,结果就在同目录下的1.txt中