Set a specific symbol for the feature theme

Summary

The sample scripts in this article demonstrate how to set symbols for a theme.

Procedure

• Simple legend for point and line themes.
  
  

  Code:
  '-- Create a new theme from a feature source: 
  theView = av.GetProject.FindDoc("View1") 
  
  '-- This line has to be changed for line themes. Use arc instead
  '-- of point for feature type. You will need to make changes
  '-- to the path where your data resides.
  
  theTheme = Theme.Make("c:\esri\esridata\usa\cities.shp".AsSrcName) 
  theTheme.SetName("Calif Cities") 
  theView.AddTheme(theTheme) 
  theTheme.SetVisible(true) 
  theTheme.SetActive(true) 
  
  theLegend = theTheme.GetLegend 
  NewLegend = theLegend.Clone 
  
  '-- Refer the symbol palette for the number to be used with Get().
  '-- For line themes use #PALETTE_LIST_PEN instead of #PALETTE_LIST_MARKER. 
  
  CurrSymbol = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_MARKER).Get(1) 
  NewSymbol = Symbol.Make(#SYMBOL_MARKER) 
  NewSymbol.Copy(CurrSymbol) 
  NewSymbol.SetColor(Color.GetRed) 
  NewSymbol.SetSize(6) 
  NewLegend.GetSymbols.Set(0, NewSymbol) 
  
  '-- Refresh the theme without refreshing other themes in the view. 
  theTheme.SetLegend(NewLegend) 
  theTheme.InvalidateLegend 
  theTheme.UpdateLegend
  

  
  
• Sample legend for polygon themes.
  
  

  Code:
  '-- Create a new theme from a feature source: 
  theView = av.GetProject.FindDoc("View1") 
  
  '-- You will need to make changes to the path where your data resides.
  
  theTheme = Theme.Make("c:\esri\esridata\usa\counties.shp".AsSrcName) 
  theTheme.SetName("USA Counties") 
  theView.AddTheme(theTheme) 
  theTheme.SetVisible(true) 
  theTheme.SetActive(true) 
    
  theLegend = theTheme.GetLegend 
  '-- Modified lines. 
  '------------------
  '-- This returns a COLOR object, not a SYMBOL; thus, create a
  '-- new symbol and set its color using this returned object. 
  NewCol = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_COLOR).Get(9) 
  NewSymbol = Symbol.Make(#SYMBOL_FILL) 
  NewSymbol.SetColor(NewCol) 
  '------------------
  
  NewLegend = theLegend.GetSymbols.Set(0, NewSymbol) 
  
  '-- Refresh the theme without refreshing other themes in the view. 
  theTheme.InvalidateLegend
  

  
  
• Graduated legend classification.
  
  

  Code:
  '-- Sample script to manipulate the Legend of a theme
  '-- and its classifications (Values and Labels) 
  '-- The example uses a legend with three classifications. 
  
  '-- Gets the view 
  theView = av.GetProject.FindDoc("View1") 
  
  '-- Get the theme. Use sample data in AVDATA. If other themes are 
  '-- used, the values for classification should be changed. 
  theTheme = theView.FindTheme("States") 
  
  '-- Get legend and corresponding classifications. 
  theLegend = theTheme.GetLegend 
  theClasses = theLegend.GetClassifications 
  
  '-- Define the shade symbol for all the unselected countries. 
  b = Symbol.Make(#SYMBOL_FILL) 
  b.SetColor(Color.GetRed) 
  b.SetOlColor(Color.GetBlack) 
  
  '-- Update the legend with this symbol. This symbol is added as
  '-- the first element in the legend's symbol list.
  theLegend.GetSymbols.Set(0,b) 
  
  '-- Define the shade symbol for the selected country. 
  c = Symbol.Make(#SYMBOL_FILL) 
  c.SetColor(Color.GetGreen) 
  c.SetOlColor(Color.GetBlack) 
    
  '-- Update the legend with this symbol. This symbol is added
  '-- as the second element in the legend's symbol list.
  '-- Symbol b is again added to the symbol list as the third element. 
  
  theLegend.GetSymbols.Set(1,c) 
  theLegend.GetSymbols.Set(2,b) 
    
  '-- Manipulate the classification values and labels 
  i = theClasses.Get(0) 
  i.SetMinimum(1) 
  i.SetMaximum(39) 
  
  i.SetLabel("1 - 39") 
  
  i = theClasses.Get(1) 
  i.setMinimum(40) 
  i.SetMaximum(40) 
  i.SetLabel("40") 
  
  i = theClasses.Get(2) 
  i.SetMinimum(41) 
  i.SetMaximum(51) 
  i.SetLabel("41-51") 
  
  '-- Update the theme with the new shades. 
  theTheme.UpdateLegend 
  theview.invalidate
  

  
  
• To use these scripts:
  
  1. Open a new script window.
  
  
  A. Activate the Project window.
  B. Click the Scripts icon.
  C. Click New.
  
  
  
  2. Copy a script into the new window.
  
  3. Change the paths in the script to match the data on your machine.
  
  4. Click the Compile button.
  
  5. Click the Run button.
  
  Repeat these steps for the other scripts.