36
返信
おはようございます。
長らく時間があいてしまいましたが、その後どうでしょう？
やっとPhotoshopが使える状態になったので、ちょっと続きをやってみました。
Numbersで列方向のセルにたとえば、「A」「B」「C」と入力して、入力したところを選択し
Photoshopで新規ドキュメントを開いた状態で、下記スクリプトを実行するとアートボードが作成されると思いますが如何なものでしょう。
アートボードのサイズは、新規ドキュメントを作成したときの大きさを取得してます。
完璧なものではないと思いますが、何かの役に立てば...
use AppleScript version "2.4"
use framework "Foundation"
use scripting additions
tell application "Numbers"
tell front document
tell active sheet
try
set theTable to first table whose class of selection range is range
on error
beep
display alert "何も選択されていません。"
return --何も選択されてなかった場合は終了
end try
tell theTable
set selList to value of (every cell of selection range)
set columnCount to count of (column of selection range) --列をカウント
if columnCount > 1 then
beep
display alert "２列以上選択されています。１列のみ選択してください。"
return
end if
end tell
end tell
end tell
end tell
set aList to {}
repeat with i in selList
set ii to contents of i
if ii is not missing value then --空白を除外
log ii
set the end of aList to ii
end if
end repeat
--set |strings| to retDelimedText(aList, ",") of me --文字列として処理する場合
if application id "com.adobe.Photoshop" is running then
tell application id "com.adobe.Photoshop"
if exists front document then
tell front document
try
--Photoshopでの処理をここに
do javascript "
var dimensions = [app.activeDocument.width.value,app.activeDocument.height.value];
var bottom = dimensions[1];
var left = 0.000000;
var right = dimensions[0];
for (var i = 0;i < arguments.length; i++) {
//alert(arguments[i]);
var idmake = stringIDToTypeID( \"make\" );
var desc66 = new ActionDescriptor();
var idnull = stringIDToTypeID( \"null\" );
var ref13 = new ActionReference();
var idartboardSection = stringIDToTypeID( \"artboardSection\" );
ref13.putClass( idartboardSection );
desc66.putReference( idnull, ref13 );
var idusing = stringIDToTypeID( \"using\" );
var desc67 = new ActionDescriptor();
var idname = stringIDToTypeID( \"name\" );
desc67.putString( idname, arguments[i] );
var idartboardSection = stringIDToTypeID( \"artboardSection\" );
desc66.putObject( idusing, idartboardSection, desc67 );
var idlayerSectionStart = stringIDToTypeID( \"layerSectionStart\" );
desc66.putInteger( idlayerSectionStart, 6 );
var idlayerSectionEnd = stringIDToTypeID( \"layerSectionEnd\" );
desc66.putInteger( idlayerSectionEnd, 7 );
var idname = stringIDToTypeID( \"name\" );
desc66.putString( idname, \"\"\"アートボード 1\"\"\" );
var idartboardRect = stringIDToTypeID( \"artboardRect\" );
var desc68 = new ActionDescriptor();
var idtop = stringIDToTypeID( \"top\" );
desc68.putDouble( idtop, 0.000000 );
var idleft = stringIDToTypeID( \"left\" );
desc68.putDouble( idleft, left );
var idbottom = stringIDToTypeID( \"bottom\" );
desc68.putDouble( idbottom, bottom );
var idright = stringIDToTypeID( \"right\" );
desc68.putDouble( idright, right );
var idclassFloatRect = stringIDToTypeID( \"classFloatRect\" );
desc66.putObject( idartboardRect, idclassFloatRect, desc68 );
executeAction( idmake, desc66, DialogModes.NO );
left = right + 100;
}
" with arguments aList --リストを引数として
--データを文字列として処理する場合。こんな感じ？？
(*
do javascript "
var array = " & (quoted form of |strings|) & ".split(',');
for (var i = 0;i < array.length; i++) {
alert(array[i]);
}
"
*)
on error msg
return msg
end try
end tell
end if
end tell
end if
-- 数字を削除。このように使う。
--regexReplace("1あ１いうえお0123", "\\d", "") of me
--return regexReplace("1あ１いうえお0123", "[0-9０-９]", "") of me
--正規表現を使ってテキストを置き換えするときに使うハンドラ
on regexReplace(aText as text, pattern as text, replacement as text)
--require framework: Foundation
set regularExpression to current application's NSRegularExpression's regularExpressionWithPattern:pattern options:0 |error|😞missing value)
return (regularExpression's stringByReplacingMatchesInString:aText options:0 range:{location:0, |length|:count aText} withTemplate:replacement) as text
end regexReplace
--リストを入力し、指定の区切り文字で区切ったテキストを返すハンドラ
on retDelimedText(aList, aDelim)
set aText to ""
set curDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to aDelim
set aText to aList as text
set AppleScript's text item delimiters to curDelim
return aText
end retDelimedText
AdChoices