Aktionen-Drehen-Referenzpunkt bzw. Drehachse

[Annefe]

Als Neuling möchte ich vorab dem gesamten Team meine Bewunderung für dieses hervorragende Forum aussprechen.

Ich komme mit folgendem Problem;

Bei einer Animation in ImageReady möchte ich die vorhandene Aktion "Drehen" anwenden. Hierbei geht es um eine Uhr -sekundenzeiger. Die vorgegebene Drehung müsste ich ändern, so, dass der Sek.-Zeiger 60 "Schritte?" macht. Ebenso der Referenzpunkt, der zum jetzigen Zeitpunkt mittig ausgerichtet ist. Bei dem jetzigen Versuch sind 12 "Schritte" des Zeigers vorhanden und die Ausrichtung habe ich manuell durch verschieben Nachregeln müssen. Ist es möglich, diese "Drehachse" im Menü zu ändern? Wenn ja, wo? Ebenso die Anzahl der Sekundenschritte?

Für Rat und Hilfe wäre ich sehr dankbar.

LG, Annefe

[Alexander Groß]

Ich würde das kurz per Hand in Photoshop machen.


Damit das folgende besser klappt beschreibe ich es mit einer normalen Linie.

Linie in der Mitte ansetzte und eine senkrechte Linie ziehen.

Strg+Alt+T

Den Mittelpunkt erwischen wir leichter wenn wir dabi die Alt Taste festhalten.
Nun verschieben wir ihn zur Uhrmitte.

Anschliessend geben wir oben einen Winkel von 6 Grad ein (360/60 =6)

Mit Enter bestätigen (manchmal 2 mal).

Jetzt das feine:

Strg+Alt+Umschalt+T

Jedesmal wenn wir diese Kombination drücken wird die Transformation erneut ausgeführt und setzt immer an der vorherigen an.

Daurch erschafft man sich 60 Ebenen mit der korrekten Winkelstellung. Diese kann man dann in ImageReady übertragen und animieren.

Alex

[Annefe]

Ich danke!
Dann werde ich es nochmals per Hand angehen.

LG u. ein schönes Wochenende,

Annefe

[Alexander Groß]

Und hat es funktioniert? Ich habe gesehen das du auch an anderer Stelle nachgefragt hast.

Alex

[Alexander Groß]

Ich habe dir eine Aktion mit Photoshop gemacht. Mit ImageReady bekomme ich es nicht hin.

Wie schaffe ich es denn bei den Aktionen das ich angeben kann das er einen Befehl 60 mal wiederholen soll ohne das ich den Befehl 60 mal eingeben muss?

Da habe ich noch eine Wissenslücke.

Alex

[hotschen]

Wie schaffe ich es denn bei den Aktionen das ich angeben kann das er einen Befehl 60 mal wiederholen soll ohne das ich den Befehl 60 mal eingeben muss?

Gar nicht. Nur durch ein Script.

[Alexander Groß]

Kannst du mir das mal in einfachen Worten erklären?
Und dann noch eine Frage, in IR gibt es ja schon die drehen Aktion in dieser wurde auch eine Anzahl festgelegt. Aber ich finde keine Möglichkeit dort etwas ähnliche nachzustellen geschweige denn den Mittelpunkt verschieben.

Alex

[Annefe]

Ich bin jetzt freudig überrascht, dass mein Problem nochmal aufgeriffen wird. Bisher habe ich aus Zeitgründen auf die "Handarbeit" verzichten müssen.

In der Aktion/Drehen habe ich mich vergeblich bemüht, die Voreinstellungen zu verändern. Da man allerdings alles "aufklappen" kann und mit doppelklick auf die jeweiligen Handlung die eingegebenen "Koordinaten", andere-eigene- Werte eingeben könnte, ließe es sich schon verändern. Die X und Y-Werte stehen z. Z. auf Null. Verändere ich sie, wird allerdings das Objekt als ganzes in der Drehung verschoben...sozusagen im gesamten Bild. Leider nicht die Drehachse selbst. Hier versuche ich noch, zu tüfteln.
Auch die "Schritte", die in der Voreinstellung mit 10 angegeben werden, aber nach der Aktionsausführung mit 12 ausgeführt wurden, sind noch rätselhaft für mich. Für den Begriff "Wiederholung", der mit 5 angegeben wird, habe ich noch keine Erklärung. Mein logisches Denken endet grad in einem "Tunnelblick". Ich dachte auch schon über "alternatives Tricksen" nach....in etwa so, dass ich den Zeiger in der ersten Folie verlängere, so, dass ich mit der Mittelachsendrehung dort lande, wo ich hin muss.die Drehung ausführen lasse (vielleicht bekomme ich da noch 60 Schritte hin) und im Anschluss in Folie 1 wiederum den Zeiger verkürze........zugegeben, es ist Theorie.
Über jeden weiteren Hinweis würde ich mich freuen.

LG, Anne

[Annefe]

Himmel, Alexander....RIIIIEEEESEN DANK für die Aktion!!!!
Ich öffnete sie grad und freue mich wirklich!!!
Danke!!!

Lieben Gruss und ein sonniges Wochenende,

Anne

[Alexander Groß]

Gerne geschehen.

Meine Fragen bleiben jedoch noch offen und ich hoffe auf weitere Unterstützung der restlichen Aktions/Skriptgurus

Alex

[hotschen]

Hier ein paar Scriptbeispiele (VBS):

Um eine Aktion öfters auszuführen:

anzahl=2	'Hier die Anzahl der Wiederholungen
Aktion="Aktion1"	'Hier den Namen der Aktion
Aktionsset="Aktionsset1"	'Hier den namen des Aktionssets

Set appref = CreateObject("Photoshop.Application")
Set docref=appref.ActiveDocument 

For i=1 To anzahl
	appRef.DoAction "Aktion1", "Aktionsset1"
Next

Um ein Objekt x Mal zu drehen: (Die Drehpunkte kann man dem Bild entnehmen):

winkel=30		'Hier den Winkel angeben
anzahl=11		'Hier die Anzahl der Wiederholungen
Drehpunkt=4		'Punkte siehe Bild

Set appref = CreateObject("Photoshop.Application")
Set docref=appref.ActiveDocument 
Set layer=docref.ActiveLayer 

For i=1 To anzahl
	layer.duplicate	 
	docref.ArtLayers (i).Rotate winkel*i, Drehpunkt
Next

Man kann auch für den Drehpunkt die Koordinaten direkt angeben, allerdings nur über den Umweg mit dem Scriptlistener. Das sieht dann so aus:

winkel=30	
anzahl=2
x=100
y=200

Set appref = CreateObject("Photoshop.Application")
Set docref=appref.ActiveDocument 
Set layer=docref.ActiveLayer 
strtTypeUnits = appRef.Preferences.TypeUnits
appref.Preferences.RulerUnits = 1
For i=1 To anzahl
	layer.duplicate	 
	drehen Winkel,x,y
Next 
appref.Preferences.RulerUnits=strtTypeUnits


Sub drehen(Winkel, x, y)
REM =======================================================
DIM objApp
SET objApp = CreateObject("Photoshop.Application")
REM Use dialog mode 3 for show no dialogs
DIM dialogMode
dialogMode = 3
DIM id1711
id1711 = objApp.CharIDToTypeID( "Trnf" )
    DIM desc194
    SET desc194 = CreateObject( "Photoshop.ActionDescriptor" )
    DIM id1712
    id1712 = objApp.CharIDToTypeID( "null" )
        DIM ref107
        SET ref107 = CreateObject( "Photoshop.ActionReference" )
        DIM id1713
        id1713 = objApp.CharIDToTypeID( "Lyr " )
        DIM id1714
        id1714 = objApp.CharIDToTypeID( "Ordn" )
        DIM id1715
        id1715 = objApp.CharIDToTypeID( "Trgt" )
        Call ref107.PutEnumerated( id1713, id1714, id1715 )
    Call desc194.PutReference( id1712, ref107 )
    DIM id1716
    id1716 = objApp.CharIDToTypeID( "FTcs" )
    DIM id1717
    id1717 = objApp.CharIDToTypeID( "QCSt" )
    DIM id1718
    id1718 = objApp.CharIDToTypeID( "Qcsi" )
    Call desc194.PutEnumerated( id1716, id1717, id1718 )
    DIM id1719
    id1719 = objApp.CharIDToTypeID( "Pstn" )
        DIM desc195
        SET desc195 = CreateObject( "Photoshop.ActionDescriptor" )
        DIM id1720
        id1720 = objApp.CharIDToTypeID( "Hrzn" )
        DIM id1721
        id1721 = objApp.CharIDToTypeID( "#Rlt" )
        Call desc195.PutUnitDouble( id1720, id1721, x )
        DIM id1722
        id1722 = objApp.CharIDToTypeID( "Vrtc" )
        DIM id1723
        id1723 = objApp.CharIDToTypeID( "#Rlt" )
        Call desc195.PutUnitDouble( id1722, id1723, y )
    DIM id1724
    id1724 = objApp.CharIDToTypeID( "Pnt " )
    Call desc194.PutObject( id1719, id1724, desc195 )
    DIM id1725
    id1725 = objApp.CharIDToTypeID( "Ofst" )
        DIM desc196
        SET desc196 = CreateObject( "Photoshop.ActionDescriptor" )
        DIM id1726
        id1726 = objApp.CharIDToTypeID( "Hrzn" )
        DIM id1727
        id1727 = objApp.CharIDToTypeID( "#Rlt" )
        Call desc196.PutUnitDouble( id1726, id1727, 0.000000 )
        DIM id1728
        id1728 = objApp.CharIDToTypeID( "Vrtc" )
        DIM id1729
        id1729 = objApp.CharIDToTypeID( "#Rlt" )
        Call desc196.PutUnitDouble( id1728, id1729, -0.000000 )
    DIM id1730
    id1730 = objApp.CharIDToTypeID( "Ofst" )
    Call desc194.PutObject( id1725, id1730, desc196 )
    DIM id1731
    id1731 = objApp.CharIDToTypeID( "Angl" )
    DIM id1732
    id1732 = objApp.CharIDToTypeID( "#Ang" )
    Call desc194.PutUnitDouble( id1731, id1732, Winkel )
Call objApp.ExecuteAction( id1711, desc194, dialogMode )
End Sub

Für alle Scripte gilt:
-lauffähig ab PS7
-nur für Windows
-Script in eine neue Textdatei kopieren, als 'Irgendwas.vbs' speichern und per Doppelklick starten.

[Annefe]

Hallo hotschen,

auch dir grossen Dank für deine Mühe!

Ich muss allerdings gestehen, dass diese Informationen noch ein wenig verwirrend für mich sind.
Ich werde mich mal in Ruhe damit auseinander setzen müssen ;-)

Danke und LG;

Annefe

[Alexander Groß]

Hi, danke hotschen. Aber mir geht es ähnlich.

Könnten wir nicht mal einen kleinen Workshop an diesem Beispiel des Sekundenzeigers machen?

Alex

[hotschen]

Wenn ich heute Abend Zeit finde, beschreib ich es mal etwas genauer.

[Alexander Groß]

Das wäre ganz toll.

Alex