地图上多边形节点纬度提取与处理.pdfVIP

includemapbasic.def

dimobj1,objasobject

dimid,nb,i,pts,jasinteger

dimxy,x,y,macmdasstring

obj1=selection.obj

obj=selection.obj

id=frontwindow()

nb=objectinfo(obj1,OBJ_INFO_NPOLYGONS)‘总的多边形数目

fori=1tonb

pts=objectinfo(obj1,OBJ_INFO_NPOLYGONS+i)‘第i个多边形节点数

xy=

forj=1topts

x=objectnodex(obj1,i,j)

y=objectnodey(obj1,i,j)

xy=xy+(+x+,+y+)

next

printcreateplineintovariableobj+pts+xy

runcommandcreateplineintovariableobj+pts+xy

runcommandcreateplineintowindow+id++pts+xy

obj=selection.obj

pr