75.累積面積表示マクロ | AutoCADマクロ屋本舗
[75]
累積面積(㎡)表示マクロ [2006.3.29修正]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;rs;0;;to;1,ray;non;^X内側の点を指定:^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,id;)""",,,)$(nth,$(getenv,to),,,-boundary;non;@;;area;o;l;erase;l;;setenv;to;4,;rs;$(+,$(getenv,rs),$(getvar,area));;to;2,)$(nth,$(getenv,to),,,,,ray;non;^X次の点を指定:部分面積=$(rtos,$(/,$(getvar,area),1000000))㎡,累積面積=$(rtos,$(/,$(+,$(getenv,rs),$(getvar,area)),1000000))㎡[累積リセット(Rc)]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,id;)""")^M

累積面積(m㎡)表示マクロ [2007.1.4追加]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;rs;0;;to;1,ray;non;^X内側の点を指定:^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,id;)""",,,)$(nth,$(getenv,to),,,-boundary;non;@;;area;o;l;erase;l;;setenv;to;4,;rs;$(+,$(getenv,rs),$(getvar,area));;to;2,)$(nth,$(getenv,to),,,,,ray;non;^X次の点を指定:部分面積=$(rtos,$(getvar,area))m㎡,累積面積=$(rtos,$(+,$(getenv,rs),$(getvar,area)))m㎡[累積リセット(Rc)]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,id;)""")^M


LT2000 動作確認済

●使い方
1.オブジェクトの内側の点を指定 ~繰返し~

  繰返し内側の点を指定する度に、
  コマンドラインに単体面積及び累積面積表示!


▲注意
1.選択した内側の点のオブジェクトが閉じられて無い場合、正常に動作しません。

■コメント
次々に内側の点を指定することで
各面積と合計面積をコマンドラインに表示します!


すぐわかるSUPER AutoCAD LT らくらく操作マスター 2012/2011対応/中川和久

¥2,940
Amazon.co.jp