VB中利用MapX自动绘制图层

'-----------------------------------------------------------------------------------------------------
'
'             地图自动绘制处理过程
'
'             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