Corel Photopaint - Script ausführen aber Effekte nicht ausgeführt

[kede93]

Hallo zusammen,

ich habe folgendes Problem bei der Erstellung von Produktbildern:
Um einfach Zeit zu sparen und jeden Schritt nicht "manuell" x Mal zu wiederholen habe ich angefangen die Möglichkeit des Aufzeichnens von einem CorelScript zu nutzen.
Hierbei wird speziell zuerst eine Maske aus einer Ebene erzeugt, dann 2 Ebenen durch diese Maske zugeschnitten und im nächsten Schritt jede dieser Ebene mit einem Effekt versehen (z.B. Relief oder "Seite aufrollen").
Und hier liegt das Problem.
Trotz Aufzeichnung führt Corel diese Effekte nicht aus.

Kennt jemand das Problem bzw. die Lösung?

Vielen Dank schon einmal im Voraus!

[koter]

Hallo kede93,

Ohne die Datei und das Skript zu kennen, kann man dazu nicht viel sagen.

Beschneiden und „Seite aufrollen“ funktioniert jedenfalls per Skript:



(getestet mit X4)

Vielleicht kannst Du ja genauere Angaben machen, oder uns die Dateien zukommen lassen. Nenne bitte auch Deine Corel-Version (am besten in der Signatur).

Gruß

Koter

[kede93]

Vielen Dank für die schnelle Antwort!
Ich nutze auch die Version X4.

Anhängend das Script, die Datei enthält lediglich eine Ebene die zugeschnitten wird und eine darüberliegende Ebene, die als Maske verwendet wird.
Vielleicht ist es ja nur ein kleiner Fehler meinerseits..

Vielen Dank schon einmal!

[koter]

Hallo kede93,

Ich habe die Datei wie von Dir beschrieben aufgebaut, Dein Skript geladen und ausgeführt:



Bei mir hat das Skript funktioniert!
Ist Deine Datei tatsächlich auch so aufgebaut wie Du es beschrieben hast?

Gruß

Koter

[kede93]

Hallo koter,

Das ist mir echt ein Rätsel.
Anhängend ein Bild von meiner Datei (leider etwas klein aufgrund der Uploadgröße).

Ich weiß nicht woran es liegen könnte...

[koter]

Hallo kede93,

...Ich weiß nicht woran es liegen könnte...

das ist mir auch ein Rätzel. Vielleicht Kannst Du die Datei bei Filehorst hochladen, dann kann ich es damit versuchen. Im Moment fällt mir leider keine bessere Lösung ein.

Gruß

Koter

[kede93]

Hallo koter,

Ich habe die Datei nun wie besprochen dort hochgeladen: Datei von filehorst.de laden

Vielen Dank nochmals für deine Mühe!

[norre]

Hallo Kede93,
sorry, Beitrag geändert - falsche Baustelle

[koter]

Hallo kede93,

mit dem Skript und der Datei ist alles in Ordnung.
Wir haben es mit einem Bug in X4 zu tun.
Das Skript läuft nur bei einer Zoomstufe von 100%.
Du kannst also die Zoomstufe manuell einstellen,
oder das Skript von einem Makro starten lassen,
das die Zoomstufe für Dich einstellt.

Beispiel:



Das Beispielmakro:

Code:

Sub ausführen()
    Dim Skriptdatei As CorelScriptFile
    zm = ActiveWindow.Zoom 'Zoom speichern
    ActiveWindow.Zoom = 100 'Zoom auf 100%
    Dateipfad = "C:\Corel\skript\" 'der Pfad zum Skript
    Dateiname = "kede93.csc" 'der Name des Skripts
    dn = Dateipfad & Dateiname
    Set Skriptdatei = OpenCorelScriptFile(dn) 'Skript öffnen
    Skriptdatei.Play ActiveDocument 'Skript starten
    ActiveWindow.Zoom = zm 'Zoom zurücksetzen
End Sub

Falls Du das Makro verwenden willst, musst Du den Pfad und den Dateinamen anpassen.
(Den letzten Backslash im Pfad nicht vergessen)

Der Effekt manuell angewendet funktioniert zwar,
aber auch „Effekt wiederholen“ (Strg+F) funktioniert nur bei einer Zoomstufe von 100%.

leider habe ich keine besseren Nachrichten für Dich.

Gruß

Koter

Nachtrag: Die Maske scheint von einer Vektorgrafik zu stammen, wäre es nicht besser das Ganze mit CorelDraw zu machen?

[kede93]

Hallo koter,

Vielen Dank für deine Hilfe!
Da kommt ja kein Mensch drauf, dass es am Zoom liegt..

Ich werds mit dem Makro probieren und bin begeistert, dass es nun doch klappt! Hatte schon Angst es weiterhin manuell machen zu müssen.

Die Maske stammt tatsächlich aus CorelDraw, dort fülle ich eine Kontur mithilfe der intelligenten Füllung um die Ebene zuschneiden zu können.
Kann dir nicht einmal genau sagen, warum wir hier diesen möglicherweise umständlichen Weg gehen, aber werde mich erstmal damit zufrieden geben und mich ggf zu einem späteren Zeitpunkt damit auseinandersetzen.

Vielen Dank nochmal! Bin begeistert, dass man hier sofort so kompetente Hilfe bekommt!