幻灯片 1

Size: px

Start display at page:

Download "幻灯片 1"

轮伍经
4 years ago
Views:

1 组件式 GIS ComGIS WWW. SDJTU. EDU.CN 主讲人 : 尹涛

2 实验 (6) TrackingLayer 2

3 实验内容一实验目的二实验要求三实验准备知识四实验步骤及方法五实验结果六实验时间七实验报告要求 3

4 一实验目的掌握 GPS 动态目标跟踪显示 4

5 二实验要求 1 掌握跟踪层概念 2 掌握添加几何对象到跟踪层, 并高亮显示设计方法 ; 2 掌握移动跟踪层上的几何对象 ; 3 掌握模拟 GPS 跟踪功能 ; 5

6 三实验准备知识 1. 实验数据 : world.smw world.sdd world.sdb 2. 实验软件环境实验硬件环境 : 计算机实验软件环境 : SuperMap Objects VB 3. 预备知识 : 6

7 预备知识 1 跟踪图层对象 2 添加实例 3 刷新跟踪图层连续移动技术 4 Timer 7

8 预备知识历史回放打开 GPS 数据纯属性表, 读取第一条记录, 显示第一个点打开计时器在计时器中, 每次从 GPS 纯属性读一条记录, 取得 X,Y 坐标把光点移到新位置没有记录, 则结束 8

9 四实验步骤及方法演示如下操作 : 1 建立 GPS 数据纯属性表在世界地图上得到 GPS 数据纯属性表 gpspoint 在桌面版中打开世界地图建立一线类型数据集, 在棋上任意画一线用菜单 : 数据处理 - 类型转换, 把线类型数据集转换为点类型数据集修改该点类型数据集, 增加两个字段 x,y 类型双精度用菜单 : 记录 - 更新列, x,y 换为坐标值用菜单 : 记录 - 保存为属性表 9

10 四实验步骤及方法演示如下操作 : 2 全局变量定义 Dim objrcd As sorecordset ' 定义一个记录集 Dim pnt As New sogeopoint ' 定义一个新的点实例变量 Dim style As New sostyle 定义一个新的风格变量 10

11 四实验步骤及方法 3 轨迹回放程序设计 Private Sub readdada_click() 4 轨迹回放程序设计 Private Sub Timer1_Timer() 11

12 轨迹回放程序设计全局变量定义 Dim objrcd As sorecordset ' 定义一个记录集 Dim pnt As New sogeopoint ' 定义一个新的点实例变量 Dim style As New sostyle 定义一个新的风格变量 12

13 轨迹回放程序设计 Private Sub readdada_click() 轨迹回放 Dim objdv As sodatasetvector ' 矢量数据集 Set objdv = SuperWorkspace1.Datasources(1).Datasets(8) ' 属性数据集 Set objrcd = objdv.query("", False) ' 获取记录集 objrcd.movefirst 13

14 轨迹回放程序设计 ' 定义点实例的风格 style.pencolor = 255 style.symbolsize = 50 style.symbolstyle = 1 pnt.x = objrcd.getfieldvalue(3) ' 获取点实例的 X 坐标 pnt.y = objrcd.getfieldvalue(4) ' 获取点实例的 Y 坐标 SuperMap1.TrackingLayer.ADDEVENT pnt, style, "" ' 增加点实例 Me.Timer1.Interval = 50 Me.Timer1.Enabled = True End Sub 14

15 单点移动 Private Sub Timer1_Timer() Dim objgeoevent As New sogeoevent Set objgeoevent = SuperMap1.TrackingLayer.Event(1) If Not (objrcd.iseof) Then objgeoevent.moveto objrcd.getfieldvalue(3), objrcd.getfieldvalue(4) SuperMap1.TrackingLayer.RefreshEx objrcd.movenext Else 15

16 单点移动 SuperMap1.TrackingLayer.ClearEvents ' 清除所有实例 SuperMap1.TrackingLayer.Refresh ' 刷新跟踪图层 Timer1.Enabled = False Timer1.Interval = 0 停止点实例的跟踪 End If End Sub 16

17 17 五实验结果

18 六实验时间实验时间 :2 学时 18

19 七实验报告要求 0. 实验名称 : 1. 实验目的 : 2. 实验要求 : 3. 实验内容 : 4. 实验步骤 : 模拟跟踪的代码 5. 实验结果 : 6. 实验中发现的问题及你解决的方法 : 7. 回答如下问题 : 如何让轨迹保留? 19

20 作业 1. 实验报告 20

21 21

22 组件式 GIS ComGIS WWW. SDJTU. EDU.CN 主讲人 : 尹涛

23 实验 (5) 基本查询 2

24 实验内容一实验目的二实验要求三实验准备知识四实验步骤及方法五实验结果六实验时间七实验报告要求 3

25 一实验目的掌握基本空间查询的程序设计 4

26 二实验要求 1 掌握图查属性设计方法点击空间对象查询其属性的方法 ; 2 掌握属性查图设计方法根据 SQL 条件查询空间对象设计方法 ; 5

27 三实验准备知识 1. 实验数据 : world.smw world.sdd world.sdb 2. 实验软件环境实验硬件环境 : 计算机实验软件环境 : SuperMap Objects VB 3. 预备知识 : 6

28 预备知识查询模式 : 图查属性属性查图图查属性 : 选择空间对象, 查询属性属性查图 : 根据属性条件, 查找满足条件的空间对象查询设计的关键概念选择集 :soselection 记录集 :sorecordset 7

29 预备知识图查属性 :soselection-> sorecordset 属性查图 :sorecordset - > soselection 8

30 图查属性 ⑴ 设置选择方式 : SuperMap.Action = scaselect ⑵ 用户选择等待用户选择 ⑶ 在事件 GeometrySelected() 捕获选择 ⑷ 得到选择的空间对象 : SuperMap.Selection 9

31 图查属性 ⑸ 从选择的对象空间集得到记录集合 SuperMap1.Selection.ToRecordset ⑹ 显示 Recordset 字段的值 GetFieldValue() ⑺ 多个选择对象处理 10

32 事件 GeometrySelected() 语法 : SuperMap.GeometrySelected(nSelectedGeometryCo unt As Long) 参数 :nselectedgeometrycount, 当前选中的空间对象的个数对于不同的选择方式, 该事件的触发顺序不同 : 1. 点选, 框选, 圆选时, 先触发 GeometrySelected, 然后是 MouseDown 事件 ; 2. 点框选时 (scaselectex) 先触发 MouseDown, 再触发 GeometrySelected 11

33 属性查图 ⑴ 生成查询 SQL 表达式 : 普通表达式输入, 要求用户了解如何正确书写 SQL 表达式, 如 :SMID=9 用户只输入查询的内容, 如输入文本型的值 : 中国,strSQL = "country='" & txtexpression.text & "' 如输入数值型的值 : 人口数量,strSQL = Pop_1994>=" & txtexpression.text 如输入日期型的值 : 记录日期,strSQL = 日期 # & txtexpression.text & # 12

34 属性查图 ⑵ 获取图层的矢量数据集对象或直接取得矢量数据集 : Set objdtvector = SuperWorkspace1.Datasources.Item("MyDataSour ce").datasets("world") 或直接取得矢量数据集 : Set objdtvector = SuperWorkspace1.Datasources.Item(1).Datasets(" World") 13

35 属性查图 ⑶ 在属性集合中查找, 结果在 Recordset 中 Set objrecordset = objdv.query(strsql,true) 语法 : sorecordset sodatasetvector.query(strsqlfilter As String,bHasGeometry As Boolean,[objFields As sostrings],[stroptions As String]) bhasgeometry : 是否查询空间数据 True, 表示要取空间数据 ;False, 表示不取空间数据 ; objfields : 字段列表 stroptions : 查询选项如查询出的结果 (1) 是否按某一字段排序 2) 是否按某一字段分组 (Group By) 等 14

36 属性查图 ⑷ 由属性集合得到空间对象集合, 并高亮度显示 SuperMap.Selection.FromRecordset objrecordset 把带有几何对象的记录集转化为选择集 ( 即记录集所对应的对象全部呈选中状态 ) 15

37 属性查图 ⑸ 居中显示 SuperMap.EnsureVisibleRecordset SuperMap1.EnsureVisibleRecordset objrecordset, dratio 16

38 四实验步骤及方法演示如下操作 : A: 图查属性 1. 运行 Visual Basic, 新建一个工程, 调整默认窗体的大小, 并添加地图控件 2. 窗体的 Form_Load 事件中, 输入加载完窗体就显示出图层的代码, 见上例 3. 添加一个命令按钮, 标题是图查属性, 输入代码 : 4. 在 SuperMap1_GeometrySelected 事件中, 输入代码 : 5. 运行 17

39 四实验步骤及方法 B: 属性查图 1. 在上例中, 建立一个文本框 2. 加一个命令按钮, 标题是属性查图 3. 在命令按钮的 Click 中输入代码 4. 运行 18

40 19 五实验结果

41 六实验时间实验时间 :2 学时 20

42 七实验报告要求 0. 实验名称 : 1. 实验目的 : 2. 实验要求 : 3. 实验内容 : 4. 实验步骤 : 图查属性属性查图的完整代码 5. 实验结果 : 6. 实验中发现的问题及你解决的方法 : 7. 回答如下问题 :. 图查属性属性查图的设计要点是什么? 21

43 作业 1. 实验报告 22

44 23

45 组件式 GIS ComGIS WWW. SDJTU. EDU.CN 主讲人 : 尹涛

46 实验 (3) 空间数据的显示和基本操作 2

47 实验内容一实验目的二实验要求三实验准备知识四实验步骤及方法五实验结果六实验时间七实验报告要求 3

48 一实验目的 1 掌握显示地图的程序设计 2 地图基本操作的程序设计 4

49 二实验要求 1 SuperWorkSpace SuperMap 运用 ; 2 掌握打开各种数据源发方法; 3 掌握显示空间数据方法; 4 掌握进行地图放大缩小等的基本操作; 5

50 三实验准备知识 1. 实验数据 : world.smw world.sdd world.sdb 2. 实验软件环境实验硬件环境 : 计算机实验软件环境 : SuperMap Objects VB 3. 预备知识 : 6

51 预备知识 SuperWorkSpace 控件 SuperMap 控件 OpenDataSource 方法控件及对象 SuperWorkspace 方法事件 OpenDataSource 功能描述打开数据源文件 sodatasource 7

52 四实验步骤及方法演示如下操作 : 1. 创建一个新工程 2. 加载 SuperMap Objects 控件 3. 在窗体 Form_Load() 中加入打开地图添加图层的代码 4. 加入地图浏览功能代码 5. 运行程序 8

53 添加图层代码在窗体 Form_Load() 中加入打开地图添加图层的代码 : ' 建立 SuperWorkspace 与 SuperMap 之间的联系 SuperMap1.Connect SuperWorkspace1.Object Dim stralias As String ' 数据源别名 Dim nenginetype As seenginetype ' 数据引擎类型 Dim strdatasourcename As String ' 数据源绝对路径名 Dim objdatasource As sodatasource ' 数据源对象, 指向打开的数据源 Dim breadonly As Boolean ' 数据源里的数据是否只读 Dim objlayer As solayer ' 图层对象变量, 指向将要打开的图层 Dim baddtohead As Boolean ' 是否加到最上面 Dim i As Integer ' 循环变量 9

54 添加图层代码 stralias = "MyDataSource" ' 原则上别名可以任意给, 建议取成和数据源文件主名 nenginetype = scesdbplus 'SuperMap 支持多种类型, 此处为 SDB+ 类型 strdatasourcename = "D:\MYPROJECT1\world.sdb" breadonly = False ' 不设为只读 ' 打开数据源 Set objdatasource = SuperWorkspace1.OpenDataSource(strDataSourceName, stralias, nenginetype, breadonly) 10

55 添加图层代码 11 If objdatasource Is Nothing Then MsgBox " 打开数据源失败!", vbinformation Else For i = 1 To objdatasource.datasets.count ' 把数据源中的所有图层加入到 SuperMap 中 baddtohead = True Set objlayer = SuperMap1.Layers.AddDataset(objDataSource.Datasets.Item(i), baddtohead) Next End If ' 刷新地图窗口 SuperMap1.Refresh ' 释放内存

56 地图基本功能代码 Private Sub cmdpan_click() ' 漫游 SuperMap1.Action = scapan End Sub Private Sub cmdviewentire_click() ' 全幅显示 SuperMap1.ViewEntire() End Sub Private Sub cmdzoomfree_click() ' 自由缩放 SuperMap1.Action = scazoomfree End Sub Private Sub cmdzoomin_click() ' 放大 SuperMap1.Action = scazoomin End Sub Private Sub cmdzoomout_click() ' 缩小 SuperMap1.Action = scazoomout End Sub 12

57 13 五实验结果

58 六实验时间实验时间 :2 学时 14

59 七实验报告要求 0. 实验名称 : 1. 实验目的 : 2. 实验要求 : 3. 实验内容 : 4. 实验步骤 : 给出加载图层的完整代码 5. 实验结果 : 6. 实验中发现的问题及你解决的方法 : 7. 回答如下问题 : 如何加载制定的一个数据集 15

60 作业 1. 实验报告 16

61 17