才学的MAPBASIC 为了能赚钱浏览帖子 这我就 献丑了
Include "mapbasic.def"
Declare Sub Main
Declare Sub ToolHandler
Sub Main
Note"请选择Mapinfo中的某一工具，然后在地图中单击"
+"便可以在消息框中显示该处的坐标位置"
End Sub
Sub ToolHandler
onError Goto ERROR_TRAP
If WindowInfo(FrontWindow(),WIN_INFO_TYPE)=WIN_MAPPER Then
Print "x:"+str$(CommandInfo(CMD_INFO_X))
Print "Y:"+str$(CommandInfo(CMD_INFO_Y))
End If
DONE:
Exit Sub
ERROR_TRAP:
Note Error$()
Resume DONE
End Sub