AutoCADマクロ屋本舗 掲示板

お世話になります
当掲示板で　下記マクロを拝見しました
AutoCAD2023で　動作を確認しました。
矢印が開矢印になりますけど　塗りつぶし矢印に変更出来ないでしょうか。

寸法矢印編集マクロ(片側小黒丸に)
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;dimblk;0;;to;1,;dimblk1;$(nth,$(getenv,dimblk),_dotsmall,_open,_dotsmall,_open);;dimblk2;$(nth,$(getenv,dimblk),_open,_dotsmall,_dotsmall,_open);;to;2,,,,)$(nth,$(getenv,to),,,dim1;override;dimsah;on;dimblk1;$(getenv,dimblk1);dimblk2;$(getenv,dimblk2);;p;;setenv;to;3,,,)$(nth,$(getenv,to),,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：［$(nth,$(getenv,dimblk),右黒丸,両黒丸,両開矢印,左黒丸)(右ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;5)""",,)$(nth,$(getenv,to),,,,,select;@;\setenv;to;1,;dimblk;$(if,$(eq,$(getenv,dimblk),3),0,$(+,$(getenv,dimblk),1));;to;1)^M

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;dimblk;0;;to;1,;dimblk1;$(nth,$(getenv,dimblk),_dotsmall,.,_dotsmall,.);;dimblk2;$(nth,$(getenv,dimblk),.,_dotsmall,_dotsmall,.);;to;2,,,,)$(nth,$(getenv,to),,,dim1;override;dimsah;on;dimblk1;$(getenv,dimblk1);dimblk2;$(getenv,dimblk2);;p;;setenv;to;3,,,)$(nth,$(getenv,to),,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：［$(nth,$(getenv,dimblk),右黒丸,両黒丸,両塗り潰し矢印,左黒丸)(右ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;5)""",,)$(nth,$(getenv,to),,,,,select;@;\setenv;to;1,;dimblk;$(if,$(eq,$(getenv,dimblk),3),0,$(+,$(getenv,dimblk),1));;to;1)^M

これでどうでしょう？

動作を確認いたしました。

LUNEさま　いつもありがとうございます。