MapXtreme开发经验分享——添加自定义工具

MapXtreme的自带帮助的查找功能不好,不支持中文,网上的例子也比较少。把自己解决的几个问题拿出来与大家共享,希望有帮助!

开发环境:VB.NET 2008 + MapXtreme2008

1、添加自定义工具

没有使用mapxteme 提供的ToolBar控件,自己定制可交互的工具添加到自己的写的框架上,例子为管线剖面图工具,需要先在地图上绘制一条线,然后通过计算和这条线相交的所有管线的剖面信息,将剖面图绘制到弹出的对话框上。

1)    声明工具

    Private m_SectionTool As MapInfo.Tools.MapTool

2)   添加工具

      
        Dim insertionLayerFilter As IMapLayerFilter = MapLayerFilterFactory.FilterByLayerType(LayerType.Normal)

        ' Set the default style for the new objects (red fill with blue border).
        Dim style As MapInfo.Styles.CompositeStyle = New MapInfo.Styles.CompositeStyle()
        Dim addMapToolProperties As MapInfo.Tools.AddMapToolProperties = New MapInfo.Tools.AddMapToolProperties( _
                                MapLayerFilterFactory.FilterForTools(MapControl1.Map, insertionLayerFilter, _
                                MapLayerFilterFactory.FilterVisibleLayers(True), _
                                 "CustomPolygonAddMapToolProperties", Nothing), style)

        ' Create an Add polygon tool with non-default properties.
        m_SectionTool = New MapInfo.Tools.CustomLineMapTool(True, True, True, _
        MapControl1.Viewer, MapControl1.Handle.ToInt32(), MapControl1.Tools, _
        MapControl1.Tools.MouseToolProperties, MapControl1.Tools.MapToolProperties)

        ' Add it to the MapTools collection.
        MapControl1.Tools.Add("SectionTool", m_SectionTool)

3) 注册工具事件

    Public Sub New()

    
        AddHandler MapControl1.Tools.Used, AddressOf ToolUsed '工具事件

    End Sub

4)响应工具消息

   Public Sub ToolUsed(ByVal sender As Object, ByVal e As MapInfo.Tools.ToolUsedEventArgs)

 

        Select Case e.ToolName
            Case "SectionTool"  '断面工具

        End Select


    End Sub

5)发现一个例外:自定义工具使用 AddPointMapTool 不能触发used事件。

解决方法:可以使用CustomPointMapTool 代替,AddPolylineMapTool也同理。

你可能感兴趣的:(map)