AutoCADマクロ屋本舗 掲示板

機械設計で下記のような面取り寸法のマクロを使っています。
座標を回転させて、引き出し線で45°に寸法を入れて、元に戻しています。
CAD が Mechanical2014 から 2018 に変わり、カスタマイズしてボタンを作ったのですが、
座標を回したところで止まってしまいます。どのように直せばいいでしょうか？
教えていただけますか？
-----------------------------------------------------------------------
コマンド: _Explode

オブジェクトを選択: MID
どこの
オブジェクトは分解できません。

何も見つかりません。
オブジェクトを選択: *キャンセル*

コマンド: _Ucs

現在の UCS 名: *ワールド*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: OB

UCS を位置合わせするオブジェクトを選択: MID
どこの @

コマンド:
UCS

現在の UCS 名: *名前なし*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: M

新しい原点を指定 または [Z 深さ(Z)] <0,0,0>: MID
どこの @

コマンド:
UCS

現在の UCS 名: *名前なし*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: Z

Z 軸の回りの回転角度を指定 <90>: 90

コマンド: _Lengthen

計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>:

変更するオブジェクトを選択 または [元に戻す(U)]: dy


*選択無効*
点を指定 または フェンス(F)/元に戻す(U)]:

-----------------------------------------------------------------------

^C^C_Explode;MID;\^C_Ucs;OB;MID;@;;M;MID;@;;Z;$M=$(IF,$(<,0,$(INDEX,0,

$(GETVAR,UCSYDIR))),90,270);_Lengthen;dy;;;NON;;@;;_Ortho;ON;_LEADER;NON;@;NON;\;C"$M=$(rtos,

$(/,$(getvar,PERIMETER),1.41421356))";;_Orthomode;$M=$(if,$(eq,

$(getvar,Orthomode),1),1;,0;);;Ucs;P;;P;;P;Autosnap$M=;$(getvar,Autosnap);;;^M;^M;

申し訳ないのですが
明日から出張で来週まで確認出来ません。

とりあえず
当HPマクロ集
20.自動面取り寸法記入
をお試し下さい。

こちらも2018で動くかは未確認ですが。

とりあえず、ちはせさんのご提示マクロを、ダイエット＆エンター数調整してみました。
当方LT2017の為、Mechanical2018では動作不明。（Mechanicalの挙動は特殊なので。）

^C^C_Explode;MID;\^C_Ucs;OB;MID;@;;M;MID;@;;Z;$M=$(IF,$(<,0,$(INDEX,0,$(GETVAR,UCSYDIR))),90,270);_Lengthen;dy;;;non;@;;;_Ortho;ON;_LEADER;non;0<0;non;\;C"$M=$(rtos,$(/,$(getvar,PERIMETER),1.41421356))";;_Orthomode;$(getvar,Orthomode);Ucs;P;;P;;P;Autosnap;$(getvar,Autosnap)^M

返事が遅くなり申し訳ありません。
早速の回答ありがとうございました。

"20.自動面取り寸法記入"は動きませんでした。
直していただいた方は、45°で書けたのですが、文字が矢印の後ろに記入されました。
矢印の上に配置されるといいのですが、直りますでしょうか？

20.自動面取り寸法記入が動かなかった時の
マクロの流れを貼り付けてください。

^C^C_Explode;MID;\^C_Ucs;OB;MID;@;;M;MID;@;;Z;$M=$(IF,$(<,0,$(INDEX,0,$(GETVAR,UCSYDIR))),90,270);_Lengthen;dy;;;non;@;;;_Ortho;ON;Dimtad;1;_LEADER;non;0<0;non;\;C"$M=$(rtos,$(/,$(getvar,PERIMETER),1.41421356))";;_Orthomode;$(getvar,Orthomode);Ucs;P;;P;;P;Autosnap;$(getvar,Autosnap);Dimtad;$(getvar,Dimtad)^M

これでどうでしょう？

とってぃさん、失礼しました。
下記の流れでループしています。
------------------------------------------
コマンド:
コマンド:
コマンド: setenv
そのようなコマンド "SETENV" はありません。ヘルプを表示するには F1 キーを押してください。

コマンド: to
TOOLBAR ツールバー名を入力 または [すべて(ALL)]: 0

ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <0>:
コマンド: TOOLBAR
ツールバー名を入力 または [すべて(ALL)]:
コマンド: TOOLBAR
ツールバー名を入力 または [すべて(ALL)]:

------------------------------------------

LUNE さん、これで上手くかけました。
ありがとうございます。m(..)m

解決済みですが
動かない理由は、Mechanicalからです。

当ＨＰのマクロでは setenv/getenv を使用していますので


当ＨＰのこちら↓

■使用前の注意事項
レギュラー版での使用に関する注意事項
https://ameblo.jp/totthi-macro/entry-10895232361.html

一度こちらを参照願います。

あ、そうでした。何年振りでカスタマイズするので、すっかり忘れていました。
ありがとうございます。