作ってみました。
お試しください。
♪累積面積 切捨記入マクロ
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;rs;0;;to;1,ray;non;^X内側の点を指定:^X\;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;to;3;;p1;$(getvar,lastpoint);-boundary;non;@;;area;o;l;erase;l;,;a1;$(rtos,$(-,$(/,$(getvar,area),1000000),0.005),2,2);-mtext;non;$(getenv,p1);non;@;面積=$M="""$(getenv,a1)"""㎡;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,ray;non;^X次の点を指定:面積=$(getenv,a1)㎡,総面積=$(+,$(getenv,rs),$(getenv,a1))㎡[総面積記入(R-Click)]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;5,setenv;to;6)""",,)$(nth,$(getenv,to),,,,,,;rs;$(+,$(getenv,rs),$(getenv,a1));;to;2,)$(nth,$(getenv,to),,,,,,,-mtext;\@;総面積=$(+,$(getenv,rs),$(getenv,a1))㎡;;id;)^M
- とってぃ
- 2017/02/16 (Thu) 08:25:12