MapInfo中,画线时点错了,怎么退到上一步?

其他使用方法：

工具/原料

mapinfo软件

excel

方法/步骤

首先将多点输入到mapinfo软件中，这一步主要在Microsoft office中的excel软件中完成。新建一个名为“地点”的excel表格，假设输入表中5个点，其中每个地点的坐标用x，y表示。

mapinfo中如何把多点用线连接起来

新建一个mapinfo文档，首先打开新建的excel文件，步骤为“文件”--“打开”，找到名为地点的excel文件。打开excel，d出对话框中，“Named Range”选择other，将A1改成A2，因为表格中第一行为栏目，正真的点是从第二行开始。完成以后，在放excel表格的位置，会出现的一个新生成的mapinfo文件，名字与excel文件名字相同。

mapinfo中如何把多点用线连接起来

mapinfo中如何把多点用线连接起来

mapinfo中如何把多点用线连接起来

点击“表格”--“创建点”，Create point for tab中选择 地点，可以任意修改symbol，确定即可。

mapinfo中如何把多点用线连接起来

mapinfo中如何把多点用线连接起来

完成多点创建以后，打开文件，右键打开层位控制，将图层设置于编辑状态，这样就能编辑线了，此时注意，按键盘上s键，将捕捉功能打开，可以看到鼠标有一个小小圈，打开折线编辑模式，在图上按顺序点击点，就能将多点连城线了。

mapinfo中如何把多点用线连接起来

mapinfo中如何把多点用线连接起来

END

注意事项

打开捕捉功能很关键

本功能为初级方法，更多方法可继续探索

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中