AutoCADマクロ屋本舗 掲示板

いつも参考にさせていただいております。
ありがとうございます。Autocad LT 2018を使用。
累積面積記入マクロについて困っております。
現在、使用しているマクロです。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;rs;0;;to;1,ray;non;^X内側の点を指定：^X\;setenv;to;2,,,,,)$(nth,$(getenv,to),,,setenv;p1;$(getvar,lastpoint);-boundary;non;@;;area;o;l;erase;l;;setenv;to;3,-mtext;non;$(getenv,p1);non;@;面積=$(rtos,$(/,$(getvar,area),1000000))㎡;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,ray;non;^X次の点を指定：面積=$(rtos,$(/,$(getvar,area),1000000))㎡，総面積=$(rtos,$(/,$(+,$(getenv,rs),$(getvar,area)),1000000))㎡［総面積記入(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;5,setenv;to;6)""",,)$(nth,$(getenv,to),,,,,,;rs;$(+,$(getenv,rs),$(getvar,area));;to;2,-mtext;\@;総面積=$(rtos,$(/,$(+,$(getenv,rs),$(getvar,area)),1000000))㎡;;id;)^M


このマクロを、ハッチングを選択して累積面積を表示させることはできるのでしょうか。
よろしくお願いします。

気づくのが遅くなりました。
明日考えてみます。
少しお待ちを。

修正してみました。
お試しください。

♪累積面積記入マクロ（ｵﾌﾞｼﾞｪｸﾄ選択ﾊﾞｰｼﾞｮﾝ）
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;rs;0;;to;1,;to;0;offset;;^Xｵﾌﾞｼﾞｪｸﾄ選択：^X\;setenv;to;1;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,setenv;p1;$(getvar,lastpoint);area;o;l;setenv;to;3,-mtext;non;$(getenv,p1);non;@;面積=$(rtos,$(/,$(getvar,area),1000000))㎡;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,offset;;^X次のｵﾌﾞｼﾞｪｸﾄ選択：面積=$(rtos,$(/,$(getvar,area),1000000))㎡，総面積=$(rtos,$(/,$(+,$(getenv,rs),$(getvar,area)),1000000))㎡［総面積記入(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;5,setenv;to;6)""",,)$(nth,$(getenv,to),,,,,,;to;4;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;rs;$(+,$(getenv,rs),$(getvar,area));;to;2,-mtext;\@;総面積=$(rtos,$(/,$(+,$(getenv,rs),$(getvar,area)),1000000))㎡;;id;)^M

とってぃ様

確認しました。
大変助かりました！これで作業の短縮ができました。
本当にありがとうございました。