[Ai]イラストレーター まとめて 書き出し 別名保存
イラストレーターからPDFへの別名保存はこちら[LINK]を
参考にしてください。
AppleScriptで一斉に書き出し
オプションが色々ありますから
お好みで色々修正して使ってください。
10.6x
Adobe Illustrator CS4
ドロップレット形式です。
on open DropObj
---------------------ファインダ呼び出し
tell application "Finder"
-----------------ファインダ アクティブ
activate
--------書き出し形式選択
set SetLabels to ¬
{¬
"[JPG]", ¬
"[PNG8]", ¬
"[PNG24]", ¬
"[GIF]", ¬
"[PSD]", ¬
"[SWF]", ¬
"[FXG]", ¬
"[EPS]"}
set chooseResult to choose from list SetLabels with prompt "フォーマットを選んでください" OK button name "実行する" with title "フォーマット選択"
-------------------繰り返しの始まり
repeat with ObjFiles in DropObj
-------------------ファイル名を取得
set fileName to name of ObjFiles as string
---------------------パスを取得
set pathAliasDoc to ObjFiles as alias
---------------------パスを文字列に変換
set pathStringDoc to pathAliasDoc as string
---------------------拡張子を判定
set exeName to name extension of ObjFiles
-------------------ファイル名から拡張子を取り除く
set MainFileName to my replace(fileName, "." & exeName, "") as string
--------------------フルパスからファイル名を抜いてディレクトリ名を作る
set pathStringDirName to my replace(pathStringDoc, fileName, "") as string
----------Illustrator呼び出し
tell application "Adobe Illustrator"
-----------Illustrator アクティブ
activate
----------初期設定(アートボード複数利用する方はこちらで設定)
set ArtRange to "" as Unicode text
set backlayers to "background" as Unicode text
------------------◆◆◆ここから選択書き出し
if chooseResult is false then
tell application "Finder"
activate
end tell
---------------------epsで別名で保存
else if chooseResult is {"[EPS]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------epsファイル名
set the EpsFileName to the (the MainFileName & "." & "eps") as string
---------------eps用にディレクトリ名とファイル名をつないでパスにしておく
set saveEpsFileName to (pathStringDirName & ":" & EpsFileName) as string
---------------書き出しオプション
save activDoc in file saveEpsFileName as eps with options ¬
{class:EPS save options ¬
, include document thumbnails:false ¬
, save multiple artboards:false ¬
, overprint:preserve ¬
, PostScript:level 3 ¬
, preview:none ¬
, embed linked files:true ¬
, embed all fonts:true ¬
, compatible gradient printing:true ¬
, compatibility:Illustrator 8 ¬
, CMYK PostScript:true ¬
, artboard range:1 ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------Fxgで別名で保存
else if chooseResult is {"[FXG]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------Fxgファイル名
set the FxgFileName to the (the MainFileName & "." & "fxg") as string
---------------Fxg用にディレクトリ名とファイル名をつないでパスにしておく
set saveFxgFileName to (pathStringDirName & ":" & FxgFileName) as string
---------------書き出しオプション
save activDoc in file saveFxgFileName as fxg with options ¬
{class:FXG save options ¬
, artboard range:ArtRange ¬
, clip content:true ¬
, downsample linked images:false ¬
, filters policy:keep filters editable ¬
, fxg version:version 1.0 ¬
, gradients policy:keep gradients editable ¬
, include metadata:false ¬
, include unused symbols:false ¬
, preserve editing capabilities:true ¬
, save multiple artboards:false ¬
, text policy:keep text editable ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------Flashで別名で保存
else if chooseResult is {"[SWF]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------Flashファイル名
set the SwfFileName to the (the MainFileName & "." & "swf") as string
---------------Flash用にディレクトリ名とファイル名をつないでパスにしておく
set saveSwfFileName to (pathStringDirName & ":" & SwfFileName) as string
---------------書き出しオプション
export activDoc to file saveSwfFileName as Flash with options ¬
{class:Flash export options ¬
, art clipping:output artboard bounds ¬
, artboard range:ArtRange ¬
, background color:{red:255, green:255, blue:255} ¬
, blend animation:none ¬
, compressed:true ¬
, convert text to outlines:true ¬
, curve quality:10 ¬
, export all symbols:false ¬
, export style:Flash file ¬
, export version:SWF version 9 ¬
, Flash Playback Security:flash playback local access ¬
, frame rate:64.0 ¬
, image format:lossless ¬
, JPEG method:optimized ¬
, JPEG quality:8 ¬
, layer order:bottom up ¬
, looping:true ¬
, preserve appearance:false ¬
, read only:false ¬
, replacing:yes ¬
, resolution:144.0 ¬
, save multiple artboards:false ¬
, textkerning:false ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------GIFで別名で保存
else if chooseResult is {"[GIF]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------GIFファイル名
set the GifFileName to the (the MainFileName & "." & "gif") as string
---------------GIF用にディレクトリ名とファイル名をつないでパスにしておく
set saveGifFileName to (pathStringDirName & ":" & GifFileName) as string
---------------書き出しオプション
export activDoc to file saveGifFileName as GIF with options ¬
{class:GIF export options ¬
, antialiasing:true ¬
, artboard clipping:true ¬
, color count:255 ¬
, color dither:none ¬
, color reduction:adaptive ¬
, dither percent:80 ¬
, horizontal scaling:72.0 ¬
, information loss:0 ¬
, interlaced:true ¬
, matte:false ¬
, matte color:{red:255, green:255, blue:255} ¬
, saving as HTML:false ¬
, transparency:true ¬
, vertical scaling:72.0 ¬
, web snap:0 ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------JPGで別名で保存
else if chooseResult is {"[JPG]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------JPGファイル名
set the JPGFileName to the (the MainFileName & "." & "jpg") as string
---------------JPG用にディレクトリ名とファイル名をつないでパスにしておく
set saveJPGFileName to (pathStringDirName & ":" & JPGFileName) as string
---------------書き出しオプション
export activDoc to file saveJPGFileName as JPEG with options ¬
{class:JPEG export options ¬
, antialiasing:true ¬
, artboard clipping:true ¬
, blur:0.0 ¬
, horizontal scaling:72.0 ¬
, matte:false ¬
, matte color:{red:255, green:255, blue:255} ¬
, optimization:true ¬
, quality:80 ¬
, saving as HTML:false ¬
, vertical scaling:72.0 ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------PNG8で別名で保存
else if chooseResult is {"[PNG8]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------pngファイル名
set the PngFileName to the (the MainFileName & "." & "png") as string
---------------png用にディレクトリ名とファイル名をつないでパスにしておく
set savePngFileName to (pathStringDirName & ":" & PngFileName) as string
---------------書き出しオプション
export activDoc to file savePngFileName as PNG8 with options ¬
{class:PNG8 export options ¬
, antialiasing:true ¬
, artboard clipping:true ¬
, color count:255 ¬
, color dither:none ¬
, color reduction:adaptive ¬
, dither percent:80 ¬
, horizontal scaling:72.0 ¬
, interlaced:true ¬
, matte:false ¬
, matte color:{red:255, green:255, blue:255} ¬
, saving as HTML:false ¬
, transparency:true ¬
, vertical scaling:72.0 ¬
, web snap:0 ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------PNG24で別名で保存
else if chooseResult is {"[PNG24]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------pngファイル名
set the PngFileName to the (the MainFileName & "." & "png") as string
---------------png用にディレクトリ名とファイル名をつないでパスにしておく
set savePngFileName to (pathStringDirName & ":" & PngFileName) as string
---------------書き出しオプション
export activDoc to file savePngFileName as PNG24 with options ¬
{class:PNG24 export options ¬
, antialiasing:true ¬
, artboard clipping:true ¬
, matte:false ¬
, matte color:{red:255, green:255, blue:255} ¬
, saving as HTML:false ¬
, transparency:true ¬
, horizontal scaling:72.0 ¬
, vertical scaling:72.0 ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
---------------------Photoshopで別名で保存
else if chooseResult is {"[PSD]"} then
--------------------ファイルを開く
open pathAliasDoc without dialogs
------------------開いたファイルをactivDocとして定義
set activDoc to document 1
----------------Psdファイル名
set the PsdFileName to the (the MainFileName & "." & "psd") as string
---------------Psd用にディレクトリ名とファイル名をつないでパスにしておく
set savePsdFileName to (pathStringDirName & ":" & PsdFileName) as string
---------------書き出しオプション
export activDoc to file savePsdFileName as Photoshop with options ¬
{class:Photoshop export options ¬
, antialiasing:true ¬
, artboard range:ArtRange ¬
, color space:RGB ¬
, editable text:true ¬
, embed ICC profile:true ¬
, maximum editability:true ¬
, resolution:144.0 ¬
, save multiple artboards:true ¬
, warnings:false ¬
, write layers:true ¬
}
------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
end if
------------------イラストレーターを解放
end tell
end repeat
end tell
end open
-------------------------文字の置き換えのサブルーチン
to replace(theText, orgStr, newStr)
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to orgStr
set tmpList to every text item of theText
set AppleScript's text item delimiters to newStr
set tmpStr to tmpList as text
set AppleScript's text item delimiters to oldDelim
return tmpStr
end replace
「ai2export.rtf」をダウンロード[Download]
「ai2export.app.zip」をダウンロード[Download]
| 固定リンク
「AdobeAppleScript」カテゴリの記事
- MakePSUserConfig(2018.10.31)
- この手の出し方は結構好感(2017.07.03)
- [Acrobat AppleScript]tsubasaさんのコメントへのレスポンス【別ファイル】(2011.04.15)
- [PSDcs4]WEBおよびデバイス用に保存【少し直し】(2010.10.25)
- [PSDcs4]WEBおよびデバイス用に保存(2010.10.24)
この記事へのコメントは終了しました。
コメント