当掲示板は、AuroCADマクロ屋本舗 の掲示板です。
AutoCADのマクロ に関する質問の前に 【 マクロ使用前の注意事項 】 を、必ずお読みください。

尚、新規投稿フォーム下の【 新規投降時のお願い 】
を確認の上、新規投降をお願い致します。
累積面積記入マクロについて
累積面積記入マクロが大変便利で、有難く使用させていただいております。ありがとうございます。
ですが残念な点がただ1つ、四捨五入してしまう事です。
出来れば小数点第3位以下切り捨ての動作になると非常に嬉しいのですが可能でしょうか。

(例えば 12.45678 と 33.57852 だったら 12.45 と 33.57 となり合計は 46.02 となるように)

宜しくお願いいたします。


AutoCADバージョン:2010、2014
  • びーちゃん
  • 2017/02/15 (Wed) 23:25:13
Re: 累積面積記入マクロについて
作ってみました。
お試しください。

♪累積面積 切捨記入マクロ
*^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
Re: 累積面積記入マクロについて
とってぃさん

早速仕事で使用しました。今まで結構時間が掛かるし面倒だった作業が
かなり時間短縮&楽になりました!
愛用させていただきます。ありがとうございました!
  • びーちゃん
  • 2017/02/18 (Sat) 00:12:45

返信フォーム






プレビュー (投稿前に内容を確認)