AutoCADマクロ屋本舗 掲示板

お久しぶりです。

お知恵を貸していただきたく思います。

寸法公差を自動記入するマクロを作成するに当たり、

^C^C_setenv;上限公差;\_setenv;下限公差;\_dim;override;dimtol;1;dimtp;$M=$(getenv,上限公差);dimtm;$M=$(getenv,下限公差);dimtfac;0.8;;\;,;\;^C^C

のようなマクロをいろんなものを参考に作って見たのですが、下限公差記入字に-がつかなかったため、

MEASUREMENTを1から0にして、元に戻す機能をつけたいです。

これをつけようとすると、うまくいかず、ループも発生したりとわけがわからなくなってしまいました。

解決するため、お知恵を貸していただきたく思います。

よろしくお願い致します。

症状でないですね
マクロを実行すると結果はどうなるのでしょうか？
実行後の流れや画像があるとわかりやすいのですが

ヘルプに
DIMTM の場合は、入力した値の正負を反転させた値が使用されます(つまり、入力した値が正の数値であればマイナス記号、負の数値であればプラス記号が付けられます)。
と書いてあります。
入力の数値に-を書き込んでるってことはないでしょうか？

ちなみに最後の部分が少しおかしい気が
こうではないですか？
^C^C_setenv;上限公差;\_setenv;下限公差;\_dim;override;dimtol;1;dimtp;$M=$(getenv,上限公差);dimtm;$M=$(getenv,下限公差);dimtfac;0.8;;\;^C^C

chibi-tom様

返信ありがとうございます。

言葉が足らず申し訳ありません。

0を入力した際、両方から+と-の符号が消えてしまうのです。

やはり症状でないです
>0を入力した際、両方から+と-の符号が消えてしまうのです。
→仮に、上限公差に『1』下限公差に『0』を入力した時は+1、0になり
上限公差『0』下限公差に『1』に入力した時は0、-1になりましたが
やろうとしていること間違ってないですよね？

ちなみにMEASUREMENTが何なのかは知らないのですが
自分も値は1なので別の原因だと思いますよ

答えになっていなくて申し訳ないですがわからないです。

直接寸法のプロパティを変更し入力する時は、0を入れるとマイナスがつくため、マクロでもそうしたいと思いました。

MEASUREMENTは、ミリ→インチに変えるコマンドで、インチに変えることで0を入力した場合もマイナスがつきます。

なので、インチで図面をかきたいわけではないので、一時的にインチに切り替え、寸法公差を入力した後、ミリに戻る。という流れを作れないかと考えました。

まだ知らないことがたくさんです。

こんな感じでどうでしょうか？
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;MEA;$(getvar,MEASUREMENT);;上限公差;\;下限公差;\;to;1,,)$(nth,$(getenv,to),,MEASUREMENT;0;dimoverride;dimtol;1;dimtp;$M=$(getenv,上限公差);dimtm;$M=$(getenv,下限公差);dimtfac;0.8;;\;setenv;to;2,)$(nth,$(getenv,to),,,MEASUREMENT;$M="""$(getenv,MEA)""";setenv;to;0;^Cid;)^M

複数回アイコンをクリックすることで使用出来るようですが、途中で止まってしまいます。

1回目
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド:
SETENV
変数名を入力: MEA
値 <1>: 1


コマンド:
SETENV
変数名を入力: 上限公差
値 <2>: 2


コマンド:
SETENV
変数名を入力: 下限公差
値 <0>: 0


コマンド:
SETENV
変数名を入力: to
値 <0>: 1

２回目
コマンド: MEASUREMENT

MEASUREMENT の新しい値を入力 <1>: 0

コマンド: dimoverride

優先する寸法記入変数名を入力 または [優先設定をクリア(C)]: dimtol
寸法記入変数の新しい値を入力 <オフ>: 1

優先する寸法記入変数名を入力: dimtp
寸法記入変数の新しい値を入力 <0.0000>: 2

優先する寸法記入変数名を入力: dimtm
寸法記入変数の新しい値を入力 <0.0000>: 0

優先する寸法記入変数名を入力: dimtfac
寸法記入変数の新しい値を入力 <1.0000>: 0.8

優先する寸法記入変数名を入力:

オブジェクトを選択: 認識された数: 1

オブジェクトを選択:

コマンド: setenv
変数名を入力: to
値 <0>: 2

３回目
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <2>: 0


コマンド: MEASUREMENT

MEASUREMENT の新しい値を入力 <0>: 1

コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド:
コマンド: id
点を指定:

４回目以降は、１回目～3回目を繰り返す感じです。

^Mの後にスペースやエンター等は無いでしょうか？
確認してみてください

少し文字数減らしてみました。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;MEA;$(getvar,MEASUREMENT);;上限公差;\;下限公差;\;to;1,)$(nth,$(getenv,to),,;to;0;MEASUREMENT;0;dimoverride;dimtol;1;dimtp;$M=$(getenv,上限公差);dimtm;$M=$(getenv,下限公差);dimtfac;0.8;;\;MEASUREMENT;$M="""$(getenv,MEA)""";^Cid;)^M

やはり同じところで止まってしまいます。

^Mの後にスペースやエンター等は無いでしょうか？→ありませんでした。

AUTOCADがわるいのですかね・・・

自分の環境(LT2017)では
^Mの後にエンターがあると同じような症状になります。

もう一度、ネットから直接コピペではなく
一旦メモ帳等にコピペしてエンター(改行)やスペースが無いことを確認してみてもらえますか？
又は先頭の*が消えていないかも合わせて確認してみてください。


念のためもう一度
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;MEA;$(getvar,MEASUREMENT);;上限公差;\;下限公差;\;to;1,)$(nth,$(getenv,to),,;to;0;MEASUREMENT;0;dimoverride;dimtol;1;dimtp;$M=$(getenv,上限公差);dimtm;$M=$(getenv,下限公差);dimtfac;0.8;;\;MEASUREMENT;$M="""$(getenv,MEA)""";^Cid;)^M

先頭の*が消えておりました・・・

お騒がせしてすいません・・・

無事動きました。

ありがとうございます！

もっと単純に考えて良かったみたいです。
前のでも問題は無いですが簡略化しました。

^C^C$M=setenv;MEA;$(getvar,MEASUREMENT);;上限公差;\;下限公差;\MEASUREMENT;0;dimoverride;dimtol;1;dimtp;$M="$(getenv,上限公差)";dimtm;$M="$(getenv,下限公差)";dimtfac;0.8;;\;MEASUREMENT;$M="$(getenv,MEA)";^Z

自分がまだまだなのを実感しました・・・

初めて2年もたってないですが、

もっと勉強したいと思います。

簡略化したものも無事動きました。

ありがとうございました。

これで良いと思いますよ。　CADで試してませんが。
^C^C_setenv;上限公差;\_setenv;下限公差;\$M=MEASUREMENT;0;_dim;override;dimtol;1;dimtp;$(getenv,上限公差);dimtm;$(getenv,下限公差);dimtfac;0.8;;\;MEASUREMENT;$(getvar,MEASUREMENT)^M

自分は、まだまだだなぁと痛感しますね

ただ、実は最初の玉木様のマクロ_dim;overrideになっているんですよね(最初は自分も気づかなかった)
なので
^C^C_setenv;上限公差;\_setenv;下限公差;\$M=MEASUREMENT;0;_dimoverride;dimtol;1;dimtp;$(getenv,上限公差);dimtm;$(getenv,下限公差);dimtfac;0.8;;\;MEASUREMENT;$(getvar,MEASUREMENT)^M
こうなると思います。

お二人のマクロは綺麗で、整理されていてとても無駄がないように感じます。

感動しました。もっと勉強して少しでも近づけるように頑張ります。