Is there a command to close all the tabs?

Is there a command to close all the tabs? I want to only hold the active one，and close all others，is any script can do this？

https://blogs.mathworks.com/simulink/2013/02/13/i-cant-beleive-it-took-me-6-months-to-find-that/

Answer 1

[Fangjun Jiang]

Starting from gcs, you can do this. The tab for the root level model would be kept open. The tabs for other models are also not closed.

a=find_system(bdroot(gcs),'FindAll',1,'BlockType','SubSystem');
b=setdiff(a,get_param(gcs,'handle'));
bdclose(b);