wolfram-mathematica - 如何获取(不显示)节号

Question

可以通过使用 Insert > Automatic Numbering... 菜单插入自动编号对象 CounterBox["Section"] 来自动编号笔记本部分。但是，此对象仅控制节号的显示，我想获取其数字值 以在程序中使用。知道怎么做吗？

编辑
概述了我要使用它的原因 here .

Answer 1

用 TagBox 和已知标签包装 CounterBox:

Cell[BoxData[TagBox[CounterBox["Section"], "tag"]], "Text"]

然后使用 FrontEnd`ObjectContents 将所有 DynamicBox/CounterBox/ValueBox 转换为文字并挑选出该 TagBox 的值:

x = First@Cases[FrontEnd`ObjectContents[nb, True], TagBox[x_, "tag"] :> x, \[Infinity]]

如果你只想知道有多少个特定类型的计数器，你可以这样做:

x = FE`Evaluate[CurrentValue[{"MaxCounterValue", "Section"}]]