autocad2019です。
ハッチングの累計面積をクリックして、個々の面積を表示させる、また総面積も表記させるというマクロを作成していただきました。
そこで、
①CAD上の面積は、mm単位で作図しているので、表示させる面積は「m2」にしたい。
(例えば、1,000,000mm2なので、1000000で割って1m2としたい。)
②表示単位を1.00m2と下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;@;A=$(rtos,$(/,$(getvar,area),1))㎡;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,offset;;^X次のオブジェクト選択:A=$(rtos,$(/,$(getvar,area),1000000))㎡,ΣA=$(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
です。よろしくお願いいたします。
累計面積マクロ修正のお願い
- 森本
- 2020/06/29 (Mon) 14:28:37