Question

MAPINFO中如何将两个图层重叠部分导出？

咨询一下，我有两个图层： 20140408..这个图层是有编号的饼状图层；zibo这个图层是400m×400m的带有ZB*****编号的网格图层。请问如何将饼状覆盖的网格图层的信息导出来？ 如下图，比方说51831这个图形覆盖了zibo图层的ZB33661\ZB33662等小网格，如何将zibo图层的ZB33661\ZB33662这个小网格后面添加上51831的这一新列？

Answer 1

include "mapbasic.def"
open window message
Dim sAppPath,zb as String
Dim myobj as object
Dim No as string
dim rowno as integer

sAppPath = ApplicationDirectory$()

''''''只考虑bin.tab里的图形相互不重叠的情况

open table sAppPath+"zibo.tab" as tabzibo
open table sAppPath+"bin.tab" as tabbin'''''''需修改成你自己的饼图的名称
Alter Table tabzibo ( add binNo char(8)) Interactive ''''''这一行如果你第一次运行时需要
''''''第二次运行的时候可以注释或删掉，另外也可以不处理而删zibo表中添加的字段
fetch first from tabbin
do while not eot(tabbin)
myobj=tabbin.obj
rowno=tabbin.rowid
No=tabbin.bianhao''''''''''饼图中的编号字段，需修改
select * from tabzibo where obj within myobj into temp
update temp set binNo=No

fetch next from tabbin
loop
commit table tabzibo

close all
print "OK-------"

上面的代码，边缘的这些格子（一个格子只有一部分和饼重叠）也会考虑进去；如果饼图表中有多个块，且相互有重叠的部分的话，这个代码可能行不通，需要另外考虑，主要看数据的情况进行修改

Answer 2

解决方法如下：
1、两个图层导进mapinfo，表头table按钮-->append rows to table-->append table（选择要添加的图层）-->to table（合并到哪个图层）-->点击OK。
中文版：两个图层导进mapinfo后，表头“图层”按钮-->添加图层-->选择要添加的图层-->添加到某个图层-->确定。
2、把信息表图层添加到边界图层，或者边界图层添加到信息表图层，都可，最后注意命名。
MapInfo是美国MapInfo公司的桌面地理信息系统软件，是一种数据可视化、信息地图化的桌面解决方案。它依据地图及其应用的概念、采用办公自动化的操作、集成多种数据库数据、融合计算机地图方法、使用地理数据库技术、加入了地理信息系统分析功能，形成了极具实用价值的、可以为各行各业所用的大众化小型软件系统。MapInfo 含义是“Mapping + Information（地图+信息）”即：地图对象+属性数据。