第八讲 Geo-UnionPKGML.pptVIP

* * 第八讲 Geo-Union/PKGML 系统实践 1、Geo-Union系统实践 2、PKGML系统介绍 3、PKGML系统实践 1、Geo-Union系统实践 Geo-Union4.0单机版的使用 Geo-Union 5.0的使用 系统下载 课程网站“实验环境”栏目 /Course/ gisCourse/Program/index.htm 5、Geo-Union系统实践 ——单机版的使用 参阅有关的系统使用说明书。 特别关注：以GML格式卸出图层。 5、Geo-Union系统实践 ——网络版（5.0）的使用 参阅有关的构件手册、系统使用说明书以及开发实例等。 Geo-Union构件手册 Geo-Union操作手册 Geo-Union开发实例 5、Geo-Union系统实践 ——网络版（5.0）的使用 Geo-Union5.0的组成与环境搭建 服务器端软件： GIS服务器：GISServer.exe 数据库：各种支持ODBC的数据库 客户端软件： 系统初始化及用户管理工具： Monitor.exe 集成环境：GuEditor.exe 图例编辑器：GuLegend.exe 缓存管理工具：GuTray.exe 数据管理工具：GuDataExchange.exe 二次开发构件库：GuActiveX.dll/GxInter.dll/GuAppTool.ocx （二次开发构件库个文件需要在客户端进行注册） 主要运行环境：Microsoft Window系列操作系统。 Geo-Union5.0使用简介 ——一个简单的二次开发示例 Dim Conn As New GxConnection Conn.Connect(“lyw, gisCourse, hq, gis) Dim Map As GxMap Dim Layer as GxLayer //A physical layer Set Layer = Conn.OpenLayer(“Road) //Get a physical layer Dim mapLayer As GxMapLayer //A display layer mapLayer.layer = Layer mapLayer.MaxVisibleScale = 1 mapLayer.MinVisibleScale = 1000000 Map.MapLayers.Add mapLayer //Add the MapLayer to a Map //MapView1 is an Instance of GxMapView MapView1.ActiveMap = Map MapView1.SetFullExtent Map.GetExtent MapView1.SetExtent Map.GetExtent //Set the display properties //Display the Map in GxMapView //Connect to Geo-Union Server //鼠标工具对象 Dim PickTool As New GxPick Dim myZoomin As New GxZoomin Dim myZoomout As New GxZoomout Dim myPalm As New GxPalm Dim myInputLine As New GxInputPolyline Dim myInputPolygon As New GxInputPolygon //放大 If Not GxMapView1.Tools.IsToolIn(myZoomin ) Then MapView1.Tools.AddTool myZoomin End If MapView1.Tools.ActiveTool = myZoomin //输入一条线 If Not GxMapView1.Tools.IsToolIn(myInputLine) Then MapView1.Tools.AddTool myInputLine End If MapView1.Tools.ActiveTool = myInputLine Geo-Union5.0使用简介 ——一个简单的二次开发示例 MapView1_OnLButtonUp(ByVal Flags As Long, ByVal x As Long, ByVal y As Long) If MapView1.Tools.ActiveTool Is PickTool Then Dim Sels As GxArray