日期:2014-05-18 浏览次数:21123 次
Dim pt As New MapObjects2.Point Dim pts As New MapObjects2.Points Dim ln As New MapObjects2.Line pt.X = 0.2 pt.Y = 0.7 pts.Add pt pt.X = 0.6 pt.Y = 0.5 pts.Add pt ln.Parts.Add pts Map1.TrackingLayer.AddEvent ln, 0