AutoCADマクロ屋本舗 掲示板

いつもお世話になっております。
オートキャド2018を使用しています。

設備設計を行っていまして、現在配線を書く際はポリラインを使用して、その後FILLETにて直角の曲がり部分にRをつけているのですが、同時に行えるマクロがあったら教えて頂けないでしょうか。

先日の測定値書込みに続けてで申し訳ないのですが、よろしくお願いいたします。

ポリラインのコマンドオプションの円弧(A)ではできないということでしょうか？

１点目を指定した後コマンドラインに下記のように表示されると思います
次の点を指定 または [円弧(A)/2分の1幅(H)/長さ(L)/元に戻す(U)/幅(W)]:

円弧(A)を選択するかAエンターとすれば
MEASUREGEOMコマンドと同じようにポリラインでも円弧の記入はできますが

違うなら
もう少し希望の操作内容をご提示いただいた方が検討しやすいかなと思います
単純に考えつくだけでも
１.Ｒサイズが毎回同じで毎回Ｒが付く場合
２.Ｒサイズが毎回同じでつく場合と付かない場合
３.Ｒサイズが毎回違うが毎回Ｒが付く場合
４.Ｒサイズが毎回違いＲが付く場合と付かない場合

全部作り方が変わってくるかもしれないので(同じでできるかもしれませんが)

ちなみに前回のご質問の後に線分と円弧を切替するポリラインを
考えていたので少し変更してみました
きっとご希望とは違っていると思いますが(笑)

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;1;ray;始点を指定(R-Clickで終了):^X\$M="""$(if,$(getvar,CMDACTIVE),;setenv;to;1,^Csetenv;to;0)""",,,,)$(nth,$(getenv,to),,;p1;$(getvar,LASTPOINT);pline;non;@;次の点を指定(R-Clickで<円弧>に切替):^X\$M="""$(if,$(getvar,CMDACTIVE),;select;l;;lengthen;l;dy;;setenv;to;2,setenv;to;4)""",,,)$(nth,$(getenv,to),,,;p1;$(getvar,LASTPOINT);pedit;m;l;p;;j;;;lengthen;l;dy;;select;l;;setenv;to;3,,)$(nth,$(getenv,to),,,,pline;non;$(getenv,p1);$(if,$(getenv,sw),,a;)次の点または円弧の終点を指定R-Clickで<$(if,$(getenv,sw),円弧,線分)>に切替:^X\$M="""$(if,$(getvar,CMDACTIVE),;setenv;to;2,setenv;to;4)""",)$(nth,$(getenv,to),,,,,;sw;$(if,$(getenv,sw),0,1);;to;3)^M

１.マクロ起動
２.１点目を指定(R-Clickで終了)
３.次の点を指定(R-Clickで円弧に切替)
４.次の点または円弧の終点を指定(R-Clickで円弧または線分に切替)

４を繰り返し
終了はＥｓｃキーです

１.Ｒサイズが毎回同じで毎回Ｒが付く場合は
マクロにする必要もないかもしれません

ポリラインを描き終わった後
FILLETコマンドのコマンドオプションのポリライン(P)で『Ｌ選択』するだけ

マクロにするなら
ポリラインを描いた後に

^C^Cfillet;r;\;p;l;^Z

これもきっとご希望とは違っているでしょうね(笑)

chibi-tom様
返信が遅くなりました。回答を頂きありがとうございます。
私の説明がわかりにくく申し訳ございません。

パターンとしては下記になります。
>>１.Ｒサイズが毎回同じで毎回Ｒが付く場合

毎回Ｒは100で固定になります。

>>ポリラインを描き終わった後
>>FILLETコマンドのコマンドオプションのポリライン(P)で『Ｌ選択』するだけ

普段も上記にてRをつけているのですが、配線図を書いていると数が膨大になるもので…。
FILLETコマンドを打つことなくポリラインを書き終わった時点で自動でRがつくマクロがあるとありがたいと思い質問させて頂きました。
（過去JWWを使用していたのですが、JWWですと連線コマンドで線を書くときRを指定すると自動でRがついたのでオートに切り替え後工程が増えて困っていました。）

マクロを組む必要なくコマンドのみで可能であれば申し訳ございません。
よろしくお願いいたします。

前回のご質問の最後にご提案した方法で

setenv
cmdloop-
"\$m=$(if,$(getvar,cmdactive),$(getenv,cmdloop-),)"

上記の3行をコピーして
コマンドラインに直接貼り付け
その後に下記マクロで

^C^Cpline;$M=$(getenv,cmdloop-)fillet;r;100;;p;l;^Z

１.マクロ起動
２.ポリライン記入
３.右クリックですべての角にＲ１００をつけて終了

>ポリラインを書き終わった時点で自動でRが
の通りになっています、描きながらＲは記入されません

これでも同じ感じ
ただし２点選択の線分のみポリラインのような複雑なことはできません

3行のコピーは必要ありません

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),line;\\;select;l;;setenv;to;1,,)$(nth,$(getenv,to),,line;non;@;次の点を指定(R-ClickでRを付けて終了):^X\$M="""$(if,$(getvar,CMDACTIVE),;pedit;m;p;l;;j;;;select;l;;setenv;to;1,setenv;to;2)""",)$(nth,$(getenv,to),,,fillet;r;100;;p;l;^Csetenv;to;0)^M

操作方法は変わりません

chibi-tom
いつもお世話になっております。
教えて頂いた、

setenv
cmdloop-
"\$m=$(if,$(getvar,cmdactive),$(getenv,cmdloop-),)"

上記の3行をコピーして
コマンドラインに直接貼り付け
その後に下記マクロで

^C^Cpline;$M=$(getenv,cmdloop-)fillet;r;100;;p;l;^Z

１.マクロ起動
２.ポリライン記入
３.右クリックですべての角にＲ１００をつけて終了

上記にて希望の操作が行えました！
お忙しい中ありがとうございました。作図の手間が大幅に削減されました。
よろしくお願いいたします。