Question

打开mapinfo时不算询问那个窗口连着弹出4个窗口。说在工具里找不到mapbasic程序。

Answer 1

5米以内的里程？
-----------------------------------------------------------
细致一点，你这个里程，至少要有个起终点吧。
还有，计算里程一般是按照道路中线计算，你是把外扩出来5米的线当作道路中线么？还是区域轮廓跟这外扩线中间的线作为道路中线？
或许仅仅是城市道路，你认为这个误差不大？
-----------------------------------------------------------
还有，如果只需要计算一个轮廓长度，是非常容易的。等待你进一步补充。
写了一部分代码，关键是不能很明白你具体要做什么。
——————————————————————————--------
quyu是区域的图层，road是路网的图层，需要保证路网都是线。看看吧
------------------------------------------------------------
缓冲语句已经更新。
说点题外的，希望以后你自己多写些程序，多去看软件帮助，水平自然会提高，不要什么东西解决不了自己练琢磨都没琢磨都来网上提问，自己努力学到的跟从别人那里得到的东西，完全不一样。
------------------------------------------------------------

include "mapbasic.def"
declare sub main
declare sub calculate

global n as integer

sub main
commit table quyu
Pack Table quyu Data
add map layer quyu
n = tableinfo("quyu", TAB_INFO_NROWS)
call calculate

end sub
sub calculate
dim o_quyu, o_temp, o_buffer, o_overlap as object
dim f_roadlen, f_sumlen, f_totallen(2) as float
dim s_name(2) as string
dim i as integer
redim f_totallen(n)
redim s_name(n)

Create Table Results
(id integer,
country Char(30),
totallenth float)

fetch first from quyu
i = 1
do until eot(quyu)
f_totallen(i) = 0
s_name(i) = quyu.country
o_quyu = quyu.obj
o_buffer = buffer(o_quyu, 20, 5, "m")
f_sumlen = 0
select * from road where obj intersects o_buffer into temp
fetch first from temp
do until eot(temp)
o_temp = temp.obj
o_overlap = overlap(o_buffer, o_temp)
f_roadlen = objectlen(o_overlap, "m")
f_sumlen = f_sumlen + f_roadlen
fetch next from temp
loop
f_totallen(i) = f_sumlen
Insert Into results (id, country, totallenth)
Values (i, s_name(i), f_totallen(i))
i = i + 1
fetch next from quyu
loop

commit table results
Browse * From results
end sub

Answer 2

1.普通情况下不会这样。
2.出现这样的情况，是否有下面类似的情况：
>.用户自定义了某些加载项，比如Mapbasic程序，而根据设定的路径，这些加载项文件不能找到，或已被删除、毁坏。
>.MapInfo系统的相关.del文件被删除或毁坏。