如何在mapinfo中绘制两点连线？

我前两天写的程序，
不知道你有没有mapbasic.
还有你的文件结构是怎么样的，需要你详细说明一下。

源代码如下，自己参考一下。

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

sub main
call drawnetwork
end sub

sub drawnetwork
dim i_id, i_start,i_end as integer
dim f_sx, f_sy, f_ex, f_ey as float

fetch first from netexcel
do until eot(netexcel)
i_id = netexcel.id
i_start = netexcel.node1
i_end = netexcel.node2

select * from node where id = i_start into temp1
f_sx = centroidx(temp1.obj)
f_sy = centroidy(temp1.obj)
select * from node where id = i_end into temp2
f_ex = centroidx(temp2.obj)
f_ey = centroidy(temp2.obj)
insert into link (obj,id,node1,node2)
values (Createline(f_sx, f_sy,f_ex, f_ey),i_id,i_start,i_end)

fetch next from netexcel
loop
end sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yx77yf37.html