[Fonts]コレクションにフォントを追加する
add TypeFace to font collection が１フォント約２秒かかるので
平気で１時間とかかかる… 実用には向かない、高速化できれば良いだが方法が見当たらない…泣
ダウンロード - add20to20font20collection.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
###############起動を待つ(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 listFontCollections to name of every font collection as list
end tell
####################コレクション作成
set strFontCollectionsName to "100:Thin" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "200:Extra Light" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "300:Light" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "400:Regular" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "500:Medium" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "600:Demi Bold" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "700:Bold" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "800:Extra Bold" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "900:Heavy" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "950:Extra Black" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "Oblique" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################コレクション作成
set strFontCollectionsName to "Italic" as text
set boolSameCollections to 0
repeat with objFontCollections in listFontCollections
set strFontCollections to objFontCollections as text
if strFontCollections is strFontCollectionsName then
set boolSameCollections to 1
end if
end repeat
if boolSameCollections is 0 then
tell application "Font Book"
make new font collection with properties {name:strFontCollectionsName}
end tell
end if
####################################################
####################################################
tell application "Font Book"
tell font domain "User"
set listTypeFace to every typeface
end tell
end tell
tell application "Font Book"
tell font domain "User"
set listStyleName to style name of every typeface
end tell
end tell
set numRepeatCnt to 1
set numCntTypeFace to count of listTypeFace
repeat numCntTypeFace times
tell application "Font Book"
set objTypeFace to item numRepeatCnt of listTypeFace
set objStyleName to item numRepeatCnt of listStyleName
if objStyleName contains "Oblique" then
try
add objTypeFace to font collection "Oblique"
end try
end if
if objStyleName contains "Italic" then
try
add objTypeFace to font collection "Italic"
end try
end if
###################################################
if objStyleName contains "Ultra Light" then
try
add objTypeFace to font collection "100:Thin"
end try
end if
if objStyleName contains "Thin" then
try
add objTypeFace to font collection "100:Thin"
end try
end if
if objStyleName contains "Extra Light" then
try
add objTypeFace to font collection "200:Extra Light"
end try
end if
if objStyleName is "Light" then
try
add objTypeFace to font collection "300:Light"
end try
end if
if objStyleName contains "Regular" then
try
add objTypeFace to font collection "400:Regular"
end try
end if
if objStyleName contains "Medium" then
try
add objTypeFace to font collection "500:Medium"
end try
end if
if objStyleName contains "Demi Bold" then
try
add objTypeFace to font collection "600:Demi Bold"
end try
end if
if objStyleName is "Bold" then
try
add objTypeFace to font collection "700:Bold"
end try
end if
if objStyleName contains "Extra Bold" then
try
add objTypeFace to font collection "800:Extra Bold"
end try
end if
if objStyleName contains "Heavy" then
try
add objTypeFace to font collection "900:Heavy"
end try
end if
###################################################
if objStyleName contains "W0" then
try
add objTypeFace to font collection "100:Thin"
end try
end if
if objStyleName contains "W1" then
try
add objTypeFace to font collection "100:Thin"
end try
end if
if objStyleName contains "W2" then
try
add objTypeFace to font collection "200:Extra Light"
end try
end if
if objStyleName contains "W3" then
try
add objTypeFace to font collection "300:Light"
end try
end if
if objStyleName contains "W4" then
try
add objTypeFace to font collection "400:Regular"
end try
end if
if objStyleName contains "W5" then
try
add objTypeFace to font collection "500:Medium"
end try
end if
if objStyleName contains "W6" then
try
add objTypeFace to font collection "600:Demi Bold"
end try
end if
if objStyleName contains "W7" then
try
add objTypeFace to font collection "700:Bold"
end try
end if
if objStyleName contains "W8" then
try
add objTypeFace to font collection "800:Extra Bold"
end try
end if
if objStyleName contains "W9" then
try
add objTypeFace to font collection "900:Heavy"
end try
end if
###################################################
set numRepeatCnt to numRepeatCnt + 1
end tell
end repeat
| 固定リンク
「Fonts」カテゴリの記事
- [python3]フォントのグリフIDを取得する(2024.11.28)
- [reportlab]フォントのダンプ（失敗作）(2024.11.25)
- [Font] SkypeAssets 絵文字フォント Skype専用(2024.11.21)
- Adobe Fonts 同期のリセット（同期不具合発生時用） 少し手直し(2024.11.16)
- 文字関連メモ まとめ用(2024.11.14)