MapX中文版讲义及帮助文档

MapX 应用讲义

一、加载地图数据

1、 TAB 的数据分为两种数据：地图数据（Layers）、属性数据（Datasets）。关系：

不可

分割的一个数据集的两部分.

2、 数据加载：GST 文件由 GeosetManager40.exe 程序生成。在程序使用 gsT 文件：

Map1.Ge

oset=Filepath+FileName

dim LayerInfo as MapXLib.LayerInfo

dim Lyr as Mpxlib.layer

LayerInfo.Type = miLayerInfoTypeTab ‘加载表的类型

LayerInfo.AddParameter "FileSpec", FilePath + LayerName + ".TAB" ‘加载表

的全路径名

LayerInfo.AddParameter "NAME", LayerName ‘地图集的别名

LayerInfo.AddParameter "AutoCreateDataset", 1 ‘是否加载属性数据集

LayerInfo.AddParameter "datasetname", LayerName ‘属性数据集别名

MainMap.Layers.Add LayerInfo ‘加载到指定的 MapX 对象中，立即可直接使用

5、 第三种加载数据方式：GST 文件+ LayerInfo 方式。示例：

‘直接引用 LayerInfo 方式加载地图数据到 MainMap

Next

二、创建地图对象

必要：创建地图对象，必须使用 FeatureFactory 对象

1、 创建一个点对象

点对象有一个坐标点（X，Y），点对象变量是 Point 类型，点对象的样式（Style）是符

号

样式。

Dim Pnt AS MapXLib.Point

Dim FeaFac AS MapXLib.FeatureFactory

Dim Lyr AS MapXLib.Layer

Dim Ftr AS MapXLib.Feature

.SymbolBitmapTransparent = False

.SymbolBitmapName = "YIEL2-32.BMP"

End With

Mainmap.AutoRedraw=False ‘禁止自动刷新

Lyr.Editable=True ‘置当前图层为可写状态

‘创建点对象

pnt.set X1,Y1

‘添加进当前图层

Set Ftr=FeaFac. CreateSymbol (Pnt,Newstyle) ‘创建符号

‘Set Ftr=FeaFac. CreateSymbol (Pnt,MainMap.DefaultStyle)

‘添加

Lyr.AddFeature Ftr

Lyr.Refresh

Mainmap.AutoRedraw=True

Lyr.Editable=False

‘释放

SET FeaFac = Nothing

‘以上代码放在 MapX 的 ToolUsed 事件下

单独修改某个图元的样式：SET Ftr.Style=NewStyle，再用 Update 即可

‘第一个点

Pnts.add Pnt

‘第二个点

Pnt.Set X2,Y1

Pnts.add Pnt

‘第三个点

Pnt.Set X2,Y2

Pnts.add Pnt

Pnts.add Pnt

‘第五个点

‘创建线矩形

SET Ftr=FeaFac.CreateLine(Pnts,NewStyle)

Lyr.AddFeature Ftr

Lyr.Refresh

3、 上面创建对象中存在的问题：并未对其数据数据进行赋值

创建对象的同时创建其数据集合

Dim Pnt AS MapXLib.Point

Dim FeaFac AS MapXLib.FeatureFactory

Dim Lyr AS MapXLib.Layer

Dim Ftr AS MapXLib.Feature

Dim NewStyle AS MapXLib.Style

Dim ds AS MapXLib.Dataset

Dim Flds AS MapXLib.Fields

‘绑定

SET Lyr=MainMap.Layers.Item(LayerName)

SET FeaFac=mainmap.featurefactory

‘设置点对象样式

Mainmap.AutoRedraw=False ‘禁止自动刷新

Lyr.Editable=True ‘置当前图层为可写状态

‘创建点对象

pnt.set X1,Y1

‘创建图形

Set Ftr=FeaFac. CreateSymbol (Pnt,Newstyle) ‘创建符号

‘Set Ftr=FeaFac. CreateSymbol (Pnt,MainMap.DefaultStyle)

‘设置属性

For I=1 to Flds.Count

Lyr.KeyFields=Flds.Item(i).Name

‘添加

Mainmap.AutoRedraw=True

Lyr.Editable=False

SET Pnt = Nothing

SET FeaFac = Nothing

SET Ftr = Nothing

SET ds = Nothing

SET Flds = Nothing

4、 创建表

A、用 MainMap.Layers.CreateLayer 方法创建临时表。但这个临时表只有一个字段：

GeoNa

B、使用 LayerInfo 对象创建临时表，可以指定字段。示例：

Dim Lyr As MapXLib.Layer

‘字段定义

LayerInfo.AddParameter "FileSpec", FileName

LayerInfo.AddParameter "Fields", Flds

Set Lyr = MainMap.Layers.Add(LayerInfo, 1)

Set LayerInfo = Nothing

Dim LayerInfo As New MapXLib.LayerInfo

Flds.AddStringField "Name", 50

Flds.AddNumericField "Deptch", 12, 2

Flds.AddIntegerField "Length"

´

LayerInfo.AddParameter "FileSpec", FilePath + "" + FileName

LayerInfo.AddParameter "NAME", LayerName

LayerInfo.AddParameter "Fields", Flds

Set Lyr = MainMap.Layers.Add(LayerInfo, 1)

Set Lyr = Nothing

Set LayerInfo = Nothing

5、 创建工具句柄

系统已经定义工具句柄都以整数（包括 16 进制）常数存在，句柄号大于 1000 和小于 12

基本

都为系统使用。

A. 定义常数：必须为全局变量

Global Const CreateSymbolTool = 13 ´创建节点

Global Const CreateLineTool = 15 ´创建管线

Global Const MoveFeature = 17 ´移动地图

Global Const ScaleDistanceTool = 18 ´测量两点间的距离

B. 使用 CreateCustomTool 创建新的工具句柄：