If you could help me to solve my problem, that would be very kind! Thank you very much in advance.
My script (yes, an old Indesign CS3-one that still worked well in CS5):
tellapplication "Adobe InDesign CC 2015"
activate-- switch naar indesign
-- display dialog "..."
-- creëer de dialoogbox voor invoer
setmyDialogtomakedialog
tellmyDialog
setnameto "CTP Plaatsing Enve"
setmyDialogColumntomakedialog column
tellmyDialogColumn
setmyBorderPaneltomakeborder panel
tellmyBorderPanel
setmyDialogColumntomakedialog column
tellmyDialogColumn
-- make static text with properties {static label:"Ordernummer:"}
setingevoerd_ordernummertomaketext editboxwith properties {edit contents:"Werkordernummer", min width:150}
endtell
endtell
setmyBorderPaneltomakeborder panel
tellmyBorderPanel
--make static text with properties {static label:"Machine:"}
setdrukpersentomakedropdownwith properties {string list:{"HA3I", "HA6I", "HA4K", "571", "H3", "H6", "WenD", "522"}, selected index:0}
endtell
setmyBorderPaneltomakeborder panel
tellmyBorderPanel
--make static text with properties {static label:"Opmaak roteren:"}
setopmaakroterentomakedropdownwith properties {string list:{"Opmaak niet roteren", "90° met de klok mee", "90° tegen de klok in"}, selected index:0}
endtell
setmyBorderPaneltomakeborder panel
tellmyBorderPanel
--make static text with properties {static label:"Weerdruk:"}
setschoonweertomakedropdownwith properties {string list:{"Geen weerdruk", "Weerdruk", "Weerdruk op tweede plaat"}, selected index:0}
endtell
endtell
show
endtell
setordernummertoedit contentsofingevoerd_ordernummer
-- bepaal machine met bijbehorende variabelen
ifselected indexofdrukpersen = 0 then-- HA3I
setplaatbreedteto 311
setplaathoogteto 251
setplaatformaat_correctieto 0
setdrukaanvangto 30
setweerdrukafstandto 120
setmachinelabelto "xHA3I"
setpagina_orientatietolandscape
elseifselected indexofdrukpersen = 1 then-- HA6I
setplaatbreedteto 387
setplaathoogteto 494
setplaatformaat_correctieto 0
setdrukaanvangto 30
setweerdrukafstandto 240
setmachinelabelto "xH6br"
setpagina_orientatietoportrait
elseifselected indexofdrukpersen = 2 then-- HA4K
setplaatbreedteto 400
setplaathoogteto 251
setplaatformaat_correctieto 0
setdrukaanvangto 12
setweerdrukafstandto 0
setmachinelabelto "xHA4K"
setpagina_orientatietolandscape
elseifselected indexofdrukpersen = 3 then-- 571
setplaatbreedteto 311
setplaathoogteto 251
setplaatformaat_correctieto 0
setdrukaanvangto 12
setweerdrukafstandto 0
setmachinelabelto "x571"
setpagina_orientatietolandscape
elseifselected indexofdrukpersen = 4 then-- H3
setplaatbreedteto 311
setplaathoogteto 251
setplaatformaat_correctieto 0
setdrukaanvangto 30
setweerdrukafstandto 120
setmachinelabelto "xH3"
setpagina_orientatietolandscape
elseifselected indexofdrukpersen = 5 then-- H6
setplaatbreedteto 311
setplaathoogteto 494
setplaatformaat_correctieto 0
setdrukaanvangto 30
setweerdrukafstandto 241
setmachinelabelto "xH6"
setpagina_orientatietoportrait
elseifselected indexofdrukpersen = 6 then-- WenD
setplaatbreedteto 420
setplaathoogteto 491
setplaatformaat_correctieto 0
setdrukaanvangto 42
setweerdrukafstandto 0
setmachinelabelto "xWenD"
setpagina_orientatietoportrait
elseifselected indexofdrukpersen = 7 then-- 522
setplaatbreedteto 420
setplaathoogteto 491
setplaatformaat_correctieto 0
setdrukaanvangto 42
setweerdrukafstandto 241
setmachinelabelto "x522"
setpagina_orientatietoportrait
endif
-- opmaak roteren
ifselected indexofopmaakroteren = 0 then-- opmaak niet roteren
setgradento 0
elseifselected indexofopmaakroteren = 1 then-- opmaak met de klok mee roteren
setgradento -90
elseifselected indexofopmaakroteren = 2 then-- opmaak tegen de klok in roteren
setgradento 90
endif
-- schoon/weer
setaantal_paginastopages per documentofdocument preferencesofactive document
ifselected indexofschoonweer = 0 then
setweerdrukto 0
setaantal_loopstoaantal_paginas
elseifselected indexofschoonweer = 1 then
setweerdrukto 1
setaantal_loopsto (aantal_paginas / 2) asinteger
setaantal_paginasto (aantal_paginas / 2) asinteger
elseifselected indexofschoonweer = 2 then
setweerdrukto 2
setaantal_loopsto (aantal_paginas / 2) asinteger
endif
-- verwijder nu de dialoogbox uit het geheugen
destroymyDialog
-- display dialog aantal_paginas
-- initieer de rest van de variabelen
setsnijteken_offsetto 8.2915 -- zie de CTP : verschuiving is 3 mm
setordernummer_regelto "Werkorder: " & ordernummer
setgeexporteerde_pdf_bestandsnaamto "ssd:Users:enve2:Desktop:CTP:" & ordernummer& machinelabel& ".pdf"
setctp_document_bestandsnaamto "ssd:Users:enve2:Desktop:CTP:" & ordernummer& machinelabel& ".indd"
setregistratiekleurto "Registration"
setzwartto "Black"
setwitto "White"
-- exporteer de pdf die in het plaat-stramien geplaatst gaat worden
-- let op! er wordt geen controle uitgevoerd!
-- bijvoorbeeld: de 'koppelingen' worden niet gecontroleerd!
tellactive document
exportformatPDF typetogeexporteerde_pdf_bestandsnaamusing "CTP" withoutshowing options
endtell
-- maak een nieuw indesign document met de gewenste plaatafmetingen en het juiste aantal pagina's
setctp_documenttomakedocument
settransform reference pointofactive windowtocenter anchor
sethorizontal measurement unitsofview preferencestomillimeters
setvertical measurement unitsofview preferencestomillimeters
setPDF cropofPDF place preferencestocrop PDF-- hoe wordt de pdf geplaatst ; in dit geval 'bijsnijden'
settransparent backgroundofPDF place preferencestotrue
telldocument preferencesofctp_document
setfacing pagesto 0
setpage heighttoplaatbreedte-- height=breedte lijkt raar; maar anders werkt page orientation niet :-)
setpage widthtoplaathoogte-- idem
setpage orientationtopagina_orientatie
setpages per documenttoaantal_paginas
endtell
tellmargin preferencesofctp_document
setcolumn countto 1
settopto 0
setbottomto 0
setleftto 0
setrightto 0
endtell
telltext defaultsofactive document
setfill colortoregistratiekleur
setfill tintto 100
setpoint sizeto "8pt"
endtell
setpdf_paginato 1
setctp_paginato 1
repeatwithtellerfrom 1 toaantal_loops
setpage numberofPDF place preferencestopdf_paginaasnumber-- selecteer de pdf pagina die geplaatst dient te worden
tellpagectp_paginaofctp_document
setillustratiekadertomakerectanglewith properties {geometric bounds:{0, 0, plaathoogte, plaatbreedte}} -- maak illustratiekader
setgeplaatste_pdf_paginatoplacegeexporteerde_pdf_bestandsnaamonillustratiekader-- plaats de pdf pagina IN het illustratiekader
set {dummy1, dummy2, pdfhoogte, pdfbreedte} togeometric boundsofgeplaatste_pdf_pagina-- vraag de afmetingen van de pdf op
«event InESkdrt» geplaatste_pdf_paginagiven«class by »:graden-- roteer eventueel de pdf in het illustratiekader (dus niet het illustratiekader zelf)
ifgraden = 0 then-- pdf is niet geroteerd
setmovexto ((plaatbreedte - plaatformaat_correctie) / 2) - (pdfbreedte / 2) asnumber-- bereken de horizontale verplaatsing
setmoveyto (plaathoogte - pdfhoogte - drukaanvang + snijteken_offset) asnumber-- bereken de verticale verplaatsing
elseifgraden = -90 then-- pdf is geroteerd; met de klok mee
setmovexto ((plaatbreedte - plaatformaat_correctie) / 2) + (pdfhoogte / 2) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - pdfbreedte - drukaanvang + snijteken_offset} asnumber-- bereken de verticale verplaatsing
elseifgraden = 90 then-- pdf is geroteerd; tegen de klok in
setmovexto ((plaatbreedte / 2) - (pdfhoogte / 2) - plaatformaat_correctie) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - drukaanvang + snijteken_offset} asnumber-- bereken de verticale verplaatsing
endif
movegeplaatste_pdf_paginato {movex, movey} -- voer de verplaatsing uit
ifmachinelabel = "xHA4K" andgraden = 0 then
«event InESkdrt» geplaatste_pdf_paginagiven«class by »:180
endif
ifmachinelabel = "xWenD" andgraden = 0 then
«event InESkdrt» geplaatste_pdf_paginagiven«class by »:180
endif
ifmachinelabel = "x522" andgraden = 0 then
«event InESkdrt» geplaatste_pdf_paginagiven«class by »:180
endif
endtell
ifweerdruk = 1 then
setpdf_paginatopdf_pagina + 1
setpage numberofPDF place preferencestopdf_paginaasnumber-- selecteer de pdf pagina die als weerdruk geplaatst dient te worden
tellpagectp_paginaofctp_document
setillustratiekadertomakerectanglewith properties {geometric bounds:{0, 0, plaathoogte, plaatbreedte}} -- maak illustratiekader
setgeplaatste_pdf_paginatoplacegeexporteerde_pdf_bestandsnaamonillustratiekader-- plaats de pdf pagina IN het illustratiekader
set {dummy1, dummy2, pdfhoogte, pdfbreedte} togeometric boundsofgeplaatste_pdf_pagina-- vraag de afmetingen van de pdf op
«event InESkdrt» geplaatste_pdf_paginagiven«class by »:graden-- roteer eventueel de pdf in het illustratiekader (dus niet het illustratiekader zelf)
ifgraden = 0 then-- pdf is niet geroteerd
setmovexto ((plaatbreedte - plaatformaat_correctie) / 2) - (pdfbreedte / 2) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - pdfhoogte - drukaanvang - weerdrukafstand + snijteken_offset} asnumber-- bereken de verticale verplaatsing
elseifgraden = -90 then-- pdf is geroteerd; met de klok mee
setmovexto ((plaatbreedte - plaatformaat_correctie) / 2) + (pdfhoogte / 2) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - pdfbreedte - drukaanvang - weerdrukafstand + snijteken_offset} asnumber-- bereken de verticale verplaatsing
elseifgraden = 90 then-- pdf is geroteerd; tegen de klok in
setmovexto ((plaatbreedte / 2) - (pdfhoogte / 2) - plaatformaat_correctie) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - drukaanvang - weerdrukafstand + snijteken_offset} asnumber-- bereken de verticale verplaatsing
endif
movegeplaatste_pdf_paginato {movex, movey} -- voer de verplaatsing uit
ifgraden = 0 then
flip itemgeplaatste_pdf_paginagiven«constant flpohorz»
else
flip itemgeplaatste_pdf_paginagiven«constant flpovert»
endif
endtell
endif
ifweerdruk = 2 then
setctp_paginatoctp_pagina + 1
setpdf_paginatopdf_pagina + 1
setpage numberofPDF place preferencestopdf_paginaasnumber-- selecteer de pdf pagina die als weerdruk geplaatst dient te worden
tellpagectp_paginaofctp_document
setillustratiekadertomakerectanglewith properties {geometric bounds:{0, 0, plaathoogte, plaatbreedte}} -- maak illustratiekader
setgeplaatste_pdf_paginatoplacegeexporteerde_pdf_bestandsnaamonillustratiekader-- plaats de pdf pagina IN het illustratiekader
set {dummy1, dummy2, pdfhoogte, pdfbreedte} togeometric boundsofgeplaatste_pdf_pagina-- vraag de afmetingen van de pdf op
«event InESkdrt» geplaatste_pdf_paginagiven«class by »:graden-- roteer eventueel de pdf in het illustratiekader (dus niet het illustratiekader zelf)
ifgraden = 0 then-- pdf is niet geroteerd
setmovexto ((plaatbreedte - plaatformaat_correctie) / 2) - (pdfbreedte / 2) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - pdfhoogte - drukaanvang + snijteken_offset} asnumber-- bereken de verticale verplaatsing
elseifgraden = -90 then-- pdf is geroteerd; met de klok mee
setmovexto ((plaatbreedte - plaatformaat_correctie) / 2) + (pdfhoogte / 2) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - pdfbreedte - drukaanvang + snijteken_offset} asnumber-- bereken de verticale verplaatsing
elseifgraden = 90 then-- pdf is geroteerd; tegen de klok in
setmovexto ((plaatbreedte / 2) - (pdfhoogte / 2) - plaatformaat_correctie) asnumber-- bereken de horizontale verplaatsing
setmoveyto {plaathoogte - drukaanvang + snijteken_offset} asnumber-- bereken de verticale verplaatsing
endif
movegeplaatste_pdf_paginato {movex, movey} -- voer de verplaatsing uit
ifgraden = 0 then
flip itemgeplaatste_pdf_paginagiven«constant flpohorz»
else
flip itemgeplaatste_pdf_paginagiven«constant flpovert»
endif
endtell
endif
setctp_paginatoctp_pagina + 1
setpdf_paginatopdf_pagina + 1
endrepeat
repeatwithctp_paginafrom 1 toaantal_paginas
tellpagectp_paginaofctp_document-- maak hulplijnen
makeguidewith properties {orientation:«constant flpovert», locationplaatbreedte - plaatformaat_correctie) / 2} -- verticaal midden van de (evt. gesneden) plaat
makeguidewith properties {orientation:«constant flpovert», locationplaatbreedte / 2)} -- verticaal midden van het bestand
makeguidewith properties {orientation:«constant flpohorz», location:plaathoogte - drukaanvang}
makeguidewith properties {orientation:«constant flpohorz», location:plaathoogte - drukaanvang - weerdrukafstand}
endtell
endrepeat
-- sla het indesign document met geplaatste pdf op
tellactive documenttosavetoctp_document_bestandsnaam
endtell
tellapplication "Adobe InDesign CC 2015"
activate
telltext defaults
setfill colortozwart
setfill tintto 100
endtell
endtell