【原创】利用ESRI自带的符号库进行符号化

 

ArcGIS中自带有丰富的符号库，在ArcGIS Server中使用符号库的符号进行符号化思路如下：
  1.首先要知道符号库中的符号分为哪些种类，才能在进行符号化时对应不同类型图层进行相应的符号化；
  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的名称都获取到了，具体有以下种类：

Reference Systems,
Maplex Labels,
Shadows,
Area Patches,
Line Patches,
Labels,
Representation Markers,
North Arrows,
Scale Bars,
Legend Items,
Scale Texts,
Color Ramps,
Borders,Backgrounds,
Colors,
Vectorization Settings,
Fill Symbols,
Line Symbols,
Marker Symbols,
Text Symbols,
Representation Rules,
Hatches

常用的有：Marker Symbols    Line Symbols     Fill Symbols      Borders等

---

步骤2 

         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            '此处指定目标文件

           '将游标重设在开始位置
            _EnumStyleGallery.Reset()

            Try
                '返回第一个IStyleGalleryItem
                Dim _StyleGalleryItem As IStyleGalleryItem = _EnumStyleGallery.Next()

                While Not _StyleGalleryItem Is Nothing
                  '获取所有的符号名，可以绑定到DropDownList让用户选择
                    _StyleGalleryItem.Name

                        Exit Function
                    End If

                    _StyleGalleryItem = _EnumStyleGallery.Next()

                End While

            Catch ex As Exception

            Finally
                '释放COM对象
                System.Runtime.InteropServices.Marshal.ReleaseComObject(_EnumStyleGallery)
            End Try

 

---

步骤3
获取ISymbol对象
在步骤2的过程中，获取到了IStyleGalleryItem 对象
Dim symbol as ISymbol=_StyleGalleryItem.Item

---

步骤4

           Dim mapserver As AGSServer = New AGSServer()

            mapserver.InitializeVar(Map)

            Dim soc As ESRI.ArcGIS.Server.ServerContext = mapserver.GetSOC()

            Dim CatoMap As ESRI.ArcGIS.Carto.IMap = mapserver.GetMap()

            Dim layers As ESRI.ArcGIS.Carto.IEnumLayer = CatoMap.Layers

            layers.Reset()

            Dim layer As ESRI.ArcGIS.Carto.ILayer = layers.Next()

            While Not layer Is Nothing

                If layer.Name = LayerName Then
                    Exit While
                End If
                layer = layers.Next()

            End While

            Dim geoFeatLayer As ESRI.ArcGIS.Carto.IGeoFeatureLayer = CType(layer, ESRI.ArcGIS.Carto.IGeoFeatureLayer)

            Dim pSimRen As ESRI.ArcGIS.Carto.ISimpleRenderer = CType(soc.CreateObject("esriCarto.SimpleRenderer"), ESRI.ArcGIS.Carto.ISimpleRenderer)



            Dim pFLayer As ESRI.ArcGIS.Carto.IFeatureLayer = layer
            Dim pFClass As ESRI.ArcGIS.Geodatabase.IFeatureClass = pFLayer.FeatureClass

            Select Case pFClass.ShapeType

                Case esriGeometryType.esriGeometryPoint

                    symbol = LoadSymbol(_StyleClassNames(0), SymbolName)

                    Exit Select
                Case esriGeometryType.esriGeometryPolyline
                    '线和面的与点的相同
                Case esriGeometryType.esriGeometryPolygon


            End Select
            pSimRen.Symbol = symbol
            geoFeatLayer.Renderer = pSimRen

            Map.Refresh()

            soc.ReleaseContext()

---

这里是以点为例，线面的类似

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;


using ESRI.ArcGIS.ADF.Web.UI.WebControls;
using ESRI.ArcGIS.Server.WebControls;

using ESRI.ArcGIS.ADF.Web;
using ESRI.ArcGIS.ADF;

using ESRI.ArcGIS.ADF.Web.DataSources.ArcGISServer;
using ESRI.ArcGIS.ADF.Web.DataSources.Graphics;
using ESRI.ArcGIS.ADF.Web.DataSources;

using ESRI.ArcGIS.Geometry;
using ESRI.ArcGIS.Server;
using ESRI.ArcGIS.Geodatabase;
using ESRI.ArcGIS.Carto;
using ESRI.ArcGIS.ADF.Connection;
using ESRI.ArcGIS.Display;



/// <summary>
/// AGSBase 的摘要说明
/// </summary>
public class AGSServer
{
    private IMapServer m_pMapServer;
    private IMap m_pMap;
    private IServerContext m_pSOC;
    private ESRI.ArcGIS.ADF.ArcGISServer.MapDescription m_MapDes;
    private IMapFunctionality m_pMapFunc;


    public AGSServer（）{
        //构造函数
        m_pMapServer = null;
        m_pMap = null;
        m_pSOC = null;
        m_MapDes = null;
       
}

    public void InitializeVar(ESRI.ArcGIS.ADF.Web.UI.WebControls.Map mapCtrl)
    {
        m_pMapFunc = mapCtrl.GetFunctionality(0);
        MapResourceLocal mapResLocal = m_pMapFunc.Resource as MapResourceLocal;

        m_pSOC = mapResLocal.ServerContextInfo.ServerContext;
        m_pMapServer = m_pSOC.ServerObject as IMapServer;
        IMapServerObjects pMapServerObjs = m_pMapServer as IMapServerObjects;
        m_pMap = pMapServerObjs.get_Map(m_pMapServer.DefaultMapName);

        m_MapDes = mapResLocal.MapDescription;

        return;
    }

    public IMapFunctionality GetMapFunctionality()
    {
        return m_pMapFunc;
    }

    public IMap GetMap()
    {
        return m_pMap;
    }

    public IMapServer GetMapServer()
    {

        return m_pMapServer;       
        
    }


    public ESRI.ArcGIS.ADF.ArcGISServer.MapDescription GetMapDescription()
    {

        return m_MapDes;
    }

    public IServerContext GetSOC()
    {

        return m_pSOC;
        
    }

    
}