诺西NodeB设备在中国联通移动网中的维护操作手册

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