文件名称：mapinfo一段程序代码
文件大小：2KB
文件格式：VBP
更新时间：2012-08-29 14:12:52
mapinfo
Dim pt As MapObjects2.Point Set pt = New MapObjects2.Point Dim x, y As Double pt.x = 108.894461 pt.y = 34.153736 mapDisp.FromMapPoint (pt, x, y) Dim pt1 As New Point Set pt1 = New Point pt1.x = x pt1.y = y mapDisp.TrackingLayer.AddEvent pt, 0 End Sub