In Shape umwandeln

Moin again Klaus, wie wär's damit:

- Nimm das View.Export Skript und nenn es GutesScript :)
- Schreib oben:
theView = av.FindDoc("View1")
t = theView.FindTheme("Alles.shp")
def = "D:/Temp/Weniger.shp".AsFilename
- Nimm die äußere for each Schleife raus (for each und end kommentieren)
- Nimm die folgenden 2 "def"-Zeilen raus (tauchen je zwei mal im Skript auf):
def = av.GetProject.MakeFileName("theme", "shp")
def = FileDialog.Put(def, "*.shp", "Convert " + t.getName)
- Nimm die MsgBox raus, die dich fragt ob das Thema hinzugefügt werden soll

Das müsste doch schon reichen. Wenn du "GutesScript" von einem anderen Skript aus laufen lassen willst, musste die Sachen halt dort definieren und dann hier the View = Self.Get(0) usw. schreiben

Oh ja klar, aber nimm sie nicht raus sondern mach "return NIL" draus.
Sorry, happich vegessen.

Nö, lästig wird höchstens die Art der Kommunikation über blaue Briefchen... Aug in Aug wären wir bestimmt längst durch.

Also: Das break hinter attribVis = TRUE muss natürlich stehen bleiben, das ist ja in einer eigenen for each Schleife.

In diesem Abschnitt des Skriptes wird im Übrigen geprüft, ob wenigstens EIN Feld sichtbar ist. Sobald das erste sichtbare gefunden ist, wird der Suchvorgang mit "break" abgebrochen, denn EIN sichtbares Feld (plus Shapefeld) reicht für 'ne vernünftige Exporttabelle. Wenn da nun "return NIL" statt "break" steht, wird nicht die Schleife beendet, sondern das ganze Skript.

PS.: Das ist dann aber das einzige break oder continue, das bleibt...

Bei mir sähe das so aus:

'View.Export NochNKlaus
theView = av.FindDoc("SNK-Aufbereitung")
t = theView. FindTheme ("allesd_F") 'das Thema heißt so
def = (_newdir+"\301_XXXXX.shp" ).AsFileName

'for each t in theView.GetActiveThemes
p = FALSE

if (t.Is( FTHEME ).Not) then
if (t.CanExportToFtab.Not) then return NIL end

' def = av.GetProject.MakeFileName("theme", "shp")
' def = FileDialog.Put(def, "*.shp", "Convert " + t.getName)
if (def = NIL) then return NIL end
anFTab = t.ExportToFtab(def)

' For Database themes, which can return a nil FTab sometimes
if (anFTab=nil) then
MsgBox.Warning("Error occurred while converting to shapefile."+NL+
"Shapefile was not created.", "Convert " + t.getName)
return NIL
end

shpfld = anFTab.FindField("Shape")

else

tbl = t.GetFTab
attribVis = FALSE
for each f in tbl.GetFields
if ((f.IsVisible) and not (f.IsTypeShape)) then
attribVis = TRUE
break
end
end
shapeVis = tbl.FindField("Shape").IsVisible
if ((attribVis and shapeVis).Not) then
return NIL
end

' def = av.GetProject.MakeFileName("theme", "shp")
' def = FileDialog.Put(def, "*.shp", "Convert " + t.getName)
'
if (def = NIL) then return nil end

shpfld = (tbl.FindField("Shape"))
if (shpfld.IsVisible.Not) then
shpfld.SetVisible(shpfld.IsVisible.Not)
WasNotVisible = TRUE
else
WasNotVisible = FALSE
end

' see if the view is projected
thePrj = theView.GetProjection
if (thePrj.IsNull.Not) then
p = MsgBox.YesNoCancel("ArcView has detected that your view is projected."++
"Do you want the new shapefile to be saved in the projected units?",
"Convert", FALSE)
if (p = Nil) then return nil end
end

' if the user wants to project the shape, use ExportProjected
if (p) then
anFTab = tbl.ExportProjected(def, thePrj, tbl.GetSelection.Count > 0)
else
anFTab = tbl.Export(def, Shape, tbl.GetSelection.Count > 0)
end

if (anFTab.HasError) then
if (anFTab.HasLockError) then
MsgBox.Error("Unable to acquire Write Lock for file " +
def.GetBaseName,"")
else
MsgBox.Error("Unable to create " + def.GetBaseName,"")
end
return nil
end

if (WasNotVisible) then
shpfld.SetVisible(FALSE)
end

end

' build the spatial index
anFTab.CreateIndex(shpfld)

' don't add the projected shapefile to the view -
' it won't show up if you do!
if (p.Not) then
' if (MsgBox.YesNo("Add shapefile as theme to the view?",
' "Convert to Shapefile",true).Not) then return NIL end

' create a theme and add it to the View
fthm = FTheme.Make(anFTab)
theView.AddTheme(fthm)
else
MsgBox.Info("Since your view is projected, the projected data" ++
"will not be added to the view. It has been saved on disk.", "Convert")
end

' bring the View to the front
theView.GetWin.Activate
'end

Na Klaus, wenn er hier aussteigt, kann das ja eigentlich nur daran liegen,dass in deinem "Alles"-Thema entweder attribvis oder shapevis oder beides false ist (oh man, was für ein Deutsch; ich meine natürlich: dass in deinem "Alles"-Thema entweder das Shape-Feld, oder die anderen Attributfelder oder alle Felder unsichtbar sind).

Nun ja, wenn's funzt...

Von UltraEdit hab ich eigentlich auch nur Gutes gehört. Da gibt's ja auch diese Extension von Mel VanderWal die dafür einen ArcView-Connect macht. Nun ja, wir haben hier TextPad (damit kann man eigentlich auch alles machen - vielleicht außer Gemüse einkochen). Schön auch SciTE (umsonst). Beide Editoren gibt's mit Avenue Syntax-Hervorhebung.
Hmm, aber wenn ich recht überlege, schreibe ich so gut wie immer im Skripteditor von ArcView...

...wir sind schon wieder off-topic