AutoCADマクロ屋本舗 掲示板

こんにちは。
楕円をポリライン化するマクロって作れるのでしょうか？

コマンドPELLIPSEで変数を変えると楕円の作図ラインがポリラインで出力されますが、これを使ってうまいこといかないか模索中です。

変数変更→既存の楕円をポリライン楕円でなぞる→既存の楕円消去→変数元に戻す→完了

みたいな方法でできないかなぁなんて思っていたりするんですが、なぞるっていうのはマクロで組もうとすると難しいんですかね？

おはようございます。
ちょっと考えてみます。

久しぶりにマクロ作ったんで、ちょっと時間かかっちゃいました(^-^;

てことで、お試しください。


♪楕円ポリライン化
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^x楕円を選択^x\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;id;qua;@;ucs;ob;qua;@;copybase;non;0<0;l;;erase;l;;setenv;to;1,,,)$(nth,$(getenv,to),,line;non;0<0;0.1<0;;pasteclip;non;0<0;extend;l;;0.1<0;;erase;l;;lengthen;l;;setenv;l1;$M="""$(getvar,perimeter)""";;to;2;erase;l;,,)$(nth,$(getenv,to),,,line;non;0<0;0.1<90;;pasteclip;non;0<0;extend;l;;0.1<90;;erase;l;;lengthen;l;;setenv;l2;$M="""$(getvar,perimeter)""";;to;3;erase;l;,)$(nth,$(getenv,to),,,,;el;$(getvar,pellipse);pellipse;1;ellipse;c;non;0<0;non;$(getenv,l1)<0;$(getenv,l2);pellipse;$(getenv,el);ucs;p)^M

◆動作確認
LT2013


●使い方
１．楕円を選択
　　※繰り返し１へ

▲注意
１．CADのバージョンによっては動作しない場合があります。
２．楕円以外を選択すると、途中で止まります。


　

お返事遅れましてすみません。
対応ありがとうございます。

しかし、残念ながらうまく動きませんでした。
楕円を選択すると


【基点を指定 または [移動距離(D)/連続(M)] <移動距離>: p
点を指定 または オプションのキーワードを入力してください。】



というのがコマンドラインに表示されます。
何か使い方に問題があるんでしょうかね？

疲れ者さん

お使いのCADのバージョンは何でしょうか？

記述したマクロは
LT2013での動作確認と記述しております。

マクロはCADのバージョンによって
動いたり動かなかったりします。
各バージョンによって、コマンドの仕様が異なる為です。

バージョンを教えて頂いた上で、作り方も変わってきますので
ご連絡願います。

LT2013です。

LT2013は動作確認と書かれていらっしゃいますので、何か別の要因でしょうかね？

AutoCAD R/LT 2013の注意点
http://ameblo.jp/totthi-macro/entry-11228055581.html

上記参照願います。
特に
ｼｽﾃﾑ変数「clipromptupdate」を"1"に設定
ｼｽﾃﾑ変数「pickadd」を"1"に設定

ご確認願います。

動きました！！

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