mapinfo中如何导出线段起点和终点的经纬度以及长度到文件中需要同时导出起点和终点的经纬度!

答案:2 悬赏:20 手机版

解决时间 2021-02-24 04:53

提问者网友：人傍凄凉立暮秋
2021-02-23 07:32

最佳答案

五星知识达人网友：等灯
2021-02-23 08:05

Include MAPBASIC.DEFopen window messageDim sAppPath as StringDim i,counter As IntegerDim oLine as ObjectDim geo_length As FloatDim x1,y1,x2,y2 As FloatsAppPath=ApplicationDirectory$()Open Table sAppPath+Untitled.tab as tab0''''请将文件名修改为你自己的文件名open file sAppPath+1.txt for output as #1 'i = 0Fetch First From tab0Do While Not EOT(tab0)oLine=ConvertToPline(tab0.obj)counter = ObjectInfo(oLine,OBJ_INFO_NPNTS)print counter:+countergeo_length = ObjectLen(oLine,km)'''''得到线段长度,单位为km,也可以修改为mx1 = 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 + 1Fetch Next From tab0 loopclose all请将上面的代码拷贝存为.mb文件后保存在你的.tab文件所在目录,修改一下代码中的文件名,运行后,结果就在同目录下的1.txt中

全部回答

1楼网友：走死在岁月里
2021-02-23 09:04

收益了

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！