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 = n