MapBasic中多边形融合的问题。

Include"MapBasic.def"

declare sub main
declare sub merge

sub main
alter menu bar add "我的工具"
alter menu "我的工具" add "(-"
   , "多边形" calling merge
end sub

sub merge
dim polygona,polygonb as object
Fetch first from selection
select obj from selection where rowid=1
polygona=selection.obj
select obj from selection where rowid=2
polygonb=selection.obj
Combine(polygona,polugonb)
end sub

补充：企业软件 ,  地理信息系统