フィレット[非ﾄﾘﾑ/ﾄﾘﾑ]2013 [2014.5.15 追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),ray;^X非ﾄﾘﾑ(左ｸﾘｯｸ)/ﾄﾘﾑ(右ｸﾘｯｸ)^X\$M="""$(if,$(getvar,cmdactive),;trimmode;0,trimmode;1)""";setenv;to;1,fillet;r;\setenv;to;2,,,,,)$(nth,$(getenv,to),,,offset;;^X最初のｵﾌﾞｼﾞｪｸﾄを選択 または 設定変更(Enter)^X\$m="""$(if,$(getvar,cmdactive,),;setenv;to;3,setenv;to;0)""",,,,)$(nth,$(getenv,to),,,,fillet;@;;$M="""$(if,$(getvar,cmdactive),@;select;@;;setenv;to;4;,setenv;to;2;);p1;$(getvar,lastpoint)""",,,)$(nth,$(getenv,to),,,,,trim;p;;^X次のｵﾌﾞｼﾞｪｸﾄを選択^X\u;;fillet;@;;$m="""$(if,$(getvar,cmdactive),@;setenv;to;5,setenv;to;4);;p2;$(getvar,lastpoint)""",,)$(nth,$(getenv,to),,,,,,explode;@;$M="""$(if,$(getvar,cmdactive),;setenv;ex;0,setenv;ex;1)""";fillet;non;$(getenv,p1);non;$(getenv,p2);setenv;to;6,setenv;to;$(if,$(getenv,ex),2;pedit;m;p;;y;j;;,2))^M |
LT2013 動作確認済
フィレット[非ﾄﾘﾑ/ﾄﾘﾑ]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),dist;^X非ﾄﾘﾑ(左ｸﾘｯｸ)/ﾄﾘﾑ(右ｸﾘｯｸ)^X\$M="""$(if,$(getvar,cmdactive),;trimmode;0,trimmode;1)""";setenv;to;1,fillet;r;\setenv;to;2,,,,,,)$(nth,$(getenv,to),,,offset;;^X最初のｵﾌﾞｼﾞｪｸﾄを選択 または 設定変更(Enter)^X\$m="""$(if,$(getvar,cmdactive,),;setenv;to;3,setenv;to;0)""",,,,,)$(nth,$(getenv,to),,,,fillet;@;;$M="""$(if,$(getvar,cmdactive),@;select;@;;setenv;to;4;,setenv;to;2;);p1;$(getvar,lastpoint)""",,,,)$(nth,$(getenv,to),,,,,trim;p;;^X次のｵﾌﾞｼﾞｪｸﾄを選択^X\u;;fillet;@;;$m="""$(if,$(getvar,cmdactive),@;setenv;to;5,setenv;to;4);;p2;$(getvar,lastpoint)""",,,)$(nth,$(getenv,to),,,,,,explode;@;$M="""$(if,$(getvar,cmdactive),;setenv;ex;0,setenv;ex;1)""";fillet;non;$(getenv,p1);non;$(getenv,p2);setenv;to;6,setenv;to;$(if,$(getenv,ex),7,2),)$(nth,$(getenv,to),,,,,,,,pedit;L;;$M="""$(if,$(getvar,cmdactive),j;p;L;@;;;,)"""setenv;to;2)^M |
LT2000 動作確認済
●使い方
１．非ﾄﾘﾑ(左ｸﾘｯｸ)/ﾄﾘﾑ(右ｸﾘｯｸ)を選択
２．フィレット半径を指定
３．最初のオブジェクトを選択
右クリックで１へ
４．２つ目のオブジェクトを選択 → 面取り終了後３へ
右クリックで３へ
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい。
２．１つ目に選択したオブジェクトがポリラインで無く、
２つ目に選択したオブジェクトがポリラインの場合、ポリラインは分解されます。
■コメント
「58.面取り」のフィレット版です。
参考までに。
AutoCAD LT 2007/2008/2009ではじめる機械製図/斎藤 美佳
￥3,360
Amazon.co.jp