静下心来学了下样式表的使用(好吧其实就是把SE帖子《Need a gentle introduction to stylesheet writing》(
https://mathematica.stackexchange.com/q/153102/1871)给看了),学到了一个跟3楼
@隨意超 的方法等效但是更容易上手一点(当然,也要慢一点)的方法。假设我们对原本的二线表怎么来的一无所知,那么理论上我们可以靠以下步骤探索出修改方案:
1. 先搞清楚原本的二线表是怎么来的。这个只需要选中生成的二线表,再按下Ctrl+Shift+e(或者在顶部菜单里选 单元 > 显示表达式)即可。然后我们就会看到:
Cell[BoxData[
TagBox[GridBox[{
{"111", "222", "333"},
{"3", "4", "5"},
{"5", "6", "7"}
},
AutoDelete->False,
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]], "Table",
CellChangeTimes->{3.9879773812194886`*^9, 3.987977418263962*^9}]
二线表的底层是个GridBox。进一步查询GridBox的帮助,会发现它有个GridBoxDividers选项。(“更多信息”里没提,但是示例部分有它的例子。直接观察Options[GridBox]的输出应该也不太难注意到这个选项。)
2. 调整样式表的GridBoxDividers选项。点击顶部菜单 格式 > 编辑样式表,点击左上角的 选择样式 > Table,按下Ctrl+Shift+o,搜索GridBoxDividers(其实直接输gridbox就足以定位它了),就会看到这个选项在当前样式表里的默认选项值是
{"Columns" -> {False, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {AbsoluteThickness[2], {False}, AbsoluteThickness[0.5]}, "RowsIndexed" -> {}}
尽管GridBoxDividers在文档里没多解释,但靠这行代码,我们不难猜出它的设定方法。我们把它改成下面这样
再回车:
{"Columns" -> {False, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {AbsoluteThickness[2], AbsoluteThickness[0.5], {False}, AbsoluteThickness[0.5]}, "RowsIndexed" -> {}}
就会看到样式改过来了。我们当然还可以再次Ctrl+Shift+e直接修改样式表里相应单元的选项,不过这个就跟 隨意超 的做法差不多了。
不过这里有个未解之谜:为什么选项GridBoxDividers没有出现在本楼第一步的输出里?它被设在哪了?