• 【原创】利用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的名称都获取到了,具体有以下种类:
     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            '将游标重设在开始位置
    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()

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

    符号化.jpg

     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         //构造函数
    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 }
  • 相关阅读:
    10.30 afternoon
    10.29 afternoon
    10.29 morning

    10.27 noip模拟试题
    codevs 3052 多米诺 二分图匹配
    poj 1849 Two
    10.26 noip模拟试题
    10.25 noip模拟试题
    .NET Core EF 版本问题
  • 原文地址:https://www.cnblogs.com/danni5678/p/1172622.html
Copyright © 2020-2023  润新知