AutoCADマクロ屋本舗 掲示板

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),userr5;\$m="""$(if,$(getvar,cmdactive),;id;non;$(getvar,lastpoint);setenv;to;1,;)""",,,,)$(nth,$(getenv,to),,pline;non;@;$(getenv,cmdloop-)explode;l;ucs;ob;l;pedit;l;y;e;;i;;x;j;p;;;setenv;to;2,,,)$(nth,$(getenv,to),,,sortents;127;offset;$(getvar,userr5);@;non;@0","-1;;copybase;non;@;l;;u;;;setenv;to;3,,)$(nth,$(getenv,to),,,,fillet;r;$(getvar,userr5);;p;l;filletrad;$(getvar,filletrad);erase;l;;pasteclip;non;@;explode;l;pedit;l;y;e;;i;;x;j;p;;;setenv;to;4,)$(nth,$(getenv,to),,,,,oops;select;l;p;;pline;;non;$(getvar,lastpoint)^H^H;;pedit;m;l;p;;j;0.1;;;l;c;;ucs;p;-layer;n;000;;chprop;l;;la;000;)^M

バージョンはLT2014です

murashomeさんからコピーしてきたマクロを使用しています.

時計回りに指定すると２重線の外側がフィレットになり，反時計回りだと内側がフィレットされてしまします．
これを外側のみに変更をすることが出来るのでしょうか？そして長さを指定しても時計回りだと距離が外側から半時計回りだと内側からになってしまいます．
よろしくお願いします

このマクロってポリラインの向きで外側か内側を選択できるのみそだとおもうのですが。。。

zukki-さん
そうなんですか，分からないで使用していました．基本的に時計回りしか使用をしていなかったです．
そのような仕様ならこのまま使用してもいいのかと思います．

ちょっと変わりますが、こんな感じで。

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),;fr;\;to;1;pline)$(if,$(=,$(getenv,to),1),;ep;$(getvar,lastpoint);offset;$(getenv,fr);@;\;fillet;r;$(getenv,fr);;p;l;;r;$(getvar,filletrad);-layer;n;000;;^Cchprop;l;;la;000;)^M

１．マクロ発行
２．オフセット距離とフィレット半径を兼用した値を指定
３．ポリライン作図
４．オフセットしたい側をクリック

一回クリックする回数が増えますが、ポリラインを作図している時点で結構クリックしていると思うので
あまり手間にならないかと思います。
出来た図形は前のマクロと違いますが、もし要望があれば同じ様に出来ると思います。

zukki-さん　ありがとうございます

4番目の動作でオフセットしたい側をクリックした反対側をフィレットしたいたいのですがいかがでしょうか


端部キャップもお願いします

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),;fr;\;to;1;pline)$(if,$(=,$(getenv,to),1),;ep;$(getvar,lastpoint);offset;$(getenv,fr);@;\;erase;l;;fillet;r;$(getenv,fr);;p;l;;r;$(getvar,filletrad);oops;setenv;to;2)$(if,$(=,$(getenv,to),2),pline;$(getenv,eq);\;pedit;l;j;all;;c;;-layer;n;000;;^Cchprop;l;;la;000;)^M

１．マクロ発行
２．オフセット距離とフィレット半径を兼用した値を指定
３．ポリライン作図
４．オフセットしたい側をクリック
５．端点キャップのもう一点を指定

簡単に作ったので、最初より２回クリックの回数が増えてしまいましたがどうでしょうか。

zukki-さん
ありがとう御座います
使わせていただきます，確認をしながら作図ができてとてもいいマクロだと思います．

追記
zukki-さん
添付図のようにフィレットをすることは可能なのでしょうか？
よろしくお願いします

マクロ一発ではちょっと無理だと思います。フィレットしてない図形描いてあとはひたすらフィレットする方法で。

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),;fr;\;to;1;pline)$(if,$(=,$(getenv,to),1),;ep;$(getvar,lastpoint);offset;$(getenv,fr);@;\;setenv;to;2)$(if,$(=,$(getenv,to),2),pline;$(getenv,ep);\;pedit;l;j;all;;c;;-layer;n;000;;chprop;l;;la;000;;fillet;r;$(getenv,fr);^C;u)^M

１．マクロ発行
２．オフセット距離とフィレット半径を兼用した値を指定
３．ポリライン作図
４．オフセットしたい側をクリック
５．端点キャップのもう一点を指定
６．フィレットした頂点の二辺をひたすらクリック。右クリックで終了

端点の処理を自動化してクリック回数が一回減ったバージョンです

*^C^C$M=setenv;to;0;$(if,$(=,$(getenv,to),0),;fr;\;to;1;pline)$(if,$(=,$(getenv,to),1),ucs;ob;l;id;0<0;ucs;p;$M=offset;$(getenv,fr);@;\;setenv;sp;"""$(getvar,lastpoint)^H^H""";;to;2)$(if,$(=,$(getenv,to),2),ucs;ob;l;id;0<0;ucs;p;pline;@;$(getenv,sp);;pedit;l;j;all;;c;;-layer;n;000;;chprop;l;;la;000;;fillet;r;$(getenv,fr);^C;u)^M

１．マクロ発行
２．オフセット距離とフィレット半径を兼用した値を指定
３．ポリライン作図
４．オフセットしたい側をクリック
５．フィレットした頂点の二辺をひたすらクリック。右クリックで終了

zukki-さん
ありがとう御座います．
図形の種類で使い分けしたいと思います．
何度もありがとう御座います