代码名称:鼠标单击地图定位

作者/收集者:mio03

开发环境:MapBasic

代码:

include "mapbasic.def"
dim x,y as float
if windowinfo(FrontWindow(),win_info_type)=win_mapper then
x=commandinfo(1)
y=commandinfo(2)
note "x:" +str$(x)+",y:"+str$(y)
set map center (x,y)
End If