[GastForen Programme Print/Bildbearbeitung Adobe InDesign Skriptwerkstatt Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Print/Bildbearbeitung - Photos, Layout, Design
Themen
Beiträge
Moderatoren
Letzter Beitrag

Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

WernerPerplies
Beiträge gesamt: 2763

9. Dez 2017, 08:41
Beitrag # 16 von 20
Beitrag ID: #561355
Bewertung:
(4314 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
:-)
Ok, offensichtlich fand niemand meinen Code interessant genug um ihn auszuprobieren, denn die Umschaltung funktioniert natürlich nur für das Dokument.

Wortsalat möchte hingegen die Ebenen im Dokument ausdrücklich nicht umschalten, denn die englische Ebene ist in seinem Beispieldokument leer.

Ich habe deshalb diesen Teil, im jetzt hoffentlich richtig funktionierenden Skript, auskommentiert.

Es ist übrigens nicht so, dass sich die ID der importierten Seite ändert, sondern es wird beim Umschalten der Sichtbarkeit ein komplett neues Objekt "ImportedPage" erzeugt.

Damit kann man das Objekt nicht über den Namen oder ein eingefügtes Label wiederfinden.

Der Container (Parent), im Beispiel ein Rectangle, bleibt hingegen erhalten und wird im folgenden Skript benutzt.

Code
/*Any*/ Array.prototype.parentsOfImportedPages=function() 
{
/*Int*/l = this.length, /*Array*/parents = new Array(this.length), /*Int*/c = -1;
for (var i = 0; i < l; i++)
{
if (!("parent" in this[i]))
continue;
if (("importedPages" in this[i].parent) && (this[i].parent.importedPages.length > 0))
parents[++c] = this[i].parent;
}
parents.length= ++c;
return parents;
}


main();

/*void*/function main()
{
try
{
/*Document*/var doc = app.activeDocument, /*Graphics*/parentsOfImportedPages = doc.allGraphics.parentsOfImportedPages(), /*Int*/l = parentsOfImportedPages.length,
/*Graphic*/parentsOfImportedPage = null, /*ImportedPage*/ importedPage = null, /*Int*/ll = -1;
/*
if ((doc.layers.itemByName("DE").isValid) || (doc.layers.itemByName("EN").isValid))
{
doc.layers.itemByName("DE").visible = !(doc.layers.itemByName("DE").visible);
doc.layers.itemByName("EN").visible = !(doc.layers.itemByName("EN").visible);
}
*/
for (var i = 0; i < l; i++)
{
parentsOfImportedPage = parentsOfImportedPages[i];
ll = parentsOfImportedPage.importedPages.length;
for (var ii = 0; ii < ll; ii++)
{
importedPage = parentsOfImportedPage.importedPages[ii];
if (("graphicLayerOptions" in importedPage) && ("graphicLayers" in importedPage.graphicLayerOptions))
{
if ((importedPage.graphicLayerOptions.graphicLayers.itemByName("DE").isValid) || (importedPage.graphicLayerOptions.graphicLayers.itemByName("EN").isValid))
{
importedPage.graphicLayerOptions.graphicLayers.itemByName("DE").currentVisibility = !(importedPage.graphicLayerOptions.graphicLayers.itemByName("DE").currentVisibility);
importedPage = parentsOfImportedPage.importedPages[ii];
importedPage.graphicLayerOptions.graphicLayers.itemByName("EN").currentVisibility = !(importedPage.graphicLayerOptions.graphicLayers.itemByName("EN").currentVisibility);
}
}
}
}
}
catch (error)
{
alert("Fehlermeldung: " + error.message + "\nin Datei: " + error.fileName + "\nin Zeile: " + error.line );
}
}



als Antwort auf: [#561334]
X

Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

Uwe Laubender
Beiträge gesamt: 5319

10. Dez 2017, 18:33
Beitrag # 17 von 20
Beitrag ID: #561371
Bewertung:
(4140 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Werner,
ich möchte noch vor einer "bösen Falle" warnen:

Ein bestimmter Name einer Ebene mag in InDesign nur ein einziges mal vergebbar sein, in beispielsweise PhotoShop oder Illustrator ist das nicht der Fall. Da können beliebige Ebenen den gleichen Namen tragen.


als Antwort auf: [#561355]

Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

WernerPerplies
Beiträge gesamt: 2763

11. Dez 2017, 07:52
Beitrag # 18 von 20
Beitrag ID: #561375
Bewertung:
(4045 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin Uwe,

Zitat Ein bestimmter Name einer Ebene mag in InDesign nur ein einziges mal vergebbar sein, in beispielsweise PhotoShop oder Illustrator ist das nicht der Fall. Da können beliebige Ebenen den gleichen Namen tragen.


Und ich halte InDesigns Design dieses Features für einen Fehler.

Aber richtig schlimm es natürlich, dass sich das Design innerhalb einer Produktfamilie unterscheidet.

Natürlich möchte ich mehrere Ebenen gleich benennen können, das zeigt gerade die Verwendung von Länderkennzeichen. Es könnte durchaus gewünscht sein, dass man mehrere Ebenen für ein Land verwenden möchte.

Deshalb wäre es vermutlich sinnvoller, das Skript so zu ändern, dass abgefragt würde, ob ein LKZ enthalten ist.

Generell würde ich allerdings in einem professionellen Skript die Ebenen als Parameter in zwei Arrays ([visible],[invisible]) übergeben und keinesfalls irgendwelche Abfragen hart codieren.


als Antwort auf: [#561371]
(Dieser Beitrag wurde von WernerPerplies am 11. Dez 2017, 08:06 geändert)

Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

Wortsalat
Beiträge gesamt: 87

11. Dez 2017, 11:25
Beitrag # 19 von 20
Beitrag ID: #561377
Bewertung:
(4003 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin zusammen,

@Herr Perplies
Antwort auf: ...
Ok, offensichtlich fand niemand meinen Code interessant genug um ihn auszuprobieren, denn die Umschaltung funktioniert natürlich nur für das Dokument.


Ich habe es getestet und es ist mir auch aufgefallen ;-)

@Kai Rübsamen
Ich habe versucht, das Script in VBS zu schreiben.
Komme aber mit "parent" nicht klar. Dafür programmiere ich dann doch zu selten.

Dafür habe ich jetzt noch eine andere Variante in VBS geschrieben. Vielleicht etwas umständlich aber es funktioniert.
In diesem Script lese ich die IDs der eingebundenen InDesign Dateien in ein Array ein (separate Funktion).
Das Ansprechen der Dateien erfolgt über die IDs.
Nach jedem Umschalten einer Ebene wird das Array mit den IDs aktualisiert.


Code
'*********************************************************** 
'11.12.2017
'Ebenen bei eingebundenen InDesign-Dateien umschalten (Toggeln)
'HINWEIS: Beim Umschalten einer Ebene ändert sich die ID!
'***********************************************************

Set myInDesign = CreateObject("InDesign.Application.cs6")
Set myDocument = myInDesign.ActiveDocument
LinksID = F_Array_DateiID

For x = 1 to UBOUND(LinksID)

LinksID = F_Array_DateiID
Set Datei = MyDocument.allGraphics.ItemById(LinksID(x))
Set Ebenen = Datei.graphicLayerOptions.graphicLayers
Ebenen.item("DE").CurrentVisibility = Not(Ebenen.item("DE").CurrentVisibility)

LinksID = F_Array_DateiID
Set Datei = myDocument.allGraphics.ItemById(LinksID(x))
Set Ebenen = Datei.graphicLayerOptions.graphicLayers
Ebenen.item("EN").CurrentVisibility = Not(Ebenen.item("EN").CurrentVisibility)

Next


'******************************************************************
'ID der eingebundenen Dateien (Typ: InDesign) in ein Array schreiben
'Aufruf: F_Array_DateiID()
'==================================================================

Public Function F_Array_DateiID()

Set myInDesign = CreateObject("InDesign.Application.CS6")
Set myDocument = myInDesign.ActiveDocument
REDIM e(1

For n = 1 to myDocument.allGraphics.count
Set Datei = myDocument.allGraphics.Item(n)
If Datei.ImageTypeName = "InDesign" then
e(UBOUND(e)) = Datei.ID
REDIM PRESERVE e(UBOUND(e)+1)
End if
Next

REDIM PRESERVE e(UBOUND(e)-1)
F_Array_DateiID = e

End Function



als Antwort auf: [#561355]
(Dieser Beitrag wurde von Wortsalat am 11. Dez 2017, 11:42 geändert)

Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

Wortsalat
Beiträge gesamt: 87

12. Dez 2017, 14:01
Beitrag # 20 von 20
Beitrag ID: #561391
Bewertung:
(3815 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Mein letztes Script führt zu einem Fehler, wenn in einer eingebundenen Datei die Ebene "DE" oder "EN" nicht vorhanden ist.
Hier noch eine Erweiterung, in der geprüft wird, ob die Ebenen vorhanden sind.



Code
'****************************************************************************************** 
'11.12.2017
'Ebenen bei eingebundenen InDesign-Dateien umschalten (Toggeln)
'HINWEIS: Beim Umschalten einer Ebene ändert sich die ID!
'******************************************************************************************

Set myInDesign = CreateObject("InDesign.Application.cs6")
Set myDocument = myInDesign.ActiveDocument
LinksID = F_Array_DateiID

For x = 1 to UBOUND(LinksID)

LinksID = F_Array_DateiID
Set Datei = myDocument.allGraphics.ItemById(LinksID(x))
Set Ebenen = Datei.graphicLayerOptions.graphicLayers
If F_EbeneExist(LinksID(x), "DE") = True then
Ebenen.item("DE").CurrentVisibility = Not(Ebenen.item("DE").CurrentVisibility)
end if

LinksID = F_Array_DateiID
Set Datei = myDocument.allGraphics.ItemById(LinksID(x))
Set Ebenen = Datei.graphicLayerOptions.graphicLayers
If F_EbeneExist(LinksID(x), "EN") = True then
Ebenen.item("EN").CurrentVisibility = Not(Ebenen.item("EN").CurrentVisibility)
End if
Next



'******************************************************************************************
'ID der eingebundenen Dateien (Typ InDesign) in ein Array schreiben
'Aufruf: F_Array_DateiID()
'==========================================================================================

Public Function F_Array_DateiID()

Set myInDesign = CreateObject("InDesign.Application.CS6")
Set myDocument = myInDesign.ActiveDocument
REDIM e(1)

For n = 1 to myDocument.allGraphics.count 'Alle Grafiken durchlaufen
Set Datei = myDocument.allGraphics.Item(n)
If Datei.ImageTypeName = "InDesign" then 'Prüfen, ob Typ InDesign
e(UBOUND(e)) = Datei.ID 'ID in Array schreiben
REDIM PRESERVE e(UBOUND(e)+1)
End if
Next

REDIM PRESERVE e(UBOUND(e)-1) 'Array, letzte Stelle löschen
F_Array_DateiID = e

End Function



'******************************************************************************************
'Prüfen, ob eine Ebene existiert
'Aufruf: F_EbeneExist(LinkID, Ebene)
'Parameter: LinkID = ID der eingebundenen Datei, Ebene = Name der gesuchten Ebene
'==========================================================================================

Public Function F_EbeneExist(LinkID, Ebene)

F_EbeneExist = False

Set myInDesign = CreateObject("InDesign.Application.CS6")
Set myDocument = myInDesign.ActiveDocument
Set Datei = myDocument.allGraphics.ItemById(LinkID)

For x1 = 1 to Datei.graphicLayerOptions.graphicLayers.count
If Datei.graphicLayerOptions.graphicLayers.Item(x1).Name = Ebene then
F_EbeneExist = True
End if
Next
End Function



als Antwort auf: [#561377]
X

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
14.05.2024

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Ja

Organisator: Impressed / Horizon

https://www.impressed.de/schulung.php?c=sDetail&sid=327

Einsparpotenziale in der Weiterverarbeitung
Veranstaltungen
16.05.2024

Online
Donnerstag, 16. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Nein

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!