Question

MAPINFO批量统计各各区域里面的点的数量或者线的长度

MAPINFO批量统计各各区域里面的点的数量或者线的长度即一个图层是一个个区域，一个图层是一个个点，我想批量统计每个区域内各有多少个点如果答案可以直接发我QQ邮箱，241082673@qq.com，谢谢。
就是要将里面的数据导出来，每个点对应的区域名称和每个区域对应的点数量。

有知道的达人吗？

Answer 1

样例数据已经发到你邮箱

Include "MAPBASIC.DEF"
open window message
Dim sAppPath,AreaName as String
Dim poiNum,LineNum As Integer
Dim myobj as Object
sAppPath=ApplicationDirectory$()

Open Table sAppPath+"Area.tab" as tab0''''请将文件名修改为你自己的区域文件名
Open Table sAppPath+"poi.tab" as tabP''''请将文件名修改为你自己的点文件名

open file sAppPath+"PNum.txt" for output as #1

Fetch First From tab0
Do While Not EOT(tab0)
myobj=tab0.obj
AreaName=tab0.Name'''tab0.Name需要改成实际区域表中的字段的名字
select * from tabP where obj within myobj into temp
poiNum=tableinfo(temp,TAB_INFO_NROWS)
print #1,AreaName+":"+poiNum

Fetch Next From tab0
loop
close file #1
close all
note"OK"

追问

谢谢你的回答，但是英文看不懂，不好意思

追答

我已经把代码和样例数据发送到你的邮箱了。
你需要安装一个mapbasic软件，然后打开.mb文件，运行就可以了呀