创建新图层并显示指定位置小车.txt

mapxtrexe查看地图,查询图层,按名查找等

imports MapInfo
Imports MapInfo.WebControls
Imports MapInfo.Mapping
Imports MapInfo.Engine
Imports MapInfo.Geometry
Imports MapInfo.data
Imports MapInfo.Data.Find
Imports MapInfo.Persistence
Imports MapInfo.Styles
Imports MapInfo.Windows
Imports MapInfo.Tools





Dim map As Map = MapInfo.Engine.Session.Current.MapFactory(MapControl1.MapAlias)
        Dim table As Table = MapInfo.Engine.Session.Current.Catalog.GetTable("CarMoveLayer")
        Dim coordSys As CoordSys = map.GetDisplayCoordSys()
        Dim x As Double
        Dim y As Double
        x = 114.07
        y = 22.51

        If (table Is Nothing) Then
            Dim tableInfo As TableInfoMemTable = New TableInfoMemTable("CarMoveLayer")
            tableInfo.Temporary = True

            Dim column As Column = New GeometryColumn(coordSys)
            column.Alias = "MI_Geometry"
            column.DataType = MIDbType.FeatureGeometry
            tableInfo.Columns.Add(column)

            column = New Column
            column.Alias = "MI_Style"
            column.DataType = MIDbType.Style
            tableInfo.Columns.Add(column)

            table = MapInfo.Engine.Session.Current.Catalog.CreateTable(tableInfo)
        Else
            Dim miConn As New MIConnection
            Dim Cmd As MICommand = miConn.CreateCommand
            Cmd.CommandText = "delete from CarMoveLayer"
            miConn.Open()
            Cmd.ExecuteNonQuery()
            miConn.Close()
            Cmd.Dispose()
        End If

        '创建点及样式
        Dim geometry As FeatureGeometry = New MapInfo.Geometry.Point(coordSys, x, y)
        Dim vStyle As SimpleVectorPointStyle = New SimpleVectorPointStyle(40, System.Drawing.Color.Green, 14)
        Dim cStyle As CompositeStyle = New MapInfo.Styles.CompositeStyle(vStyle)

        Dim miConnection As New MIConnection
        Dim miCmd As MICommand = miConnection.CreateCommand
        miCmd.Parameters.Add("geometry", MIDbType.FeatureGeometry)
        miCmd.Parameters.Add("style", MIDbType.Style)
        miCmd.CommandText = "Insert into CarMoveLayer(MI_Geometry,MI_Style) values(geometry,style)"

        miConnection.Open()
        miCmd.Parameters(0).Value = geometry
        miCmd.Parameters(1).Value = cStyle
        miCmd.ExecuteNonQuery()
        miCmd.Dispose()

        '创建图层并将其插入到当前地图最上层
        Dim fl As FeatureLayer = New FeatureLayer(table)
        map.Layers.Add(fl)
        map.Center = New MapInfo.Geometry.DPoint(x, y)