Shape laden

Hallo Experten,
wie kann ich denn mit einem Script ein auf der Platte befindliches Shape ins TOC laden (ohne die 3000 Rückfragen aus dem VIEW.ADD ) ??
Klaus
Eine einfache (der vielen) Möglichkeiten: Ersetz im View.Add Script die 2. Codezeile

srcnames = SourceDialog.Show("")

durch

srcnames = {SrcName.Make("C:/NochnKlaus/Testshape.shp")}

wobei du den Pfad natürlich durch einen tatsächlich existieren Pfad ersetzen musst.

Zur Fehlerabsicherung könntest du als erste Zeile der for each Schleife noch

if (n = NIL) then continue end

oder etwas ähnliches einfügen.

Maxilla
Hallo Maxilla,
da ich die ganzen Sicherheitsabfragen nicht brauche habe ich es jetzt so gelöst (gibt es dazu evt. noch ne Verbesserung ????)
SrcNames = SourceDialog.Show("Shape ??")
ThemenListe={}
if (SrcNames.Count = 0) then
MsgBox.Info ("Nichts gewählt","")
return(Nil)
end
for each n in SrcNames
theTheme=Theme.Make(n)
end
theView.AddTheme(theTheme)
Nochmals Danke für die Hilfe
Klaus
Man könnte statt des "SourceDialog.Show" einen "SourceDialog.ShowClass" einfügen - das stellt sicher, dass immer zuerst die Shapes angezeigt werden auch wenn zwischendurch über das Standardtool z.B. ein Image geladen wurde:

SrcNames = SourceDialog.ShowClass("Shape ??",FSrc)

oder man macht's über einen "FileDialog.ReturnFiles", in dem dann wirklich NUR Shapes auswählbar sind. Dazu bräuchte es dann aber noch ein paar weitere kleine Änderungen...

Aber das ist nur Kleinkram...