AutoCADマクロ屋本舗 掲示板

AutoCAD2016LT使用者です。
引き出し線のマクロについてなんですが、
2-Φ10キリ通し
という文字にしたいです。
*^C^Csetenv;m1;1;;m2;1;;m3;0;;m1;個数^x\;m2;穴数^x\;m3;深さ
^x\select;si;\area;o;@;leader;@;\;$M=
$(if,$(=,$(getenv,m1),1),$(if,$(=,$(getenv,m2),1),%%C,$(getenv,m2)-%%C),$(if,$(=,$(getenv,m2),1),
$(getenv,m1)-%%C,$(getenv,m1)?$(getenv,m2)-%%C))$(rtos,$(/,$(getvar,perimeter),3.1416),2,3)
キリ通し
$(if,$(=,$(getenv,m3),0),;,;深さ$(getenv,m3);)^M
だと文字が出てきませんでした。
宜しくお願いします。

上記の貼り付けられたマクロは
色々な箇所に 改行 があるのが原因です。

余分な改行を無くしたものが以下です。


*^C^Csetenv;m1;1;;m2;1;;m3;0;;m1;個数^x\;m2;穴数^x\;m3;深さ^x\select;si;\area;o;@;leader;@;\;$M=$(if,$(=,$(getenv,m1),1),$(if,$(=,$(getenv,m2),1),%%C,$(getenv,m2)-%%C),$(if,$(=,$(getenv,m2),1),$(getenv,m1)-%%C,$(getenv,m1)×$(getenv,m2)-%%C))$(rtos,$(/,$(getvar,perimeter),3.1416),2,3)キリ通し$(if,$(=,$(getenv,m3),0),;,;深さ$(getenv,m3);)^M


空白や改行は、マクロでは「エンター」扱いとなり、マクロの動作不具合となります。
見た目には改行されていますが、全て連続で書かれています。
ご注意を。

とってぃ 様

ご教示ありがとうございます。
なるほど...
そういうことだったんですね。
今確認してみたところ、
文字は出るのですが
2?5-Φ85.943キリ通しと出てしまいます。
個数は2、Φ10で入力したのですが...

Dyさんが貼り付けられたマクロに文字化けが有りますね。


2018/05/29 (Tue) 11:13:05
の返信したマクロを修正しましたので
再度コピーし、貼り付けて使用してみて下さい。

とってぃ 様

ありがとうございます。
文字化けしてたんですね。
難しいですね、マクロは。

文字なのですが、
個数と穴径のみでOKなのですが
そのように修正して頂けないでしょうか。

2-Φ10キリ通し
このような感じです。
お願い致します。

穴数 → 1
深さ → 0

と記入すれば不要な部分は出ませんよ。

とってぃ 様

ありがとうございます。
できました！
しかし何故かΦが6で固定になってしまいます。
お願い致します。

それは円の直径が別の値でもでしょうか？
自動計算しているのですが、なぜでしょう？

マクロ実行後の流れを貼り付けてもらえますか？

とってぃ 様

すみません！
今描いている図面上でずっと確認していたため
同じ穴径でした;;
そりゃΦ6しかでないですよね...
大変失礼致しました。

ちなみに、ブロックは
未対応ですよね？
宜しくお願いします

＞ブロックは未対応ですよね？

試したら分かると思いますが未対応です。
ブロックでは自動計算出来ませんので。

とってぃ 様

そうですよね。
ありがとうございました。