VB中利用MapX自动绘制图层

最新推荐文章于 2017-09-27 10:33:22 发布

原创

最新推荐文章于 2017-09-27 10:33:22 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #integer #string

该函数TransMapAuto在VB中实现MapX库的自动绘制地图层功能。通过删除临时地图文件并重新创建，根据Tb_GPSList表中的数据，以CarID排序，将车辆位置（CarX, CarY）添加到地图层，并使用自定义样式显示。" 104722026,9061426,Win10环境下Anaconda安装PyTorch1.4.0+CPU详细教程,"['python', 'anaconda', 'pytorch']

'-----------------------------------------------------------------------------------------------------
'
'             地图自动绘制处理过程
'
'             WYY     2006年4月
'
'-----------------------------------------------------------------------------------------------------
'参数说明:
'         strMapInfo --临时地图文件所在路径
'         isMap-------临时图层是否已经生成，True 生成、False 尚未生成
Public Function TransMapAuto(strMapInfo As String) As Boolean

Dim rstemp As New ADODB.Recordset

    Dim DBData             As DAO.database
    Dim rsMap              As DAO.Recordset
    Dim strsql             As String

Dim iIndex As Integer

    Dim Flds                As New MapXLib.Fields
    Dim lyrNew              As MapXLib.Layer
    Dim ptNew               As New MapX