工作空间管理__GIS动力站_ArcGIS|开源|虚拟地理环境|算法|工程|信息空间化|WebGIS

功能简介：

示范SuperMap Objects 中的工作空间、另存工作空间和Map对象的保存、另存与打开。

数据来源：由用户自己打开合法的数据源和工作空间

所用SuperMap Objects 组件、对象的主要属性和方法：

功能实现：



	保存工作空间:
	保存工作空间必须是以打开工作空间为前提，否则找不到工作空间的名称，保存工作空间失败。
	strWkspName = Me.SuperWorkspace1.GetWorkspaceName()
	If (strWkspName) <> "" Then '表示已经存过盘
	SuperWorkspace1.Save
	End If
	另存工作空间:
	SuperWorkspace1.SaveAs strWorkspaceName, False 'False表示不覆盖原文件


	保存地图:
	保存地图对象必须是以打开地图为前提，否则找不到地图对象的名称，保存地图失败。
	strMapName = Me.SuperMap1.MapName
	If strMapName <> "" then '表示已经存过盘
	bResult = Form1.SuperMap1.SaveMap()
	End If
	地图另存为:
	bResult = Form1.SuperMap1.SaveMapAs(strMapName) '可以覆盖以前保存过的地图对象


	打开地图:
	打开地图必须有已经保存过的地图对象，否则会出现打开地图错误
	Dim lstMaps as soMaps
	Set lstMaps = Form1.SuperWorkspace1.Maps
	Form1.SuperMap1.Layers.RemoveAll
	Form1.SuperMap1.OpenMap lstMaps(1)