3S基础知识：MapX应用教程

　　创建地图对象

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

　　1、创建一个点对象

　　点对象有一个坐标点(X，Y)，点对象变量是Point类型，点对象的样式(Style)是符号样式。

　　Dim Pnt AS MapXLib.Point

　　Dim FeaFaac AS MapXLib.FeatureFactory

　　Dim Lyr AS MapXLib.Layer

　　Dim Ftr AS MapXLib.Feature

　　Dim NewStyle AS MapXLib.Style

　　‘绑定

　　SET Lyr=MainMap.Layers.Item(LayerName)

　　SET FeaFac=mainmap.featurefactory

　　‘设置点对象样式

　　With NewStyle

　　.SymbolType = miSymbolTypeBitmap

　　.SymbolBitmapSize = 24

　　.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 Pnt = Nothing

　　SET FeaFac = Nothing

　　SET Lyr = Nothing

　　SET Ftr = Nothing

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

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

　　2、创建一个线矩形

　　Dim Pnts AS MapXLib.Points

　　With NewStyle

　　.LineColor=Rgb(0, 0,255)

　　End With

　　‘第一个点

　　Pnt.Set X1,Y1

　　Pnts.add Pnt

　　‘第二个点

　　Pnt.Set X2,Y1

　　Pnts.add Pnt

　　‘第三个点

　　Pnt.Set X2,Y2

　　Pnts.add Pnt

　　‘第四个点

　　Pnt.Set X1,Y2

　　Pnts.add Pnt

　　‘第五个点

　　Pnt.Set X1,Y1

　　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 ds=Lyr.Datasets.Item(1)

　　Set Flds=ds.Fields

　　SET FeaFac=mainmap.featurefactory

　　‘设置点对象样式

　　With NewStyle

　　.SymbolType = miSymbolTypeBitmap

　　.SymbolBitmapSize = 24

　　.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)

　　‘设置属性

　　For I=1 to Flds.Count

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

　　Ftr.KeyValue=ValueStr(I) ‘这里并没有对字段类型进行判断

　　‘另外一种方法：使用RowValues和RowValue对象

　　‘添加

　　Lyr.AddFeature Ftr

　　Lyr.Refresh

　　Mainmap.AutoRedraw=True

　　Lyr.Editable=False

　　‘释放

　　SET Pnt = Nothing

　　SET FeaFac = Nothing

　　SET Lyr = Nothing

　　SET Ftr = Nothing

　　SET ds = Nothing

　　SET Flds = Nothing

　　4、创建表

　　(1) 临时表：

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

　　me( Char 24)。程序运行过程中该表存放位置为系统临时文件夹下

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

　　Dim Lyr As MapXLib.Layer

　　Dim LayerInfo As New MapXLib.LayerInfo

　　Dim Flds As New MapXLib.Fields

　　‘字段定义

　　Flds.AddStringField "ID", 12

　　Flds.AddStringField "Name", 50

　　Flds.AddNumericField "Deptch", 12, 2

　　Flds.AddIntegerField "Length"

　　LayerInfo.Type = miLayerInfoTypeTemp

　　LayerInfo.AddParameter "FileSpec", FileName

　　LayerInfo.AddParameter "NAME", LayerName

　　LayerInfo.AddParameter "Fields", Flds

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

　　Set Lyr = Nothing

　　Set LayerInfo = Nothing

　　(2) 创建永久表

　　Dim Lyr As MapXLib.Layer

　　Dim LayerInfo As New MapXLib.LayerInfo

　　Dim Flds As New MapXLib.Fields

　　Flds.AddStringField "ID", 12

　　Flds.AddStringField "Name", 50

　　Flds.AddNumericField "Deptch", 12, 2

　　Flds.AddIntegerField "Length"

　　LayerInfo.Type = miLayerInfoTypeNewTable

　　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 InfoTipTool = 16 ´信息工具

　　Global Const MoveFeature = 17 ´移动地图

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

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

　　MainMap.CreateCustomTool CreateSymbolTool, miToolTypePoint, miSymbolCursor

　　MainMap.CreateCustomTool CreateLineTool, miToolTypeLine, miCrossCursor

　　MainMap.CreateCustomTool InfoTipTool, miToolTypePoint, miCrossCursor

　　MainMap.CreateCustomTool MoveFeature, miToolTypeLine, miPanCursor

　　MainMap.CreateCustomTool ScaleDistanceTool, miToolTypeLine, miPanCursor

　　C. 如何使用?

　　在Map对象的ToolUsed事件的ToolNum参数为当前所激活的工具

　　使当

　　前操作指向某行为：MainMap.CurrentTool=工具句柄号，如放大：MainMap.CurrentTool=

　　miZoomInTool，移动图元：MainMap.CurrentTool=MoveFeature

　　操作具体的工具句柄时，执行该捕捉到的工具句柄的代码：

　　在ToolUsed事件中：

　　Select Case ToolNum

　　Case MoveFeature

　　‘执行代码

　　End Select

3S基础知识：MapX应用教程—创建地图对象相关推荐

FPGA基础知识极简教程（7）详解亚稳态与跨时钟域传输
博文目录写在前面正文 FPGA或ASIC中的传播延迟建立和保持时间是什么? 建立和保持时间与传播延迟和时钟频率有何关系? 如果违反建立和保持时间会发生什么? FPGA中的亚稳定是什么? 亚稳态何 ...
decimal转换为int_FPGA基础知识极简教程（10）二进制到BCD转换算法
写在前面正文快速认识实现方式一实现方式二写在最后写在前面 FPGA基础知识极简教程(9)[1]讲到了七段数码管的显示Verilog设计,我们都知道,要在数码管上显示的数字,使用BCD编码是 ...
FPGA基础知识极简教程（10）二进制到BCD转换算法
文章目录写在前面正文快速认识实现方式一实现方式二写在最后写在前面 FPGA基础知识极简教程(9)讲到了七段数码管的显示Verilog设计,我们都知道,要在数码管上显示的数字,使用BCD编 ...
前端地图分类（包括坐标系，GIS基础知识，2D与3D地图结构划分）
前端地图分类(包括坐标系,GIS基础知识,2D与3D地图结构划分) 经度:longitude(lng, 0 < lng < 180) 纬度:latitude(lat, 0 < lat ...
FPGA基础知识极简教程（4）从FIFO设计讲起之异步FIFO篇
博文目录写在前面正文同步FIFO回顾 $clog2()系统函数使用综合属性控制资源使用异步FIFO设计 FIFO用途回顾异步FIFO原理回顾异步FIFO设计异步FIFO仿真参考资料 ...
Java基础知识廖雪峰教程笔记
Java基础知识 Java基础知识 java简介名词解释运行Java程序 Java基本数据类型模块包装类型记录类异常处理 Java异常使用Commons Logging 使用log4j ...
j计算机基础知识,计算机办公自动化教程Office2003
计算机办公自动化教程Office2003 语音编辑锁定讨论上传视频同义词计算机基础知识一般指计算机办公自动化教程Office2003 一本通过学习使用office2003软件来进行电脑办公的 ...
FPGA基础知识极简教程（9）七段数码管显示的Verilog简单设计
博文目录写在前面正文七段数码管原理七段数码管译码表单个七段数码管显示verilog设计多个数码管动态扫描显示参考资料交个朋友写在前面作为FPGA的基础知识教程怎么能少得了这个简单的 ...
计算机wps表格基础知识,wps表格教程全套 - 51自学网
原标题:wps表格教程全套 - 51自学网 WPS表格"共享工作簿"实现协同工作9分出处:wps 时间:2013-03-11 人气:11359 您可能感兴趣的问题: 基础知识处 ...
FPGA基础知识极简教程（1）从布尔代数到触发器
博文目录写在前面正文初学者数字设计什么是FPGA? 什么是ASIC? 数字设计师如何使用布尔代数? 使用查找表(LUT)在FPGA内部执行布尔代数触发器如何在FPGA中工作? 参考资料交个 ...

3S基础知识：MapX应用教程—创建地图对象

3S基础知识：MapX应用教程—创建地图对象相关推荐

最新文章

热门文章