Legende per Avenue anpassen

Gespeichert von Gast am
im Forum ArcView 3.x classic
Hallo GIS-Gemeinde,

ich möchte gerne eine Legende per Avenue anpassen. Ich habe dazu eine Legende und ein Symbol, wie bekomme ich die Legende dazu das Symbol zu verwenden?

Hier kommt das Script

theproject = av.GetProject
theview2 = theproject.finddoc("Blatteinteilung")
thetheme2 = theview2.findtheme("Blattschnitt2.shp")

theleg = thetheme2.getlegend 'die Legende
aFill = Symbol.Make(#SYMBOL_FILL) 'das Symbol
aFill.SetColor(Color.GetYellow)
aFill.SetOLColor(Color.GetRed)
aFill.SetOlWidth(2)

theleg.SetLegendType(#LEGEND_TYPE_SIMPLE)

thetheme2.UpdateLegend


Kann jemand helfen? Danke.

MfG
Andreas

Gespeichert von Gast am Mo., 26.01.2004 - 11:38

Permalink
Hallo Andreas,
ich mache es so:
Ich speichere die richtige Legende in einem Verzeichnis ab. Im Script aktiviere ich die Legende so:
theTheme = theView.FindTheme("XXXXX")
theLegend = theTheme.GetLegend
theLegendFile = ("C:\YYYYY\Legendenname.avl").AsFilename
theLegend.Load(theLegendFile,#LEGEND_LOADTYPE_ALL)

Ich hoffe das hilft
Klaus

Gespeichert von Gast am Mo., 26.01.2004 - 11:44

Permalink
Hallo Klaus,

danke für die Antwort, leider hilft sie mir nicht sehr weiter, stellt aber auch eine denkbare alternitive dar.

Gibt es weitere Hilfestellungen ?

MfG Andreas

Gespeichert von Gast am Mo., 26.01.2004 - 13:00

Permalink
Du hast vergessen, der Legende das neue Symbol auch zuzuweisen:

theLeg.GetSymbols.Set(0,aFill)