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

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

右上角的撤销键,撤销即可。

其他使用方法:

工具/原料

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

注意事项

打开捕捉功能很关键

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

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中


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/8139582.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-13
下一篇 2023-04-13

发表评论

登录后才能评论

评论列表(0条)

保存