View, Doppelte Themen im View

Gespeichert von Gast am
im Forum ArcView 3.x classic
Wie können doppelte Themen, insbesondere tif´s, im View automatisch gelöscht werden???

Gespeichert von Ingrid ANUVA am Di., 23.09.2003 - 16:23

Permalink
Hallo Kay,
mit der Extension EZ-Click http://arcscripts.esri.com/details.asp?dbid=11974 lassen sich alle Themen alphabetisch sortieren, damit ließen sich die doppelten rausfinden, aber nicht automatisch eliminieren und die Reihenfolge im View ist dahin...
Hilft wohl nicht viel, trotzdem schöne Grüße,

Ingrid

Gespeichert von Maxilla am Mi., 24.09.2003 - 18:49

Permalink
Hallo Kay,

es ist wahrscheinlich schon zu spät, aber beim nächsten Mal kannst du das kleine Skript da unten durchlaufen lassen. Das jeweils erste der doppelten Themen bleibt im View:

' -------------------------
' THEMEN-LISTE AUFSTELLEN:

theView = av.GetActiveDoc

if (theView.is(View).not) then
MsgBox.Info("Vorher das View aktivieren ...","")
return NIL
end

theThemes = theView.GetThemes

' -------------------------
' THEMEN-NAMEN IN LISTE SCHREIBEN:

theThmNameList = List.Make

for each aThm in theThemes
theThmNameList.Add(aThm.getName)
end

' -------------------------
' NAMEN-LISTE EINDEUTIG MACHEN:

theThmNameList.RemoveDuplicates

' -------------------------
' EINDEUTIGE THEMEN AUS DELETE-LISTE
' ENTFERNEN:

theDelThms = theThemes.clone

for each aThm in theThmNameList
theDelThms.removeObj(theView.findTheme(aThm))
end

Del = msgbox.List(theDelThms,"Diese doppelten Themen "+
"werden geloescht:"," Doppelte")

if (Del = NIL) then
return NIL
end

' -------------------------
' UNEINDEUTIGE THEMEN AUS DEM VIEW
' ENTFERNEN

For Each th in theDelThms
theView.DeleteTheme(th)
end

av.GetProject.SetModified(TRUE)
av.PurgeObjects

'--------------------------------
' HAPPY END


Gruß von Maxilla