この掲示板は AutoCADマクロ屋本舗 の掲示板です。

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。

ハッチングから
ハッチングから面積を所得し、文字として表示するマクロがほしいです
  • momo
  • 2018/11/16 (Fri) 20:49:32
Re: ハッチングから
詳しい条件(要望)が書かれていないので、シンプルに。

文字スタイル管理で文字高さが0で設定しているなら、こんな感じ
^C^Carea;o;\-text;\$M=$(*,2.5,$(getvar,dimscale));0;$(getvar,area)^M

文字スタイル管理で文字高さが0以外で設定しているなら、こんな感じ
^C^Carea;o;\-text;\0;$M=$(getvar,area)^M

使い方はどちらも、マクロ実行後にハッチング(面積プロパティを持つオブジェクト)をクリックし、
文字を書きたい場所をクリック。
  • Lon@スマホ
  • 2018/11/17 (Sat) 08:14:16
Re: ハッチングから
こんな感じでできるでしょうか?

自動判断でm/mm切替
^C^Coffset;;\;select;non;@;non;@;;area;o;non;@;text;\;;$M=面積=$(if,$(>,1000,$(getvar,area)),$(rtos,$(getvar,area))㎟,$(rtos,$(/,$(getvar,area),1000000))㎡);^Z

手動でm/mm切替
^C^Coffset;;\;select;non;@;non;@;;area;o;non;@;ray;文字列の始点を指定(㎟はR-Click):^X\$M=$M="$(if,$(getvar,cmdactive),;text;@;;;面積=$(rtos,$(/,$(getvar,area),1000000))㎡,text;\;;面積=$(rtos,$(getvar,area))㎟)";^Z

LT2017で確認
とりあえず参考で作ったので不具合がでるかもしれないです
  • chibi-tom
  • 2018/11/17 (Sat) 08:33:15
Re: ハッチングから
また難しく考えすぎたかもです
Lon様のさすがにすっきりしていてわかりやすいですね
  • chibi-tom
  • 2018/11/17 (Sat) 08:36:13
Re: ハッチングから
対応ありがとうございます。

Lon@スマホ様のマクロで小数第2位までの表示に㎡の文字を入れたいのですがどのようなマクロにしたらいいでしょうか?

  • momo
  • 2018/11/17 (Sat) 09:16:41
Re: ハッチングから
Lon様お仕事中ですかね

$(getvar,area)を
$(rtos,$(getvar,area),2,2)㎡にすれば出来るのかなと思います。
  • chibi-tom
  • 2018/11/17 (Sat) 12:14:07
Re: ハッチングから
>小数第2位までの表示に㎡の文字を入れたいのですが
初めからこの様な要望は書いておきましょう。
書いていれば、私が二度手間を要する事もなく、
chibi-tomさんが、手の込んだ難しいマクロを考える必要もなく、
あなたも、私の2度目の書き込みを待つ必要が有りませんでした。

^C^Carea;o;\-text;\$M=$(*,2.5,$(getvar,dimscale));0;$(rtos,$(getvar,area),2,2)㎡^M

^C^Carea;o;\-text;\0;$M=$(rtos,$(getvar,area),2,2)㎡^M

  • Lon@スマホ
  • 2018/11/17 (Sat) 12:32:10
Re: ハッチングから
Lon様のおっしゃる通り最初から条件を伝えておけば良かったです。
配慮が足りず申し訳ございませんでした。

chibi-tom様、Lon様
対応していただき本当に感謝しております。
この度は本当にありがとうございました。
  • momo
  • 2018/11/17 (Sat) 14:06:38

返信フォーム






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