在MO中如何保存一个工程空间

楼主^#

更多发布于：2004-05-19 01:50

<TABLE height=1 cellSpacing=0 cellPadding=0 width=600 border=0>

<TR>
<TD vAlign=center width=600 height=20>
在MO中如何保存一个工程空间</TD></TR>
<TR>
<TD width=9 height=1></TD>
<TD width=1 bgColor=#a2bed9 height=1>　</TD>
<TD width=26 height=1></TD>
<TD vAlign=top width=600 height=1>

　
摘要：本文简单介绍了在项目中如何对用户的一些个性化设置进行保存以及加载，使用户对工作空间进行随意定制和恢复。
关键词：MO；个性化设置；工作空间
一、保存工作空间的必要性
在GIS项目中，地理图一般来说都包括地理背景图和专业图层，相比较而言地理背景图占有的数据库空间和网络流量都比专业图要多的多。但是这里的地理背景图是一个大而全的数据仓库、是所有用户数据的并集，可能任何一个用户都不会用到全部图层而只是其中一部分。那么在项目中就应该能够满足这么一些需求：根据用户不同的要求对图层进行定制，有的用户只是对自己管辖的范围感兴趣而不是所有的区域；有的用户只对其中某个图层感兴趣；有的用户想把该图层的颜色变成黑色，而另外一些用户可能想把该图层的颜色变为红色…..这样就要求用户每次加载只是其默认的固定区域。这样做的好处就是：可以使用户迅速而方便的定位到自己关心的区域，方便的定制系统界面；减少网络压力、提高系统运行速度、减轻服务器的压力。
针对上面的需求笔者提出了一个MaoObjects的概念：每次当用户退出程序的时候提示用户是否保存工作空间，如果保存就把现有设置进行保存，其中的设置包括：加载不同的图层加载图层的不同范围制定图层的背景色图层的绝对路径图层的填充色或者线条颜色各个图层符号的大小等等，实现的功能与ArcGIS中的.mxd基本类似，下次加载工程空间时可以复现上次退出程序时的状态。
<IMG src="http://www.esrichina-bj.cn/library/chinanews/image/cn15-mo.gif" border=0>
二、保存工作空间方法
建立一个.zyc的文本文件，在该文件中存放一些关于工程文件的字段，就如同.ini文件一样，每当进行工程空间的保存时就将工程信息写入这个文本文件，以备使用，这个文件的主要格式如下所示：
<BLOCKQUOTE>
[START LAYERS]
[START MAPLAYER 2]
FILE D:\Map\saveproject street（这里确定待加载图层的路径）
SYMBOLTYPE 2（该选项缺点是多边形、线状还是点状地物）
STYLE 0（线形）
COLOR 12632256（图形颜色）
OUTLINECOLOR 0
SIZE 1（大小）
[END MAPLAYER 2]
[START MAPLAYER 1]
FILE D:\Map\saveproject river
SYMBOLTYPE 2
STYLE 1
COLOR 48966825
OUTLINECOLOR 255
SIZE 1
[END MAPLAYER 1]
[START MAPLAYER 0]
FILE D:\Map\saveproject city
SYMBOLTYPE 1
STYLE 0
COLOR 16711680
SIZE 1
[END MAPLAYER 0]
[END LAYERS]
[START MAPEXTENT]
-74.4602941830473
-73.851610228764
40.0239838439149
40.4799665971236
[END MAPEXTENT]</BLOCKQUOTE>
上面的.zyc文件包括两大部分，其中一部分是与图层显示有关的，另一部分是与图层范围有关的。在第一部分中，根据FILE选项对图层数据进行加载，根据SYMBOLTYPE确定是多边形还是线状还是点状，STYLE为显示样式，COLOR为符号颜色，SIZE为符号大小。第二部分则是地图加载时需要加载的左上角和右下角的x，y坐标。
三、加载图层方法
每当需要加载这个工程文件时程序就首先从.zyc文件中读取有关信息，然后根据这些信息进行图层的加载和渲染。
<BLOCKQUOTE>
Do Until stro.Contains("[END LAYERS]")
Set mlyr = New MapObjects2.MapLayer
stro.Text = lf.ReadElt
Do Until stro.Contains("[END MAPLAYER")
key = stro.Extract(0)
value = stro.Extract(1)
Select Case key
Case "FILE"
dc.Disconnect
dc.Database = value
Set mlyr.GeoDataset = dc.FindGeoDataset(stro.Extract(2))
Case "SYMBOLTYPE"
mlyr.Symbol.SymbolType = value
Case "STYLE"
mlyr.Symbol.Style = value
Case "COLOR"
mlyr.Symbol.Color = value
Case "OUTLINECOLOR"
mlyr.Symbol.OutlineColor = value
Case "SIZE"
mlyr.Symbol.Size = value
End Select
stro.Text = lf.ReadElt
Loop
Map1.Layers.Add mlyr
stro.Text = lf.ReadElt
Loop
stro.Text = lf.ReadElt
rect.Left = lf.ReadElt
rect.Right = lf.ReadElt
rect.Bottom = lf.ReadElt
rect.Top = lf.ReadElt
Set Map1.Extent = rect</BLOCKQUOTE>
四、方法的优缺点
优点：上述方法比较简单，利于编程实现，只要按顺序对图层进行加载，然后根据在文件中读取的数据项进行渲染即可，另外，由于需要的额外计算开销小，所以速度较快。
缺点：不能实现一些比较复杂的渲染，如：根据线路名称对线路进行渲染等。这些还是要在编程过程中做一些工作，或者在该文件中加入其他选项。
对上面的文件再进行细化，可以更加详细的对系统进行控制，在GIS开发中可以很好的利用，当然也可以把这个文件的有关记录放到数据库中进行控制。</TD></TR></TABLE>

喜欢0 评分0

GIS麦田守望者，期待与您交流。

举报回复

aying 路人甲注册日期2003-10-05 发帖数60 QQ 铜币275枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2004-06-01 10:18 我也学习一下
	举报回复(0) 喜欢(0) 评分

ryx32 路人甲注册日期2003-08-05 发帖数457 QQ 铜币4046枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2004-07-09 12:52 <P>如果工作空间中的某个文件不存在怎办</P>
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

在MO中如何保存一个工程空间

最新喜欢：