VB中利用MapX自动绘制图层

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

raindrop110

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

阅读量1.8k

点赞数

分类专栏： VB6.0与MapInfo、MapX 文章标签： vb function integer string

本文链接：https://blog.youkuaiyun.com/raindrop110/article/details/984710

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'-----------------------------------------------------------------------------------------------------
'
'             地图自动绘制处理过程
'
'             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 MapXLib.Point
    Dim ftrNew              As MapXLib.Feature
    Dim ff

最低0.47元/天解锁文章