fonts - AppleScript - 列出所有字体

Question

我已经尝试这样做了很长时间，但还没有找到一种有效的方法来做到这一点。目前我一直在尝试列出我知道的所有字体:

set the font_list to {"Arial","Comic Sans MS","Arial Black",...}

但需要 永远编写所有字体，我知道 Mac 上有大量字体。有没有更高效的办法把系统上的所有字体都弄出来，在一个文本文档里写一堆东西，然后把每一个连续行的字体设置为下一个字体(即第1行的字体是字体1，第2行的字体是字体 2，等等)？

Answer 1

 tell application "Font Book" to name of font families

set l to {"Regular", "Roman", "Book", "Plain", "55 Roman", "R"}
set found to {}
tell application "Font Book"
    repeat with x in typefaces
        if l contains style name of x then set end of found to name of x
    end repeat
end tell
found