« [Fonts]フォントライブラリを作成する | トップページ | [Distiller]PSファイルをPDFに変換する »

[Fonts]フォントコレクションを作成する

ダウンロード - add20font20to20font20collection.scpt.zip


#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
##自分環境がos12なので2.8にしているだけです
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions


####設定項目
set strMyFontFontCollectionName to "新しいコレクション"



###############起動を待つ(FontBookの提携必須)
tell application "Font Book" to launch
repeat
try
tell application "Font Book"
activate
properties
end tell
exit repeat
on error
delay 0.5
end try
end repeat
########フォントコレクションの一覧を取得
tell application "Font Book"
properties
set listFontCollection to name of every font collection as list
end tell
####同名のコレクションあるか?確認する
set boolSameCollection to 0
repeat with objFontCollection in listFontCollection
set strFontCollection to objFontCollection as text
if strFontCollection is strMyFontFontCollectionName then
set boolSameCollection to 1
end if
end repeat
####同名のコレクションが無ければ作る
if boolSameCollection is 0 then
tell application "Font Book"
make new font collection with properties {name:strMyFontFontCollectionName}
end tell
end if
####↑作った場合名称が編集可能な状態になるので確定させる
delay 2
tell application "Font Book"
set (selected collections) to font domain "User"
end tell

|

« [Fonts]フォントライブラリを作成する | トップページ | [Distiller]PSファイルをPDFに変換する »

AppleScript Fonts」カテゴリの記事