累積面積記入マクロ 内側指定版 [2006.3.29修正]
| *^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 |
LT2000 動作確認済
●使い方
１．オブジェクトの内側の点を指定（指定した位置に面積記入）
２．次のオブジェクトの内側の点を指定するごとに累積計算（指定した位置に面積記入）
右クリックで総面積記入 → ３へ
３．文字位置指定 → １へ戻る(この時、累積はリセットされます)
累積面積記入マクロ ﾊｯﾁﾝｸﾞ選択版 [2018.5.2追加]
| *^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 |
2013/2018 動作確認済
●使い方
１．ハッチングを選択（指定した位置に面積記入）
２．次のオブジェクトを選択するごとに累積計算（指定した位置に面積記入）
右クリックで総面積記入 → ３へ
３．文字位置指定 → １へ戻る(この時、累積はリセットされます)
▲注意
１．マクロ長の為、メニューファイルに直接コピペしてください
■更新履歴
・2018.05.02 ﾊｯﾁﾝｸﾞ選択版追加
・2006.03.29 内側指定版修正
徹底解説AutoCAD LT 2012 (エクスナレッジムック)/鈴木裕二
￥3,990
Amazon.co.jp