【原创】利用ESRI自带的符号库进行符号化
生活随笔
收集整理的這篇文章主要介紹了
【原创】利用ESRI自带的符号库进行符号化
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
ArcGIS中自帶有豐富的符號庫，在ArcGIS Server中使用符號庫的符號進行符號化思路如下：
1.首先要知道符號庫中的符號分為哪些種類，才能在進行符號化時對應(yīng)不同類型圖層進行相應(yīng)的符號化；
2.其次要知道符號庫中有那些符號，才能知道要用哪個符號進行符號化；
3.知道了符號的名稱后，獲取符號；
4.利用這個符號進行符號化。
步驟1
Dim mapserver As AGSServer = New AGSServer()
mapserver.InitializeVar(_Map)
Dim soc As ESRI.ArcGIS.Server.ServerContext = mapserver.GetSOC()
'------------------------------------------------------
Dim _StyleGallery As IStyleGallery = Nothing
'------------------------------------------------------
If _StyleGallery Is Nothing Then
_StyleGallery = CType(soc.CreateObject ("esriDisplay.ServerStyleGallery"), ESRI.ArcGIS.Display.ServerStyleGallery) 'New ServerStyleGallery()
End If
'定義Style文件
'********************************************************
'IstyleGaleryStorage.DefaultStylePath將返回Style文件的缺省目錄。
'IstyleGalleryStorage.TargetFile屬性允許程序員新建一個Style文件作為添加、刪除和更新樣式條目的目標文件。
'********************************************************
Dim _StyleStor As IStyleGalleryStorage = _StyleGallery 'IStyleGalleryStorage對象是用于管理IStyleGallery對象的
'定義Style文件的默認路徑
Dim _ServerStylePath = _StyleStor.DefaultStylePath & "ESRI.ServerStyle" 'IStyleGalleryStorage:efaultStylePath下存儲的是默認的Style文件夾路徑
_StyleStor.TargetFile = _ServerStylePath '此處指定目標文件
Dim SGClass As IStyleGalleryClass = Nothing
Dim count As Integer = _StyleGallery.ClassCount
Dim styleclassNames(count) As String
For i As Integer = 0 To count - 1
SGClass = _StyleGallery.Class(i)
styleclassNames(i) = SGClass.Name
Next
這樣，所有StyleGalleryClass的名稱都獲取到了，具體有以下種類：
1 Reference Systems, 2 Maplex Labels, 3 Shadows, 4 Area Patches, 5 Line Patches, 6 Labels, 7 Representation Markers, 8 North Arrows, 9 Scale Bars, 10 Legend Items, 11 Scale Texts, 12 Color Ramps, 13 Borders,Backgrounds, 14 Colors, 15 Vectorization Settings, 16 Fill Symbols, 17 Line Symbols, 18 Marker Symbols, 19 Text Symbols, 20 Representation Rules, 21 Hatches
常用的有：Marker Symbols Line Symbols Fill Symbols Borders等
步驟2
1 Dim mapserver As AGSServer = New AGSServer()
2
3 mapserver.InitializeVar(_Map)
4
5 Dim soc As ESRI.ArcGIS.Server.ServerContext = mapserver.GetSOC()
6 '------------------------------------------------------
7 Dim _StyleGallery As IStyleGallery = Nothing
8 '------------------------------------------------------
9
10
11 If _StyleGallery Is Nothing Then
12
13 _StyleGallery = CType(soc.CreateObject("esriDisplay.ServerStyleGallery"), ESRI.ArcGIS.Display.ServerStyleGallery) 'New ServerStyleGallery()
14
15 End If
16
17 '定義Style文件
18 '********************************************************
19 'IstyleGaleryStorage.DefaultStylePath將返回Style文件的缺省目錄。
20 'IstyleGalleryStorage.TargetFile屬性允許程序員新建一個Style文件作為添加、刪除和更新樣式條目的目標文件。
21 '********************************************************
22
23 Dim _StyleStor As IStyleGalleryStorage = _StyleGallery 'IStyleGalleryStorage對象是用于管理IStyleGallery對象的
24
25 '定義Style文件的默認路徑
26 Dim _ServerStylePath = _StyleStor.DefaultStylePath & "ESRI.ServerStyle" 'IStyleGalleryStorage:efaultStylePath下存儲的是默認的Style文件夾路徑
27 _StyleStor.TargetFile = _ServerStylePath '此處指定目標文件
28
29 '將游標重設(shè)在開始位置
30 _EnumStyleGallery.Reset()
31
32 Try
33 '返回第一個IStyleGalleryItem
34 Dim _StyleGalleryItem As IStyleGalleryItem = _EnumStyleGallery.Next()
35
36 While Not _StyleGalleryItem Is Nothing
37 '獲取所有的符號名，可以綁定到DropDownList讓用戶選擇
38 _StyleGalleryItem.Name
39
40 Exit Function
41 End If
42
43 _StyleGalleryItem = _EnumStyleGallery.Next()
44
45 End While
46
47 Catch ex As Exception
48
49 Finally
50 '釋放COM對象
51 System.Runtime.InteropServices.Marshal.ReleaseComObject(_EnumStyleGallery)
52 End Try
步驟3
獲取ISymbol對象
在步驟2的過程中，獲取到了IStyleGalleryItem 對象
Dim symbol as ISymbol=_StyleGalleryItem.Item
步驟4
1 Dim mapserver As AGSServer = New AGSServer()
2
3 mapserver.InitializeVar(Map)
4
5 Dim soc As ESRI.ArcGIS.Server.ServerContext = mapserver.GetSOC()
6
7 Dim CatoMap As ESRI.ArcGIS.Carto.IMap = mapserver.GetMap()
8
9 Dim layers As ESRI.ArcGIS.Carto.IEnumLayer = CatoMap.Layers
10
11 layers.Reset()
12
13 Dim layer As ESRI.ArcGIS.Carto.ILayer = layers.Next()
14
15 While Not layer Is Nothing
16
17 If layer.Name = LayerName Then
18 Exit While
19 End If
20 layer = layers.Next()
21
22 End While
23
24 Dim geoFeatLayer As ESRI.ArcGIS.Carto.IGeoFeatureLayer = CType(layer, ESRI.ArcGIS.Carto.IGeoFeatureLayer)
25
26 Dim pSimRen As ESRI.ArcGIS.Carto.ISimpleRenderer = CType(soc.CreateObject("esriCarto.SimpleRenderer"), ESRI.ArcGIS.Carto.ISimpleRenderer)
27
28
29
30 Dim pFLayer As ESRI.ArcGIS.Carto.IFeatureLayer = layer
31 Dim pFClass As ESRI.ArcGIS.Geodatabase.IFeatureClass = pFLayer.FeatureClass
32
33 Select Case pFClass.ShapeType
34
35 Case esriGeometryType.esriGeometryPoint
36
37 symbol = LoadSymbol(_StyleClassNames(0), SymbolName)
38
39 Exit Select
40 Case esriGeometryType.esriGeometryPolyline
41 '線和面的與點的相同
42 Case esriGeometryType.esriGeometryPolygon
43
44
45 End Select
46 pSimRen.Symbol = symbol
47 geoFeatLayer.Renderer = pSimRen
48
49 Map.Refresh()
50
51 soc.ReleaseContext()
這里是以點為例，線面的類似
1 using System;
2 using System.Data;
3 using System.Configuration;
4 using System.Web;
5 using System.Web.Security;
6 using System.Web.UI;
7 using System.Web.UI.WebControls;
8 using System.Web.UI.WebControls.WebParts;
9 using System.Web.UI.HtmlControls;
10
11
12 using ESRI.ArcGIS.ADF.Web.UI.WebControls;
13 using ESRI.ArcGIS.Server.WebControls;
14
15 using ESRI.ArcGIS.ADF.Web;
16 using ESRI.ArcGIS.ADF;
17
18 using ESRI.ArcGIS.ADF.Web.DataSources.ArcGISServer;
19 using ESRI.ArcGIS.ADF.Web.DataSources.Graphics;
20 using ESRI.ArcGIS.ADF.Web.DataSources;
21
22 using ESRI.ArcGIS.Geometry;
23 using ESRI.ArcGIS.Server;
24 using ESRI.ArcGIS.Geodatabase;
25 using ESRI.ArcGIS.Carto;
26 using ESRI.ArcGIS.ADF.Connection;
27 using ESRI.ArcGIS.Display;
28
29
30
31 /// <summary>
32 /// AGSBase 的摘要說明
33 /// </summary>
34 public class AGSServer
35 {
36 private IMapServer m_pMapServer;
37 private IMap m_pMap;
38 private IServerContext m_pSOC;
39 private ESRI.ArcGIS.ADF.ArcGISServer.MapDescription m_MapDes;
40 private IMapFunctionality m_pMapFunc;
41
42
43 public AGSServer（）{
44 //構(gòu)造函數(shù)
45 m_pMapServer = null;
46 m_pMap = null;
47 m_pSOC = null;
48 m_MapDes = null;
49
50 }
51
52 public void InitializeVar(ESRI.ArcGIS.ADF.Web.UI.WebControls.Map mapCtrl)
53 {
54 m_pMapFunc = mapCtrl.GetFunctionality(0);
55 MapResourceLocal mapResLocal = m_pMapFunc.Resource as MapResourceLocal;
56
57 m_pSOC = mapResLocal.ServerContextInfo.ServerContext;
58 m_pMapServer = m_pSOC.ServerObject as IMapServer;
59 IMapServerObjects pMapServerObjs = m_pMapServer as IMapServerObjects;
60 m_pMap = pMapServerObjs.get_Map(m_pMapServer.DefaultMapName);
61
62 m_MapDes = mapResLocal.MapDescription;
63
64 return;
65 }
66
67 public IMapFunctionality GetMapFunctionality()
68 {
69 return m_pMapFunc;
70 }
71
72 public IMap GetMap()
73 {
74 return m_pMap;
75 }
76
77 public IMapServer GetMapServer()
78 {
79
80 return m_pMapServer;
81
82 }
83
84
85 public ESRI.ArcGIS.ADF.ArcGISServer.MapDescription GetMapDescription()
86 {
87
88 return m_MapDes;
89 }
90
91 public IServerContext GetSOC()
92 {
93
94 return m_pSOC;
95
96 }
97
98
99 }
總結(jié)
以上是生活随笔為你收集整理的【原创】利用ESRI自带的符号库进行符号化的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Apache Ivy
- 下一篇： C#获取图片的后缀名