以前質問
http://totthi.bbs.fc2.com/?act=reply&tid=16296804
zukki-様のマクロを利用して
こんな感じでできますか?
lt2017で動作確認です。
ただ、自分も完全に理解しているわけでは無いので疑問にはお答えできないかもしれません
zoomの前に_MVIEW;L;ON;ALL;;を足し冒頭にsetenv;dq;";を足しただけです。
冒頭にsetenv;dq;";を足しているので何度も設定していますが意味はありません
*^C^Csetenv;dq;";$M=setenv;to;0;$(if,$(=,$(getenv,to),0),undo;be;-layout;n;endlo;;s;endlo;;d;;setenv;lo0;$(getvar,ctab);;lo1;$M="""$(getenv,dq)$(getvar,ctab)$(getenv,dq)""";;cnt;1;;to;1;-layout;d;)$(if,$(=,$(getenv,to),1),$(if,$(eq,$(getenv,lo$(getenv,cnt)),$(getvar,ctab)),;to;2,;lo$(+,$(getenv,cnt),1);$(getenv,dq)$(getvar,ctab)$(getenv,dq);;cnt;$(+,$(getenv,cnt),1);;to;1;-layout;d;))$(if,$(=,$(getenv,to),2),undo;e;u;setenv;i;$(getenv,cnt);;to;3)$(if,$(=,$(getenv,to),3),-layout;s;$(getenv,dq)$(getenv,lo$(getenv,i))$(getenv,dq);_MVIEW;L;ON;ALL;;pspace;zoom;e;setenv;to;4)$(if,$(=,$(getenv,to),4),$(if,$(=,$(getenv,i),1),^C^Cmodel,;i;$(-,$(getenv,i),1);;to;3))^M
注意
1.ビューポートの無いレイアウトがあるとループしてしまいキャンセルも聞かない可能性があります。
2.モデルタブから始めるとまともに動かないと思います。