SAB-a的TCL脚本