自動面取り寸法記入2022 [2022.7.8追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),setenv;面数;1;;面数;\;to;1,ray;mid;^X面取り指定［面数変更(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;0)""",,,,,)$(nth,$(getenv,to),,,;p0;$(getvar,lastpoint);dist;mid;@;'insbase;non;@;end;@;setenv;to;3,,,,)$(nth,$(getenv,to),,,,dimaligned;mid;$(getenv,p0);non;@"$(*,$(getvar,dimscale),20),0";t;$(if,$(eq,$(getenv,面数),1),C,$(getenv,面数)-C)$(rtos,$(/,$(getvar,distance),0.7071067812));non;@;setenv;to;4,,,)$(nth,$(getenv,to),,,,,dimoverride;dimjust;1;dimasz;2.5;dimtih;0;dimtad;1;dimtxt;2.5;dimgap;1;dimsd2;1;dimse1;1;dimse2;1;;l;;setenv;to;5,rotate;L;;mid;$(getenv,p0);\setenv;to;1)^M |
動作確認済
LT2022
自動面取り寸法記入2015 [2015.6.30追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),setenv;面数;1;;面数;\;to;1,ray;mid;^X面取り指定［面数変更(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;0)""",,,,,)$(nth,$(getenv,to),,,;p0;$(getvar,lastpoint);dist;mid;$(getvar,lastpoint);end;@;setenv;to;3,,,,)$(nth,$(getenv,to),,,,dimaligned;non;$(getenv,p0);non;@"$(*,$(getvar,dimscale),20),0";t;$(if,$(eq,$(getenv,面数),1),C,$(getenv,面数)-C)$(rtos,$(/,$(getvar,distance),0.7071067812));@;setenv;to;4,,,)$(nth,$(getenv,to),,,,,dimoverride;dimjust;1;dimasz;2.5;dimtih;0;dimtad;1;dimtxt;2.5;dimgap;1;dimsd2;1;dimse1;1;dimse2;1;;l;;setenv;to;5,rotate;L;;non;@"-$(*,$(getvar,dimscale),20),0";\setenv;to;1)^M |
動作確認済
LT2013/LT2015
自動面取り寸法記入 [2013.4.10修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),setenv;面数;1;;面数;\;to;1,ray;mid;^X面取り指定［面数変更(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,id;)""",,,,,)$(nth,$(getenv,to),,,;p1;$(getvar,lastpoint);dist;@;end;@;setenv;to;3,,,,)$(nth,$(getenv,to),,,,dimaligned;non;$(getenv,p1);non;@"$(*,$(getvar,dimscale),20),0";t;$(if,$(eq,$(getenv,面数),1),C,$(getenv,面数)-C)$(rtos,$(/,$(getvar,distance),0.7071067812));@;setenv;to;4,,,)$(nth,$(getenv,to),,,,,dimoverride;dimjust;1;dimasz;2.5;dimtih;0;dimtad;1;dimtxt;2.5;dimgap;1;dimsd2;1;dimse1;1;dimse2;1;;l;;setenv;to;5,rotate;L;;non ;@"-$(*,$(getvar,dimscale),20),0";\setenv;to;1)^M |
動作確認済
R2010
LT2004/LT2013
●使い方
１．面数記入
注）面数で記入した数値は、１だと何も記入されませんが、
２以上の数値を記入すると 面数-C** と記入されます。
２．面取りの中点を指定
３．面取り寸法の角度指定
▲注意
１．面取り部分の中点は、ズーム等して確実に指定して下さい。
込み入った部分だと、寸法値が正しく表示されないことがあります。
２．寸法の角度指定時に、キャンセルすると、角度０で記入されます。
３．マクロ長の為、メニューファイルに直接コピペして下さい。
■コメント
2022. 7. 8 2022用マクロ追加
2015.6.30 2015用マクロ追加
2013.4.10 2010用に修正
AutoCAD & LT バイブル-2002/2004/2005/2006/2007/2008.../伊部 明美
￥3,360
Amazon.co.jp
↓↓↓前バージョン↓↓↓
自動面取り寸法記入 [2005.9.29修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),setenv;面数;1;;面数;\;to;1,ray;mid;^X面取り指定［面数変更(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;0)""",,,,,)$(nth,$(getenv,to),,,dist;@;'insbase;non;@;end;@;setenv;to;3,,,,)$(nth,$(getenv,to),,,,dimaligned;none;$(getvar,insbase);non;@"$(*,$(getvar,dimscale),20),0";t;$(if,$(eq,$(getenv,面数),1),C,$(getenv,面数)-C)$(rtos,$(/,$(getvar,distance),0.7071067812));@;setenv;to;4,,,)$(nth,$(getenv,to),,,,,dimoverride;dimjust;1;dimasz;2.5;dimtih;0;dimtad;1;dimtxt;2.5;dimgap;1;dimsd2;1;dimse1;1;dimse2;1;;l;;setenv;to;5,rotate;L;;non;@"-$(*,$(getvar,dimscale),20),0";\setenv;to;1)^M |
LT2000 動作確認済
●使い方
１．面数記入
注）面数で記入した数値は、１だと何も記入されませんが、
２以上の数値を記入すると 面数-C** と記入されます。
２．面取りの中点を指定
３．面取り寸法の角度指定
▲注意
１．面取り部分の中点は、ズーム等して確実に指定して下さい。
込み入った部分だと、寸法値が正しく表示されないことがあります。
２．寸法の角度指定時に、キャンセルすると、角度０で記入されます。
３．マクロ長の為、メニューファイルに直接コピペして下さい。
■コメント
最初は、引出線と文字の組み合わせだったが、
ミラーや回転すると文字が逆になる為、寸法利用!!
何年か、掛けてこのマクロになりました。
お試し下さい♪
AutoCAD & LT バイブル-2002/2004/2005/2006/2007/2008.../伊部 明美
￥3,360
Amazon.co.jp