MapX地图化及其工具

第三章MapX地图化及其工具2/4/202313.1MapX中地理数据地图化方式MapInfo文件格式与数据组织MapInfo数据索引机制MapX的地图图层和图元2/4/20232MapInfo文件格式与数据组织空间数据和属性数据分开存储的。属性数据以数据库的形式存储为一张表，空间数据以MapInfo自己定义的格式保存在文件中。两者之间通过一定的索引机制联系起来。MapInfo按照图层来管理地理数据，每个图层包括4个基本文件：属性数据表结构文件(.Tab)、属性数据文件(.Dat)、交叉索引文件(.Id)和空间数据文件(.Map)。如果对属性数据进行索引，还需要索引文件(.Ind)。此外，MapInfo还包括其他几种辅助的文件类型。2/4/20233MapX的文件格式2/4/20234MapInfo文件格式对于MapX，索引文件.Ind存在，允许用Find对象来查找地图对象。工作空间文件（.wor）MapInfo交换格式文件：文本文件，将地图空间数据与属性数据用文字的方式表达出来。包含两类文件，其中.Mif主要包括空间数据，.Mid描述了属性信息。2/4/20235MapInfo数据索引机制从属性信息查询空间信息从空间信息查询属性信息（见前图）2/4/202363.2地图标准工具MapX提供了标准的地图工具，可以很容易地利用常用的标准工具开发出方便易用的地理信息系统，而不必针对每一种地图操作都完全靠开发者自己编程，开发效率大大提高。2/4/202373.2地图标准工具Map1.CurrentTool=miZoomInToolMap1是MapX的对象名，miZoomInTool是常量。在指定位置使用用户工具。

CurrentTool设置为当前工具。取值为ToolConstants值。默认值为miArrowTool。(可选参数见书48页)2/4/20238标准工具的分类导航工具(Zoom-In,Zoom-Out,Pan,Center)（程序演示）标注工具：一系列选择工具（程序演示）

Annotations(symbolsandtext)创建工具（用来创建地图图元）2/4/20239地图编辑工具在地图中创建新的图元，或者修改已有的图元MapX提供了AddPoint

AddLine

AddPolyline

AddRegion

以及SymbolText2/4/202310地图编辑工具在地图中添加新的图元：DimlyrInsertionAsMapXLib.LayerSetlyrInsertion=Map1.Layers("Uscities")‘将该图层设为可编辑，以便添加lyrInsertion.Editable=True‘将China设为InsertionLayer图层SetMap1.Layers.InsertionLayer=lyrInsertionMap1.CurrentTool=miAddPointTool2/4/202311地图编辑工具在地图中编辑图元:(先使用选择工具，选择某一图元，然后编辑)layer.Editable=TrueMap1.CurrentTool=miAddPointTool2/4/2023123.4用户自定义工具创建自定义工具有3个步骤：创建自定义工具编写自定义工具的处理过程在应用程序界面上使用自定义工具2/4/202313创建自定义工具Map.CreateCustomTool

ToolNumber,Type,Cursor,[ShiftCursor],[CtrlCursor]ToolNumber

用于在此后引用它的工具的数量。此值必须是介于1和999之间的整数。Type 描述工具行为的类型。取值为ToolTypeConstants

的值。Cursor 当前使用工具的光标形状。ShiftCursor

表示应该在按住SHIFT键时出现的光标CtrlCursor

表示应该在按住CTRL键时出现的光标2/4/2023143.4用户自定义工具编写自定义工具的处理过程：工具的行为代码会在两个不同的时刻执行：在工具的使用过程中或者使用工具之后。对应不同事件。以测距为例：工具使用过程中，MouseDown需要记录起点坐标，MouseMove需要显示当前距离。使用工具后，ToolUsed或者PolyToolUsed中处理。2/4/202315使用自定义工具使用工具：需要设置MapX对象CurrentTool的值。PrivateSubForm_Load()

Map1.CreateCustomTool99,miToolTypePoint,miCrossCursorEndSubPrivateSubCommand1_Click()

Map1.CurrentTool=99EndSub2/4/202316使用自定义工具使用工具：需要设置MapX对象CurrentTool的值。PrivateSubForm_Load()

Map1.CreateCustomTool99,miToolTypePoint,miCrossCursorEndSubPrivateSubCommand1_Click()

Map1.CurrentTool=99EndSub2/4/2023