Verkleinern von Polygonen

Mit folgendem Avenue-Skript gehts, einfachen die Namen von View, Flächenthema und Linienthema austauschen, kompilieren und ausführen:

theView = av.FindDoc("View1")
LTheme = theView.FindTheme("Linien.shp")
PTheme = theView.FindTheme("Flaechen.shp")
LFTab = LTheme.GetFTab
LShapeFld = LFTab.Findfield("shape")
PFTab = PTheme.GetFTab
PShapeFld = PFTab.Findfield("shape")
NewPolygonList = {}

theView.SetEditableTheme(PTheme)

if (LFTab.GetSelection.Count = 0) then
LFTab.GetSelection.Setall
end

'Alle Linien einzeln durchgehen und jedes Mal des Thema "splitten"
for each lrec in LFTab.GetSelection
theLine = LFTab.ReturnValue(LShapeFld,lrec)
PTheme.GetFTab.BeginTransaction
PTheme.Split(theLine)
PTheme.GetFtab.EndTransaction
end

PFTab.SetEditable(false)

av.GetProject.SetModified(true)

Ich hoffe, das hilft Dir, sonst Rückfrage!
Gruß Daniel