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