automatisiertes ausdrucken?

moin allerseits!

ich würde gern mal ein etwas nerviges, immer wieder auftauchendes, problem von mir angehen. und zwar kommt es des öfteren vor, das ein layout viele male hintereinander mit verschiedenen ausschnitten eines views ausgedruckt werden muss (feldkarten erstellen...). hierfür habe ich gewöhnlich ein raster von rechtecken (die größe entspricht dann dem viewausschnitt der im gewünschten maßstab auf einen ausdruck passt) auf die nacheinander gezoomt werden kann. also, im view 1. raster ranzoomen, ins layout wechseln, ausdrucken (lange warten, mein rechner braucht dafür ewig...), in den view zurück wechseln, 2. raster ranzoomen usw. ist insgesamt bei größeren kartenmengen ziemlich nervtötend.
so, nun endlich meine frage: gibt es eine schlaue erweiterung die mir diese arbeit abnimmt? wenn nicht, kann mir jemensch ein paar start-tipps geben, wie ich mir ein entsprechendes script selber schreiben kann? bin nicht so bzw garnicht in avenue zu hause, aber script-logik geht eigentlich bei mir, hab viel vba und php und sowas gemacht.
bin mal gespannt was hier kommt und vielen dank schonmal und schöne grüße...

emu
moin nochmal!

schade, hatte gehofft es gibt eine erweiterung (vielleicht kommt da ja noch was?), aber wies aussieht muss ich mich wohl in avenue reinfuchsen. wenn ich die scripte hinter den links richtig verstehe, gehts da ums ausdrucken mehrerer verschiedener layouts. ich möchte aber immer dasselbe mit wechselnden inhalten bzw view-ausschnitten drucken. gibts da irgendwo einen ansatz zu? da bräuchte ich ja im prinzip nur eine schleife, die die polygone im raster-shape einzeln durchgeht, auf sie zoomt und das layout druck...
ach ja: und vielen dank für die ersten hinweise, uwe!
Hallo,

wenn sich keine Extension findet, kann man die Wartezeit beim Drucken ja abkürzen, indem man das Layout exportiert und zumindest das Drucken der Dokumente hinterher per Batchdatei automatisiert.

Gruß
Wolfgang
Hallo emu,

hier mal ein erster Versuch:

MeinView = av.GetProject.GetActiveDoc
' erstes Thema enthält Rechtecke
MeineRechtecke = MeinView.GetThemes.Get(0)

theFTab = MeineRechtecke.GetFTab
GeometrieFeld = theFTab.FindField("Shape")

' eine schleife, ...
For each rec in theFTab
'die die polygone im raster-shape einzeln durchgeht,

MeinRechteck = theFTab.ReturnValue(GeometrieFeld, rec)

'auf sie zoomt und ...
Ausdehnung = MeinRechteck.ReturnExtent
MeinView.GetDisplay.SetExtent(Ausdehnung)

das layout druck...
:
(Siehe anderen Beitrag)

End

Das habe ich aber bloß so runtergeschrieben und nicht getestet.

Gruß und SchöWo

Uwe
hey super uwe, danke schon mal! werde jetzt erstmal was zu futtern machen für die göre und mich später mal ans script setzen und ein büschen rumtüfteln. bin gespannt ob ichs hinbekomme, meld mich dann nochmal hier...
so uwe, das hier machts erstmal. nochmal danke für die hilfe und die tipps!

feldkartendruck:


'thema mit zoom-polygonen auswählen

aktiverview = av.GetActiveDoc
allethemen = aktiverview.GetThemes
txt = "Das Thema auswählen welches die Polygone für die View-Ausschnitte enthält:"
gewthema = Msgbox.List(allethemen, txt, "Thema wählen...")
If (gewthema = Nil) Then
Return Nil
End

'layout zum drucken auswählen

alledocs = av.GetProject.GetDocs
allelayouts = {}
For each aDoc in alledocs
If (aDoc.GetClass.IsSubClassOf( Layout )) then
allelayouts.Add(aDoc)
End
End
txt = "Das Layout wählen das gedruckt werden soll:"
gewlayout = Msgbox.List(allelayouts, txt, "Druck-Layout...")
If (gewlayout = Nil) Then
Return Nil
End

'polygone durchlaufen, zoomen und drucken

theftab = gewthema.GetFTab
geometriefeld = theftab.FindField("Shape")
Printer.The.Setup
For each rec in theftab
meinrechteck = theFTab.ReturnValue(geometriefeld, rec)
ausdehnung = meinrechteck.ReturnExtent
aktiverview.GetDisplay.SetExtent(ausdehnung)
gewlayout.Print
end


könnte sicher noch in eine erweiterung gepackt werden und dann per button-klick laufen, aber zum komfortableren drucken reichts auf jeden fall.
schöne grüße und bis zum nächsten mal...

emu