Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

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

Print/Bildbearbeitung - Photos, Layout, Design

Themen

Beiträge

Moderatoren

Letzter Beitrag

Adobe InDesign Skriptwerkstatt

2492

18050

Gerald Singelmann, Hans Haesler, Martin Fischer

9. Apr 2024, 08:56

typecookie

1 2

WernerPerplies

Beiträge gesamt: 2762

9. Dez 2017, 08:41
Beitrag # 16 von 20
Beitrag ID: #561355
Bewertung:
(4303 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]

Zustand der Sichtbarkeit bei Ebenen hin und her toggeln

Uwe Laubender

Beiträge gesamt: 5316

10. Dez 2017, 18:33
Beitrag # 17 von 20
Beitrag ID: #561371
Bewertung:
(4129 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: 2762

11. Dez 2017, 07:52
Beitrag # 18 von 20
Beitrag ID: #561375
Bewertung:
(4034 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:
(3992 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:
(3804 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]

1 2

Aktuell

Web / SEO / Blockchain / Betriebssystem

Schutz vor Fake-Shops mit Verbraucherschild.de

| 24.11.2023

Weitere Events

Neuste Foreneinträge

Mein Tagesausflug ins Land CorelDraw

App Store: zu viele Sprachen werden aufgelistet

Eizo Monitorkalibrierung auf Windows

Fußnoten zu Endnoten konvertieren

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

Platzierte Vektorgrafiken skalieren

SMS ab Server senden? Wie geht das?

WebShare Verzeichnisse im SharePoint erstellen

Buchsrabensteuerung

Klickbare Links zu Seiten in einem Buch aus extern erzeugtem Index erstellen

Weitere Stellenangebote