OS X | 雑スクリプト

メタデータを利用してイラストレーターを開かずに、1色／カラー判定。

2015年11月7日 tetsu AppleScript, Illustrator, OS X

よく1色(グレースケール)のデータを扱うのですが、

デザイナーからのイラストレーターデータが

1色に変換しきれてない場合がよくあって、

とりあえずイラストレーターデータをインデザインに配置し、

インデザインやアクロバットの分版プレビューで

確認するのですが時間がかかる。

インデザインのプリフライトだと、

データは1色なのに4色と誤判定してしまう場合が多々あります。

そこで、イラストレーターを直接開かずに、

簡単にすばやく、1色／カラーを判定をするスクリプトを紹介します。

おそらく、イラストレーターCS3〜CS6のファイルで判定可能です。

CCのデータは、扱ったことがないので分かりません。

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

下記のAppleScriptコードを入力して、

アプリケーション形式で「AI_Color_Check」などの適当な名前で保存。

▼AppleScript（ドラッグ＆ドロップタイプ）

on open dorp
	set fileColorList to {}
	
	repeat with dorpFile in dorp
		set theFilePath to dorpFile as string
		set theFileName to name of (info for dorpFile)
		
		try
			set fileColorName to do shell script "echo | sed -n '/<xmpTPg:PlateNames>/, /<\\/xmpTPg:PlateNames>/p' " & quoted form of POSIX path of dorpFile & " | sed -n -e 's/^.*<rdf:li>\\(.*\\)<\\/rdf:li>/\\1/p'"
		end try
		
		if fileColorName = "" then
			try
				set fileColorName to do shell script "echo | sed -n '/<xapTPg:PlateNames>/, /<\\/xapTPg:PlateNames>/p' " & quoted form of POSIX path of dorpFile & " | sed -n -e 's/^.*<rdf:li>\\(.*\\)<\\/rdf:li>/\\1/p'" --CS3用
			end try
		end if
		
		if fileColorName = "" then set fileColorName to "No info"
		
		set the end of fileColorList to return & "▼" & theFileName & return & fileColorName & return
	end repeat
	
	beep
	
	tell application "TextEdit"
		activate
		set text of (make new document) to (fileColorList as text)
	end tell
	
end open

on open dorp

set fileColorList to {}

repeat with dorpFile in dorp

set theFilePath to dorpFile as string

set theFileName to name of (info for dorpFile)

try

set fileColorName to do shell script "echo | sed -n '/<xmpTPg:PlateNames>/, /<\\/xmpTPg:PlateNames>/p' " & quoted form of POSIX path of dorpFile & " | sed -n -e 's/^.*<rdf:li>\\(.*\\)<\\/rdf:li>/\\1/p'"

end try

if fileColorName = "" then

try

set fileColorName to do shell script "echo | sed -n '/<xapTPg:PlateNames>/, /<\\/xapTPg:PlateNames>/p' " & quoted form of POSIX path of dorpFile & " | sed -n -e 's/^.*<rdf:li>\\(.*\\)<\\/rdf:li>/\\1/p'" --CS3用

end try

end if

if fileColorName = "" then set fileColorName to "No info"

set the end of fileColorList to return & "▼" & theFileName & return & fileColorName & return

end repeat

beep

tell application "TextEdit"

activate

set text of (make new document) to (fileColorList as text)

end tell

end open

【使い方】

作成したスクリプトに調べたいイラストレーターファイルを

ドラッグ＆ドロップすると下図のように表示されます。

ただし表示は、RGBデータの場合でも、4版表示されます。

1色の場合は、「Black」だけになります。

【注意点】

分版プレビューでは1色なのに、「Black」だけにならない場合もありますが、

その時は再度、オブジェクトを全選択で「グレースケールに変換」で再保存。

そうすれば「Black」だけになると思います。

参考情報

非常に困っております。applescript（shell script）と adobe illustra… – Yahoo!知恵袋

グレースケール（Illustrator） – 変換できないオブジェクト

» 【DTP】分版プレビューをする方法まとめ2014年版

フォルダーアクション設定をOFF/ON。

2015年10月23日 tetsu AppleScript, Automator, OS X

フォルダーアクションをローカルサーバー上に設定した際、

設定した時は動いたけど、

パソコンを再起動したら反応しなくなったので、

使用しなくなってしまったなんて方もいるのではないでしょうか。

そこで、今回はローカルサーバー上のフォルダーアクションを

確実に動作させるスクリプトを紹介します。

仕組みとしては、

パソコンを起動させ、サーバーに接続したあとに、

フォルダーアクション設定をOFF/ONするだけのスクリプト。

▼AppleScript

try
	tell application id "com.apple.systemevents"
		set folder actions enabled to false
		delay 0.1
		set folder actions enabled to true
	end tell
end try

try

tell application id "com.apple.systemevents"

set folder actions enabled to false

delay 0.1

set folder actions enabled to true

end tell

end try

フォルダーアクション設定を表示させたまま、

スクリプトを実行すれば視覚的に

OFF/ONされているのが分かります。

/システム/ライブラリ/CoreServices/フォルダアクション設定

OS Xの「サービス」を使用して、文字化けした丸数字を元に戻す。

2015年9月23日 tetsu AppleScript, Automator, OS X, Other

Windowsから来たメールやテキストなどに、

よく使用されている①、②などの丸数字は、

Macだと文字化けしてしまいます。

それを簡単に元に戻す方法を紹介します。

単なる文字置換ですけど…

【作成方法】

アプリケーション　＞　Automator　＞　サービスを選択。

ライブラリ　＞　AppleScriptを実行をダブルクリック。

画像のように、AppleScriptコードを入力して、

「◯数字変換」などの適当な名前で保存します。

▼AppleScript

on run {input, parameters}
	
	try
		set a to the (input as string)
		
		set c to repChar(a, "㈰", "①") of me
		set c to repChar(c, "㈪", "②") of me
		set c to repChar(c, "㈫", "③") of me
		set c to repChar(c, "㈬", "④") of me
		set c to repChar(c, "㈭", "⑤") of me
		set c to repChar(c, "㈮", "⑥") of me
		set c to repChar(c, "㈯", "⑦") of me
		set c to repChar(c, "㉀", "⑧") of me
		set c to repChar(c, "㈷", "⑨") of me
		set c to repChar(c, "㉂", "⑩") of me
		set c to repChar(c, "㉃", "⑪") of me
		set c to repChar(c, "㈹", "⑫") of me
		set c to repChar(c, "㈺", "⑬") of me
		set c to repChar(c, "㈱", "⑭") of me
		set c to repChar(c, "㈾", "⑮") of me
		set c to repChar(c, "㈴", "⑯") of me
		set c to repChar(c, "㈲", "⑰") of me
		set c to repChar(c, "㈻", "⑱") of me
		set c to repChar(c, "㈶", "⑲") of me
		set c to repChar(c, "㈳", "⑳") of me
				
	end try
	
	return c
end run
--文字置換ルーチン
on repChar(origText, targStr, repStr)
	set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}
	set temp to text items of origText
	set AppleScript's text item delimiters to repStr
	set res to temp as text
	set AppleScript's text item delimiters to txdl
	return res
end repChar

on run {input, parameters}

try

set a to the (input as string)

set c to repChar(a, "㈰", "①") of me

set c to repChar(c, "㈪", "②") of me

set c to repChar(c, "㈫", "③") of me

set c to repChar(c, "㈬", "④") of me

set c to repChar(c, "㈭", "⑤") of me

set c to repChar(c, "㈮", "⑥") of me

set c to repChar(c, "㈯", "⑦") of me

set c to repChar(c, "㉀", "⑧") of me

set c to repChar(c, "㈷", "⑨") of me

set c to repChar(c, "㉂", "⑩") of me

set c to repChar(c, "㉃", "⑪") of me

set c to repChar(c, "㈹", "⑫") of me

set c to repChar(c, "㈺", "⑬") of me

set c to repChar(c, "㈱", "⑭") of me

set c to repChar(c, "㈾", "⑮") of me

set c to repChar(c, "㈴", "⑯") of me

set c to repChar(c, "㈲", "⑰") of me

set c to repChar(c, "㈻", "⑱") of me

set c to repChar(c, "㈶", "⑲") of me

set c to repChar(c, "㈳", "⑳") of me

end try

return c

end run

--文字置換ルーチン

on repChar(origText, targStr, repStr)

set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}

set temp to text items of origText

set AppleScript's text item delimiters to repStr

set res to temp as text

set AppleScript's text item delimiters to txdl

return res

end repChar

【使い方】

テキストエディットなどで

文字化けした文字列を選択して、

作成したサービスを選択すると、

上の図のように変換されます。

他にも、改行の変換や簡易校正など、

色々と使い道がありそうです。

参考情報

WindowsからiPhone／iPod touch／Macに送ってはいけない文字とは？