第1个回答 2012-03-24
include "mapbasic.def" declare sub main declare sub drawpoint sub main call drawpoint end sub sub drawpoint dim x as float dim y as float dim i as integer i = 1 fetch first from asdf do until eot(asdf) x = asdf.a y = asdf.b note x update asdf set obj = CreatePoint(x, y) where rowid = i i = i + 1 fetch next from asdf loop end sub 这个程序可以画点,自己参考下。.