AppleScript - 列出所有字体

Question

我一直试图这样做很长一段时间,并没有找到一种有效的方法来做到这一点.目前我一直在尝试列出我所知道的所有字体:

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

但是编写所有字体需要花费很长时间,我知道Mac上有很多字体.是否有更有效的方法来获取系统上的所有字体,在文本文档中写入一堆东西,然后将每个连续行的字体设置为下一个字体(即第1行的字体是字体1,第2行的字体是字体2等)？

Answer 1

你是对的，Mac OS X 有大量的字体。这些字体分布在四个或更多文件夹中，具体取决于软件安装和计算机上的用户帐户数量。

对你的问题+1，因为我一直在尝试做同样的事情，所以我编写了一个完成这项工作的小脚本。它从四/五个不同位置提取字体，写入文本文档，然后更改字体。但是，当您运行它时，您的系统可能会开始滞后（就像我的系统不久前所做的那样）。但延迟是值得的！这是脚本：

--“获取系统上的所有字体”

显示对话框“警告”&返回&返回&“此脚本可能会导致您的计算机滞后。您确定要继续使用字体采样器吗？” 图标谨慎
将 font_folders 设置为 {"/Users/" 和（系统信息）的短用户名 & "/Library/Fonts/", "/Library/Fonts/", "/Network/Library/Fonts/", "/System /库/字体/”，“/系统文件夹/字体/”}
将这些字体设置为 {}
在 font_folders 中重复 this_font_folder
    尝试
        告诉应用程序“Finder”将这些字体的结尾设置为（（this_font_folder 作为 POSIX 文件）作为别名）的每个项目
    结束尝试
结束重复

--“在文本文档中写一堆东西”

告诉应用程序“TextEdit”
    启用
    将前窗缩放设置为 true
    将前窗口的名称设置为“Font Sampler”
结束告诉
在这些字体中使用 this_font 重复
    告诉应用程序“Finder”将 this_font 设置为 this_font 的名称
    告诉应用程序“TextEdit”将文档 1 的文本设置为文档 1 的文本 & this_font & “：敏捷的棕色狐狸跳过懒狗。” ＆ 返回
结束重复

--“将每个连续行的字体设置为下一个字体（即第1行的字体为Font 1，第2行的字体为Font 2，依此类推）”

重复 i 从 1 到这些字体的计数
    告诉应用程序“Finder”将 this_font 设置为这些_fonts 中第 i 项的名称
    告诉应用程序“TextEdit”告诉文档 1 文本的第 i 段将字体设置为 this_font
结束重复