AutoCADマクロ屋本舗 掲示板

(投稿者により削除されました)

つくってみました。

^C^Ccopy;\non;@;;non;@;non;@;erase;p;;ucs;e;qua;@;id;non;@;$M=ray;non;0<0;non;1<w;;select;l;;ray;non;0<0;non;1<n;;trim;l;p;;$(getvar,lastpoint);;erase;l;;;l;;mirror;l;;non;0<0;1<e;n;;l;p;;non;0<0;non;1<s;n;ucs;p^M

Lon　様

早速のご返信ありがとうございます。
上記マクロ試してみたところ、円・楕円に対しては思っていた通りの結果が得られました。
ありがとうございます。
ただ、円弧・楕円弧に対してはうまくいきませんでした。
楕円弧の参考画像を添付させていただきます。

ちなみに後付けで申し訳ありませんが、楕円弧及び円弧は必ず四半円点を含んだオブジェクトです。

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

あー。ごめんなさい。円弧は無理ですね。

円弧ならこんなマクロで可能です。

*^C^Cbreak;\f;qua;@;non;@^M

但し、これだと複数の四半円点が存在しても1回のクリックで1ヶ所しか分割してくれません。
複数ある場合はそれぞれの四半円点付近を複数回クリックしてください。
また、円・楕円には使えません。

とりあえず二つのマクロを1つに合体させましたので、円にも円弧にも使えますが、
円弧の場合に1回のクリックで1ヶ所しか分割してくれないのは同じです。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),join;\l;$M="""$(if,$(getvar,cmdactive),;;;u;setenv;to;2,u;setenv;to;1)""",,,)$(nth,$(getenv,to),,break;@;f;qua;@;non;@,,)$(nth,$(getenv,to),,,copy;nea;@;non;@;;non;@;non;@;erase;p;;ucs;e;qua;@;id;non;@;setenv;to;3,)$(nth,$(getenv,to),,,,ray;non;0<0;non;1<w;;select;l;;ray;non;0<0;non;1<n;;trim;l;p;;$(getvar,lastpoint);;erase;l;;;l;;mirror;l;;non;0<0;1<e;n;;l;p;;non;0<0;non;1<s;n;ucs;p)^M

Lon　様

早速ご対応頂きありがとうございます。
最後のマクロでほぼほぼ思い通りのマクロの動きとなりました。
これで作業効率が上がりそうです。
ありがとうございました！

Lon　様

後付けで申し訳ありませんが、マクロを実行した後(マクロを実行し、オブジェクトを選択する前)に視点移動(パン移動や視点の拡大縮小)を行うとマクロがうまく動作しないようですが、これは仕方のないことでしょうか。
重ね重ね質問ばかりで申し訳ございません。
よろしくお願いいたします。

ちょっと組み替えました。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),copy;\non;@;;non;@;non;@;erase;p;;join;l;l;$M="""$(if,$(getvar,cmdactive),;u;ucs;e;qua;@;id;non;@;setenv;to;1,u;break;@;f;qua;@;non;@)""",)$(nth,$(getenv,to),,ray;non;0<0;non;1<w;;select;l;;ray;non;0<0;non;1<n;;trim;l;p;;$(getvar,lastpoint);;erase;l;;;l;;mirror;l;;non;0<0;1<e;n;;l;p;;non;0<0;non;1<s;n;ucs;p)^M

Lon　様

ありがとうございます。
上記の問題も解消されうまく動きました。
大切に使わせていただきます。