AutoCADマクロ屋本舗 掲示板

はじめまして
ポリラインで作図したオブジェクトを選択して雲マークに変更するマクロを作成したいのですが、
ポリラインの点数が決まった数ではなく可変であるため、\\記号で入力待ち状態を作っても実際の点数と異なる為うまくできません。

ポリライン点数が4点ある場合は以下のマクロで良いのですが、これが4点の場合も20点の場合もあるということです。
^C^C_pline;\\\\\;_revcloud;a;\;o;last;n;

ポリラインの点数が何点でも入力待ち状態を作る方法はございますか。

ご教示のほどよろしくお願いします。

AUTOCADのバージョンですが、2009LTでございます。
よろしくお願いします。

るうるう

ループマクロならできると思います。

まずはこちらを参考に、※最初に～　以下を実行してください
https://ameblo.jp/totthi-macro/entry-10950262965.html

で、マクロがこちら。
^C^Cpline;^x$m=$(getenv,cmdloop-)_revcloud;a;\\o;l;n;

2016Rで動作確認しました。

一応、ループなしだけどループなマクロもどーぞ

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;to;1;pline,revcloud;a;\;o;last;n)^M

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

^C^Cpline;^x$m=$(getenv,cmdloop-)_revcloud;a;\\o;l;n;

こちらをLISPで表現するとどうなりますでしょうか。宜しくお願い致します。

こうかな？
(defun C:P2Rev ()
(command "pline")
(while (> (getvar "cmdactive") 0)
(command pause)
)
(command "revcloud" "a" pause pause "o" "l" "n")
)

ありがとうございます。自分なりに理解を記入してみました。

(command "pline") /ポリラインを実行
(while (> (getvar "cmdactive") 0) /getvarでcmdactiveの変数を参照して0を超えていたら command pauseの処理
エンターキーを押すと0になるので。
0になれば revcloudで直前のポリラインを選択して雲マークする。


色々と勉強になります。今後とも宜しくお願いします。