photoshopスクリプティング - prepress-tips

　photoshopスクリプトを実行してみる。　

最終更新日時： 2009/06/19   

• 簡単なサンプル
• ブラウザの中から実行する
• マニュアルなど
• ScriptListener
• codeLayouterを使う
• Perl/Tk

Edit

簡単なサンプル

• もっとも簡単なサンプル
  • 実行は　perl "test.plのフルパス" か
    test.plを右クリックして perl command Line Interpreter

test.pl

use Win32::OLE; my $script_folder = ( $0 =~ /^(.*\\)[^\\]*$/i , $1 ); my $ps = Win32::OLE->CreateObject( "Photoshop.Application" ); $ps->DoJavaScriptFile( $script_folder."test.jsx", [ $script_folder, "abc", 123 ] );

test.jsx

var r = "You passed " + arguments.length + " arguments\x0a"; for( i = 0; i < arguments.length; ++i ) { r += " " + arguments[ i ] + "\x0a"; } alert( r );

• テキストファイルを表示するサンプル

test.jsx

html2 plugin Error : このプラグインで利用できない命令または文字列が入っています。

ブラウザの中から実行する

• perlスクリプトを使って動かす（ これが一番簡単か ）。
• test.jsxは 上のサンプルをそのまま使う。
• perlスクリプト内で日本語を使いたいので requireで呼び出すのだが、
  このとき フォルダ名に日本語があると そこで止まってしまうので、
  フォルダ名の処理は javascriptで行う。

test.html

html2 plugin Error : このプラグインで利用できない命令または文字列が入っています。

　　　※ html中の ＜ はすべて半角に置換すること。

test.pl

use Win32::OLE; sub run { my $fn = "$window->{ script_folder }test.jsx"; my $ps = Win32::OLE->CreateObject( "Photoshop.Application" ); $ps->DoJavaScriptFile( $fn, [ $window->{ script_folder }, "abc", 123 ] ); } 1;

マニュアルなど

• 標準のマニュアルは次の2つ。
     Photoshop Scripting Guide-J.pdf
     JavaScript Reference Guide.pdf
• 参考になるサイトは
     Photoshop サンプルスクリプト - clueboard.com
     Adobe Photoshop CS2自動化作戦
     PhotoShop JavaScript Note - ホコホコ
     (DxD)∞ - Photoshopの記事
     そらかぜ工場 Photoshop Scripting 覚書き
     など

ScriptListener

• photoshopで行った操作を js形式で記録することができる。
• photoshop インストールフォルダのスクリプティングガイド - ユーティリティ 内にある ScriptListener.8li を使う。
• ScriptListener.8li を Photoshop プラグイン フォルダ にコピーしてから
  photoshop を起動して 記録したい操作を実行する。
• cドライブのルートに ScriptingListenerJS.log が作られ（ windows版 cs2 の場合 ）
  その中にアクションで実行した形で操作が記録されるので これをjs形式に読み直す。
  ※ charIDは リファレンスの Appendix ： Event ID Codes で読み直す。

ScriptingListenerJS.log の例

// ======================================================= var id1 = charIDToTypeID( "Opn " ); var desc1 = new ActionDescriptor(); var id2 = charIDToTypeID( "null" ); desc1.putPath( id2, new File( "開いたファイルの絶対パス" ) ); executeAction( id1, desc1, DialogModes.NO );

codeLayouterを使う

• codeLayouterで .pl と .jsx を一緒に作ろうとすると 今のバージョン（ 0.02 ）では
  少し面倒なことなるので 次のようにする。
  • photoshopで sample.tifを開く プログラムの例。

sample_index.txt

/name perl スクリプト / sample.pl ? フォルダ , スクリプト / my ( $fol , $jsx ) $fol = ( $0 =~ /^(.*\\)[^\\]*$/i ) ? $1 : "" ; $jsx = "sample.jsx" ; -f $fol.$jsx || err( 'スクリプトがありません。' ); ? ファイル / my $fn $fn = 'sample.tif' ; -f $fol.$fn || err( 'ファイルがありません。' ); /+ 実行 msg( 'ファイルを読み込みます。' ); do_photoshop_jsx( $fol.$jsx, [ $fol.$fn ] ); /name photoshop スクリプト / sample.jsx ? 入力ファイル / var fn fn = arguments[0] ; /+ 入力ファイルを開く open( File( fn ) ); /use / sample_detail.txt

sample_detail.txt

/name perl スクリプト use Win32::OLE; /?- 補助の定型ルーチン ? photoshop jsx( jsx )を実行する（ param ） / do_photoshop_jsx( jsx, param ) my $ps = Win32::OLE->CreateObject( "Photoshop.Application" ); $ps->DoJavaScriptFile( $_[0], $_[1] ); ? メッセージ( array )を表示して エラー終了する。 / err( array ) msg( @_ ); exit( 1 ); ? メッセージ( array )を表示する。 / msg( array ) print map { "$_\x0a" } @_; /name photoshop スクリプト #target photoshop app.bringToFront();

codeLayout_sample.bat

@echo off cd /d "%~dp0" set codeLayouter=c:\mytools\codeLayouter.exe echo new sample echo/ && "%codeLayouter%" sample_index.txt || ( pause && exit ) echo/ && echo adjust sample ( if exist _.txt del _.txt ) && ren sample.pl _.txt perl adjust_source.pl p < _.txt > sample.pl ( if exist _.txt del _.txt ) && ren sample.jsx _.txt perl adjust_source.pl j < _.txt > sample.jsx if exist _.txt del _.txt echo/ && echo start sample perl "%~dp0sample.pl" || ( pause && exit ) echo/ pause

adjust_source.pl

my $pl = ( 0 < @ARGV && $ARGV[0] =~ /^[p]$/i ); my $css = ( 0 < @ARGV && $ARGV[0] =~ /^[c]$/i ); my $js = ( 0 < @ARGV && $ARGV[0] =~ /^[j]$/i ); my $tag = ( 0 < @ARGV && $ARGV[0] =~ /^[t]$/i ); my $r = ( 0 < @ARGV && $ARGV[0] =~ /^[r]$/i ); while( ＜STDIN> ) { $pl && do { s,^(\s*)//,$1#,; s,^/\*,$1=pod,; s,^\*/,$1=cut,; s,^(\s*\{\s*)//,$1#,; s,^(?!\s*(?:my|our)\s)(\s*)(\S+\s*)\([^\)]*\)(\s*\{\s*)//,$1sub $2$3#,; s,^(?!\s*sub\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2#,; s,^(?!\s*sub\s)(\s*[^\{;/]*;\s*)//,$1#,; }; $css && do { m,^[^{;]*;?\s*{\s*//, && ( s"^([^{;]*);?(\s*{\s*)//"$1$2/*", s"(?=$)" */" ); m,^\s*//, && ( s"^(\s*)//"$1/*", s"(?=$)" */" ); }; $js && do { s,^(\s*)(\S+\s*\([^\)]*\)\s*\{\s*)//,$1function $2//,; s,^(?!\s*function\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2//,; }; $tag && m,^\s*//, && ( s/^\s*/$&＜!-- /, s/$/ -->/ ), s,(>\s*);$,$1, ; $r && do { s,^(\s*\S+\s*)(\([^\)]*\)\s*\{\s*)//,$1 <- function $2#,; s,^(\s*\S+)(\s*)(;?\s*)//,$1 <- NULL$2; $3#,; s,^(\s*)//,$1#,; }; print; }

      ※ pl中の ＜ はすべて半角に置換すること。

Perl/Tk

• 参考ページ
  • perltk - Web実験室
  • Perl-Tk memo
• JavaScript Reference Guide.pdf の中に 次のような記述があり Perl/Tk が必要になる場面もあると思われるので そのサンプルを作成してみた。

Main windows: resizable, suitable for use as an application's
main window. ( Main windows are not normally created by script
developers for Adobe Creative Suite 2 applications. )

• サンプルダイアログ
  • windows用です。（ ActivePerl 5.8.8 Build 820 ）
    文字コードは shift jis です。
  • フォルダ選択 － フォルダ内のファイルを一覧表示します。
  • 文字入力 － ダイアログを閉じるとき 表示します。
  • カンバス － カンバス内のマウスの位置を表示します。

tk_sample.txt

/name perl スクリプト / tk_sample.pl /?- メインウィンドウ /+ メインウィンドウを用意する / my $mw / $mw = MainWindow -> new ; / $mw -> configure( メインウィンドウ ) ; / $mw -> geometry( メインウィンドウのサイズと位置 ); / $mw -> resizable( 0, 0 ); # リサイズ禁止 * メインウィンドウのサイズと位置 / "520x200+100+100" * メインウィンドウ / -title => jstr( 'Tkのサンプル' ) , -background => 'white' , /+ メインウィンドウ に フレーム を用意する / my $pane $pane = $mw -> Frame -> pack() ; /+ フレーム に ラベル１ , ラベル２ を用意する / $pane -> Label( ラベル１ ) -> pack() ; / $pane -> Label( ラベル２ ) -> pack() ; * ラベル１ / -background => 'yellow' , -font => [ jstr( 'HGS行書体' ), 20, 'underline' ] , -text => jstr( 'Tk の' ) , * ラベル２ / -padx => 1.25 , -pady => 1.25 , -font => [ jstr( 'ＭＳ ゴシック' ), 18 ] , -text => jstr( 'サンプル' ) , /+ メインウィンドウ に 選択ボタン を用意する / $mw -> Button( 選択ボタン ) -> place( 選択ボタンの位置 ) ; * 選択ボタンの位置 / -x => 360, -y => 35, * 選択ボタン / -width => 20 , -height => 2.5 , -text => jstr( 'フォルダの選択' ) , / -command => sub { 選択ボタンの処理 ; } /+ メインウィンドウ に 入力フィールド を用意する / my $text / $mw -> Label( ラベル３ ) -> place( ラベル３の位置 ) ; / ( $text = $mw -> Text( 入力フィールド ) ) -> place( 入力フィールドの位置 ) ; * ラベル３の位置 / -x => 10 , -y => 10 , * ラベル３ / -font => [ jstr( 'ＭＳ ゴシック' ), 18 ] , -text => jstr( '文字入力' ) , * 入力フィールドの位置 / -x => 10, -y => 40 , * 入力フィールド / -width => 20 , -height => 2 , -font => 16 , /+ メインウィンドウ に 終了ボタン を用意する / $mw -> Button( 終了ボタン ) -> pack( 終了ボタンの位置 ) ; * 終了ボタンの位置 / -side => 'bottom' , * 終了ボタン / -width => 8 , -height => 1.6 , -text => jstr( '閉じる' ) , / -command => sub { 入力フィールドの内容を表示する ; exit() ; } /+ メインウィンドウ に カンバス を用意する / my $canvas / $canvas = $mw -> Canvas ; / $canvas -> configure( カンバス ) ; / $canvas -> pack( カンバスの位置 ) ; / カンバスに描画する * カンバスの位置 / -side => 'bottom' , -pady => 5 , * カンバス / -cursor => "crosshair" , -background => "white" , -width => 300, -height => 80 , ? カンバスに描画する / draw_canvas() my ( $x, $w ) = ( 0, 300 ); for( $x = 0 ; $x < $w ; $x++ ) { my $v = int( $x / 300 * 255 ); my $c = sprintf "#%02x%02x%02x" , 0 , $v , 0 ; $canvas -> createRectangle( $x , 0 , $x + 1 , 79 , -fill => $c , -outline => $c , ); } /+ メインウィンドウ に インジケータ を用意する / my ( $xy_label , $xy ) / $xy_label = $mw -> Label( インジケータ ) -> place( インジケータの位置 ) ; / $xy = '( , )' ; * インジケータの位置 / -x => 430 , -y => 90 , * インジケータ / -textvariable => \$xy /+ カンバス 上のマウス位置を インジケータ に表示する。 / $canvas -> Tk::bind( "＜Motion>", [ マウス位置の表示 ] ); /+ メインウィンドウを表示する MainLoop; /?- インタラクティブ処理 ? 選択ボタンの処理 / selectButtonProc() / my $fol = フォルダを選ぶ ; / フォルダ $fol のファイルを表示する ; ? フォルダを選ぶ / selectFolder() to_jpath( $mw->chooseDirectory ); ? フォルダ( fol )のファイルを表示する / showFiles( fol ) /+ フォルダ名 / my $fol $fol = $_[0] ; $fol ne '' && -d $_[0] || return ; /+ フォルダのリスト / my @fol @fol = grep /\S/ , split "\x0a", `dir /ad /b \"$fol\\*.*\" 2>&1`; @fol || push @fol , 'フォルダが見つかりません' ; /+ ファイルのリスト / my @fn @fn = grep /\S/ , split "\x0a", `dir /a-d /b \"$fol\\*.*\" 2>&1`; /+ 表示するメッセージ / my $m $m = join "\x0a", $fol , '', 'フォルダ：', @fol, '', 'ファイル：', @fn ; /+ 表示する msg( '--- ファイルの一覧 ---', $m , '' ); $mw -> messageBox( -title => jstr( 'ファイルの一覧' ) , -message => jstr( $m ) , ); ? 入力フィールドの内容を表示する / dispText() /+ 入力フィールドの内容 / my $m $m = to_jstr( $text -> Contents() ); $m =~ /$/ && ( $m = $` ) ; # 行末の改行を除去 $m ne '' || return ; /+ 表示するメッセージ $m = '入力されたテキストは '.$m.' です。' ; /+ 表示する msg( $m , '' ); $mw -> messageBox( -title => jstr( '入力テキスト' ) , -message => jstr( $m ), -icon => 'warning' , ); * マウス位置の表示 / \& mouse_posi , Ev( 'x' ), Ev( 'y' ), \ $xy ? マウスの位置 / mouse_posi() my ( undef , $x , $y , $xy ) = @_; defined( $x ) && defined( $y ) || return ; ${$xy} = sprintf( "( %4d , %4d )" , $x , $y ); /name perl スクリプト use strict; use Tk; use Encode qw( encode decode ); /?- 補助の定型ルーチン ? 日本語文字列の( str ) / jstr( str ) decode( 'cp932', $_[0] ) ; ? ( str )の日本語文字列 / to_jstr( str ) encode( "cp932", $_[0] ) ; ? 日本語パス( path )の補正 / to_jpath( path ) /+ バックスラッシュの文字化け対策 / my $s $s = join '', map do{ s/(.)\//$1\\/; $_ ; }, ( $_[0] =~ /([\x00-\x7f\xa0-\xdf]|..)/g ) ; / to_jstr( jstr( $s ) ); ? メッセージ( array )を表示して エラー終了する。 / err( array ) msg( @_ ); exit( 1 ); ? メッセージ( array )を表示する。 / msg( array ) print map { "$_\x0a" } @_;

      ※ txt中の ＜ はすべて半角に置換すること。

codeLayout_tk_sample.bat

@echo off cd /d "%~dp0" set codeLayouter=c:\mytools\codeLayouter.exe echo new tk_sample echo/ && "%codeLayouter%" tk_sample.txt || ( pause && exit ) echo/ && echo start tk_sample perl tk_sample.pl || ( pause && exit )

Edit

---