Mathematica
自带的修改字体功能似乎并没有什么用……如果想修改的话,需要手动运行代码修改。代码分为两部分
函数定义
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
setFont[fontFamily_, fontSize_] := With[ { styleNB = Notebook[ { Cell[StyleData[StyleDefinitions -> "Default.nb"]], Cell[StyleData["StandardForm"], FontFamily -> ToString[fontFamily], FontSize -> ToExpression[fontSize]] } ], styleSheetName = FileNameJoin[ { $UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets", "myStyle.nb" } ] }, If[ FileExistsQ[styleSheetName], SetOptions[$FrontEnd, DefaultStyleDefinitions -> "Default.nb"] ]; Export[styleSheetName, styleNB]; SetOptions[$FrontEnd, DefaultStyleDefinitions -> styleSheetName] ];
|
函数运行
1 2 3 4 5
|
setFont["字体名称", 字体大小] 比如: setFont["Consolas", 12] 或者 setFont["Monaco", 13]
|
用法
将以上函数和运行的代码粘贴进一个.nb
文档,运行即可修改字体。
近期评论