在Mathematica中着色"水平线"

Question

反正有没有在Mathematica中自动将这些线条变为黑色？

Answer 1

这些线路的默认样式文件中定义ContextMenus.tr位于子目录SystemFiles/FrontEnd/TextResources中$InstallationDirectory.如果你在该文件中搜索"CellInsertionPoint",那么你应该找到类似的东西

"CellInsertionPoint" -> {
  ....
  Menu["Insert Ho&rizontal Line",
    {
     MenuItem["Thi&n Line", FrontEndExecute[{
       FrontEnd`NotebookWrite[FrontEnd`InputNotebook[], 
        Cell[" ", "Text", 
         ....
         CellFrameColor->RGBColor[0,0,1]], 
       After]
      }]],
     MenuItem["&Medium Line", FrontEndExecute[{
         .....    
         CellFrameColor->RGBColor[0,0,1]], 
       After]
      }]],
     MenuItem["&Thick Line", FrontEndExecute[{   
         .....
         CellFrameColor->RGBColor[0,0,1]], 
       After]
      }]],
  ....
}

要永久更改水平线的默认颜色,您可以CellFrameColor将这三个MenuItem 设置为您想要的任何颜色(或者如果您想要更多选择,可以创建额外的MenuItem).请注意,您需要重新启动Mathematica才能使更改生效.

如果您不想更改原始文件,还可以将文件的副本保存到其中的相应子目录$BaseDirectory或$UserBaseDirectory编辑该文件.