Script-Probleme

Hallo!

Mein erster Gedanke dazu:

Das Script setzt voraus, daß mindestens 1 Objekt markiert ist.

Danke erstmal für die Übersetzung.
Warum sagt mir das Script das denn auch, wenn ich ein Objekt markiert habe? Ist ein Record kein Objekt?
Ist ein Index-Polygon was anderes als ein normales Polygon?

Maggie

Hi André,
ich sehe schon, ich hätte das Script gleich posten sollen. Es ist nicht aus meiner Feder, aber ich denke, Bill Chappell hat nix dagegen.
Und ja, ich bin sicher, daß ich das richtige Thema ausgewählt hatte (es war nur eins). Ich habe alle möglichen Versionen (Thema aktiv, in-) ausprobiert, es wollte nicht.
Zwischenzeitlich habe ich mir manuell beholfen, ich hatte keine Wahl, aber für's nächste Projekt mit zig tausend Bildern hätte ich doch lieber ein Script.

Danke im Voraus!
Maggie

So, hier das Script:
'Bill Chappell 8/01
'This script was designed to use the mouse click over a theme to determine
'which image, then it loads the image behind the theme.
' Reads the Active theme's "image" field to determine path/filename
'
'Add this to the AV GUI as a tool

theView = av.GetActiveDoc
theTheme = theView.getactivethemes.get(0)

theThemes = theView.GetActiveThemes

For each i in theThemes
i.SetActive(False)
End

theTheme.SetActive(True)
theTheme.SetVisible(True)

r = theView.ReturnUserRect
if (r.IsNull) then
p = theView.GetDisplay.ReturnUserPoint
op = #VTAB_SELTYPE_NEW

for each t in theThemes
if (t.CanSelect) then
t.SelectByPoint(p, op)
end
end
else
op = #VTAB_SELTYPE_NEW

for each t in theThemes
if (t.CanSelect) then
t.SelectByRect(r, op)
end
end
end
av.GetProject.SetModified(true)

theVTab = theTheme.GetFTab

theImageField = theVtab.FindField("Image")

if (theImageField = nil) then
msgBox.Info("No IMAGE field in this theme","")
return Nil
end
theImageList = {}

If (theVTab.GetNumSelRecords < 1) then
msgBox.Warning("No DOQ Index Polygon Selected","ERROR")
return Nil
else
For each record in theVtab.GetSelection
theDOQ = theVtab.ReturnValueString(theImageField,record)
theImage = (theDOQ.Trim)
theImageList.Add(theImage)
End
End


For each i in theImageList
dataSrc = SrcName.Make(i)
if (dataSrc <> nil) then
theImageTheme = Theme.Make(dataSrc)
theView.AddTheme(theImageTheme)
else
msgBox.Warning("Image not Available"+nl+"Check Folder for Image","ERROR")
return Nil
end

theThemeList=theview.GetThemes
theThemeList.Get(0).SetVisible(true)
theThemeList.Shuffle(theImageTheme,(theThemeList.Count))

end

theTheme.SetActive(True)
theView.InvalidateTOC(nil)
theView.GetDisplay.Invalidate(true)

Hallo Johannes,
doch, ich habe es einem Werkzeug zugeordnet, und dieses auch den Views zugeordnet.
Es will auch arbeiten, bringt nur die Fehlermeldung immer.
Danke für das Angebot mit dem anderen Skript, aber mir geht es eben darum, einen solchen IC zu erstellen, und dafür muß ich die Bilder erstmal in's View kriegen! Ich werde es einfach nochmal mit einem frischen Projekt probieren...

Danke und Gruß,
Maggie