|
|
| GeoCommunity Mailing List |
| |
| Mailing List Archives |
| Subject: | [gislist] Avenue question |
| Date: |
02/05/2004 08:55:01 AM |
| From: |
Cathy Coldrey |
|
|
Dear List,
I have a question regarding custamising Symbols in Avenue. I am using
ArcView 3.2. I have written an avenue script that is attached to a
check box in a dialogue. The script adds themes to a view and sets the
colour to magenta. I would ideally like to set the symbol to be
something other than the default to avoid confusion with other layers
such as a rectangle or triangle. I have had a look around and I have
found several scripts that make points and their symbols, but none that
alter an existing symbol.
The code I have written (and works) is below. If any one has any
suggestions as to how I can set the symbol style of an existing point it
would be of the utmost appreciation.
Thanking you desperately in advance
Cathy
'**************************
aCBWater = SELF.GetDialog.FindByName("aCheckBoxWater")
WaterThemeA = SrcName.Make("chemistryWaterwatermarch2000.shp")
WaterThemeB = SrcName.Make("chemistryWaterwateroct2000.shp")
WaterThemeC = SrcName.Make("chemistryWaterwaterjuly2000.shp")
WaterThemeD = SrcName.Make("chemistryWaterwaterjan2001.shp")
theActiveDoc = av.GetActiveDoc
isView = theActiveDoc.Is(View)
isTable = theActiveDoc.Is(Table)
isProject = theActiveDoc.Is(Project)
'**********************************************************
' this section asks if a view is the active document
'**********************************************************
If ((isView) and (aCBWater.IsSelected =true)) then
theThemeA = Theme.Make(WaterThemeA)
theActiveDoc.AddTheme(theThemeA)
theThemeA.SetVisible(true)
theThemeA.SetActive(true)
theLegendA = theThemeA.GetLegend
theLegendA.GetSymbols.Get(0).SetColor(Color.GetMagenta)
theThemeA.UpdateLegend
theThemeB = Theme.Make(WaterThemeB)
theActiveDoc.AddTheme(theThemeB)
theThemeB.SetVisible(true)
theThemeB.SetActive(true)
theLegendB = theThemeB.GetLegend
theLegendB.GetSymbols.Get(0).SetColor(Color.GetMagenta)
theThemeB.UpdateLegend
theThemeC = Theme.Make(WaterThemeC)
theActiveDoc.AddTheme(theThemeC)
theThemeC.SetVisible(true)
theThemeC.SetActive(true)
theLegendC = theThemeC.GetLegend
theLegendC.GetSymbols.Get(0).SetColor(Color.GetMagenta)
theThemeC.UpdateLegend
theThemeD = Theme.Make(WaterThemeD)
theActiveDoc.AddTheme(theThemeD)
theThemeD.SetVisible(true)
theThemeD.SetActive(true)
theLegendD = theThemeD.GetLegend
theLegendD.GetSymbols.Get(0).SetColor(Color.GetMagenta)
theThemeD.UpdateLegend
'**********************************************************
_______________________________________________
gislist mailing list
gislist@lists.geocomm.com
http://lists.geocomm.com/mailman/listinfo/gislist
_________________________________
This list is brought to you by
The GeoCommunity
http://www.geocomm.com/
Get Access to the latest GIS & Geospatial Industry RFPs and bids
http://www.geobids.com
|
|
Sponsored by:
For information
regarding
advertising rates
Click Here!
|
