作者：lipengonly
发表时间：2008-3-31 11:25:11

Private Sub Map1_ToolUsed(ByVal ToolNum As Integer, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Distance As Double, ByVal Shift As Boolean, ByVal Ctrl As Boolean, EnableDefault As Boolean)
If ToolNum = 500 Then
Dim ptline1 As New MapXLib.Point
Dim ptline2 As New MapXLib.Point
Dim ptline3 As New MapXLib.Point
Dim ptline4 As New MapXLib.Point
Dim ptline5 As New MapXLib.Point
Dim ptline6 As New MapXLib.Point
Dim ptline7 As New MapXLib.Point

Dim ftrline1 As Feature
Dim ftrline2 As Feature
Dim ftrline3 As Feature
Dim ftrline4 As Feature
Dim ftrline5 As Feature
Dim ftrline6 As Feature
Dim ftrline7 As Feature
Dim ftrline8 As Feature
Dim ftrline9 As Feature
Dim ftrline10 As Feature
Dim ftrline11 As Feature
ptline1.Set X1, Y1
ptline2.Set X1 + 0.0005, Y1
ptline3.Set X1, Y1 + 0.00005
ptline4.Set X1 + 0.00005, Y1 + 0.00005
ptline5.Set X1 + 0.000025, Y1
ptline6.Set X1, Y1 + 0.00000001
ptline7.Set X1 + 0.00000001, Y1 + 0.00000001
Dim ptsline1 As MapXLib.Points
Dim ptsline2 As MapXLib.Points
Dim ptsline3 As MapXLib.Points
Dim ptsline4 As MapXLib.Points
Dim ptsline5 As MapXLib.Points
Dim ptsline6 As MapXLib.Points
ptsline1.Add ptline1
ptsline1.Add ptline2
ptsline2.Add ptline2
ptsline2.Add ptline4
ptsline4.Add ptline4
ptsline4.Add ptline3
ptsline3.Add ptline3
ptsline3.Add ptline1
ptsline6.Add ptline6
ptsline6.Add ptline5
ptsline5.Add ptline5
ptsline5.Add ptline7
Set ftrline1 = Map1.FeatureFactory.creatline(ptsline1)
Set ftrline2 = Map1.FeatureFactory.creatline(ptsline2)
Set ftrline3 = Map1.FeatureFactory.creatline(ptsline4)
Set ftrline4 = Map1.FeatureFactory.creatline(ptsline3)
Set ftrline5 = Map1.FeatureFactory.creatline(ptsline6)
Set ftrline6 = Map1.FeatureFactory.creatline(ptsline5)
Set ftrline7 = Map1.FeatureFactory.creatline(ftrline1, ftrline2)
ftrline7.Style.LineWidth = 2
ftrline7.Style.LineColor = RGB(0, 0, 255)
Set ftrline8 = Map1.FeatureFactory.creatline(ftrline7, ftrline3)
ftrline8.Style.LineWidth = 2
ftrline8.Style.LineColor = RGB(0, 0, 255)
Set ftrline9 = Map1.FeatureFactory.creatline(ftrline8, ftrline4)
ftrline9.Style.LineWidth = 2
ftrline9.Style.LineColor = RGB(0, 0, 255)
Set ftrline10 = Map1.FeatureFactory.creatline(ftrline9, ftrline5)
ftrline10.Style.LineWidth = 2
ftrline10.Style.LineColor = RGB(0, 0, 255)
Set ftrline11 = Map1.FeatureFactory.creatline(ftrline10, ftrline6)
ftrline11.Style.LineWidth = 2
ftrline11.Style.LineColor = RGB(0, 0, 255)
Map1.Layers.Item("变电站表").AddFeature ftrline11
End If
End Sub