フィレット[片側ﾄﾘﾑ/両側ﾄﾘﾑ] (片側連続版) [2007.9.28修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw1;片側;;sw2;両側;;fl;1;;to;1,offset;;^Xselect：$(if,$(getenv,fl),両,片)側ﾌｨﾚｯﾄ |
※片側フィレット時の右クリック動作を修正
LT2000 R2005 動作確認済
●使い方
～両側ﾌｨﾚｯﾄ～
１．１本目のｵﾌﾞｼﾞｪｸﾄを選択 ※開始時【両側ﾌｨﾚｯﾄ】
右クリックで「設定変更」へ
※【片側ﾌｨﾚｯﾄ】時、１本目のオブジェクトはトリムされません。
また、ﾎﾟﾘﾗｲﾝは分解されます
２．２本目の線を選択 → １へ
～片側ﾌｨﾚｯﾄ～
１．１本目のｵﾌﾞｼﾞｪｸﾄを選択
※【片側ﾌｨﾚｯﾄ】時、１本目のオブジェクトはトリムされません。
また、ﾎﾟﾘﾗｲﾝは分解されます。
２．２本目の線を選択 → 繰返し２へ
右クリックで【両側ﾌｨﾚｯﾄ】へ戻ります
～設定変更～
１．片側(L)/両側(R) をクリック選択
・左クリックで【片側ﾌｨﾚｯﾄ】
・右クリックで【両側ﾌｨﾚｯﾄ】
２．ﾌｨﾚｯﾄ半径を指定 →使い方１へ
▲注意
１．ポリラインの場合、【片側ﾌｨﾚｯﾄ】時に２本目の線を選択後、分解されます。
２．【片側ﾌｨﾚｯﾄ】時、２本目の線を選択する際、１本目の線を指定した位置が
画面外の場合、マクロが止まる可能性が有ります。
１本目の選択位置を、画面内に表示した状態で行なって下さい。
３．マクロが長過ぎる為、カスタマイズダイアログへ貼り付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
片側ﾌｨﾚｯﾄを連続で行なえるように改良♪
さらに、１本目の線を選択表示されるように改良♪
ついでに、"DRAWORDER(表示順序)"コマンドを止めました。
AutoCAD機械製図100題トレーニング/斎藤 美佳
￥3,360
Amazon.co.jp
↓↓旧バージョン↓↓
フィレット[片側ﾄﾘﾑ/両側ﾄﾘﾑ] (片側連続版) [2007.4.24修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw1;片側;;sw2;両側;;fl;1;;to;1,offset;;^Xselect：$(if,$(getenv,fl),両,片)側ﾌｨﾚｯﾄ |
LT2000 動作確認済
●使い方
～両側ﾌｨﾚｯﾄ～
１．１本目のｵﾌﾞｼﾞｪｸﾄを選択 ※開始時【両側ﾌｨﾚｯﾄ】
右クリックで「設定変更」へ
※【片側ﾌｨﾚｯﾄ】時、１本目のオブジェクトはトリムされません。
また、ﾎﾟﾘﾗｲﾝは分解されます
２．２本目の線を選択 → １へ
～片側ﾌｨﾚｯﾄ～
１．１本目のｵﾌﾞｼﾞｪｸﾄを選択
※【片側ﾌｨﾚｯﾄ】時、１本目のオブジェクトはトリムされません。
また、ﾎﾟﾘﾗｲﾝは分解されます。
２．２本目の線を選択 → 繰返し２へ
右クリックで【両側ﾌｨﾚｯﾄ】へ戻ります
～設定変更～
１．片側(L)/両側(R) をクリック選択
・左クリックで【片側ﾌｨﾚｯﾄ】
・右クリックで【両側ﾌｨﾚｯﾄ】
２．ﾌｨﾚｯﾄ半径を指定 →使い方１へ
▲注意
１．ポリラインの場合、【片側ﾌｨﾚｯﾄ】時に２本目の線を選択後、分解されます。
２．【片側ﾌｨﾚｯﾄ】時、２本目の線を選択する際、１本目の線を指定した位置が
画面外の場合、マクロが止まる可能性が有ります。
１本目の選択位置を、画面内に表示した状態で行なって下さい。
３．マクロが長過ぎる為、カスタマイズダイアログへ貼り付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
片側ﾌｨﾚｯﾄを連続で行なえるように改良♪
さらに、１本目の線を選択表示されるように改良♪
ついでに、"DRAWORDER(表示順序)"コマンドを止めました。
AutoCAD機械製図100題トレーニング/斎藤 美佳
￥3,360
Amazon.co.jp
↓↓旧バージョン↓↓
フィレット[片側ﾄﾘﾑ/両側ﾄﾘﾑ]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw1;片側;;sw2;両側;;fl;1;;to;1,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：【$(if,$(getenv,fl),両,片)側ﾌｨﾚｯﾄ】半径<$(getvar,FILLETRAD)>--Option(R)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;6)""",,,,,)$(nth,$(getenv,to),,,select;non;@;;$M="""$(if,$(getvar,cmdactive),non;@;L;;setenv;to;1,setenv;to;$(if,$(getenv,fl),4,3))""",;p1;$(getvar,lastpoint);explode;@;$M="""$(if,$(getvar,cmdactive),;,)"""copybase;non;@;@;;setenv;to;4,,,)$(nth,$(getenv,to),,,,,fillet;non;@;;\setenv;to;$(if,$(getenv,fl),1,5),draworder;L;;b;explode;$(getenv,p1);$M="""$(if,$(getvar,cmdactive),;,)"""erase;$(getenv,p1);;pasteclip;non;@;setenv;to;1,)$(nth,$(getenv,to),,,,,,,dist;^X--$(getenv,sw1)(L)/$(getenv,sw2)(R)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;fl;0,setenv;fl;1)""";fillet;r;\setenv;to;1)^M |
LT2000 動作確認済
●使い方
１．１本目のｵﾌﾞｼﾞｪｸﾄを選択 ※開始時【両側ﾌｨﾚｯﾄ】
右クリックで「設定変更」へ
※【片側ﾌｨﾚｯﾄ】時、１本目のオブジェクトはトリムされません。
また、ﾎﾟﾘﾗｲﾝは分解されます
２．２本目の線を選択 → １へ
～【 設定変更 】～
１）片側(L)/両側(R) をクリック選択
・左クリックで【片側ﾌｨﾚｯﾄ】
・右クリックで【両側ﾌｨﾚｯﾄ】
２）ﾌｨﾚｯﾄ半径を指定 →使い方１へ
▲注意
１．【片側ﾌｨﾚｯﾄ】選択時、ポリラインは分解されます
２．２本目の線を選択時、ミスピックは対応してませんので
確実にヒットさせて下さい。
３．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
「70.面取り[片側/両側]」と同じく作ってみた♪
※「59.フィレット[非ﾄﾘﾑ/ﾄﾘﾑ]」参照
AutoCAD機械製図100題トレーニング/斎藤 美佳
￥3,360
Amazon.co.jp