作ってみました
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;BRX;X=^X\;BRY;Y=^X\id;内側の点を指定^X\setenv;to;1,,,,,,,)$(nth,$(getenv,to),,;p0;$(index,0,$(getvar,LASTPOINT))","$(index,1,$(getvar,LASTPOINT));setenv;to;2,,,,,,)$(nth,$(getenv,to),,,-boundary;A;O;P;;$(getenv,p0);;explode;l;erase;l;;;l;;ucs;ob;l;lengthen;l;dy;;setenv;to;3,,,,,)$(nth,$(getenv,to),,,,;BRYL;$(/,$(getvar,perimeter),$(getenv,BRY));blockcreatemode;2;-block;BRX;non;0<0;l;;blockcreatemode;$M=$(getvar,BLOCKCREATEMODE);lengthen;l;dy;;setenv;to;4,,,,)$(nth,$(getenv,to),,,,,;BRXL;$(/,$(getvar,perimeter),$(getenv,BRX));blockcreatemode;2;-block;BRY;non;0<0;l;;blockcreatemode;$M=$(getvar,BLOCKCREATEMODE);setenv;to;5,,,)$(nth,$(getenv,to),,,,,,-insert;BRX;non;0<0;1;1;0;explode;l;copy;l;;non;0<0;a;$(getenv,BRX);non;$(getenv,BRXL)<N;erase;p;;setenv;to;6,,)$(nth,$(getenv,to),,,,,,,-insert;BRY;non;0<0;1;1;0;explode;l;copy;l;;non;0<0;a;$(getenv,BRY);non;$(getenv,BRYL)<E;erase;p;;ucs;p;setenv;to;7,)$(nth,$(getenv,to),,,,,,,,-purge;b;BRX;N;;b;BRY;N;setenv;to;0)^M
使用方法
1.マクロ起動
2.X分割数入力
3.Y分割数入力
4.内側の点を指定
以上です
なおR版のようなのでこちらの対応を済ませておいてください
https://ameblo.jp/totthi-macro/entry-10895232361.html