把这个函数放到你的init.m文件。
System`clc:=((SelectionMove[#,All,Cell];NotebookDelete[])&/@Cells[];NotebookDelete[])
Ps:init.m文件可以用这个函数找到。FindFile["init.m"]
Update 1:
System`clc:=(SelectionMove[EvaluationCell[],All,Notebook];NotebookDelete[])
Update 2:
找到一个全选的前端令牌
System`clc:=(FrontEndTokenExecute["SelectAll"];NotebookDelete[])
Update 3:
呃,好像还可以这样子
System`clc:=FrontEndTokenExecute/@{"SelectAll","Clear"};