円/円弧直径寸法 [UNDO機能付] [2006.11.27修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^X円または円弧を選択【直径寸法記入】：［円弧直径寸法記入(R)］^X\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;setenv;sw;0;;to;2,setenv;to;1)""",,,,)$(nth,$(getenv,to),,offset;;^X円または円弧を選択【円弧直径寸法記入】：［直径寸法記入(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;sw;1;;to;3,id;)""",,,)$(nth,$(getenv,to),,,;p0;$(getvar,lastpoint);undo;be;dimdiameter;non;@;^x寸法位置指定［やり直し(R)］^x\setenv;to;4,,)$(nth,$(getenv,to),,,,;p0;$(getvar,lastpoint);undo;be;dimdiameter;non;@;non;@;dimoverride;dimblk1;_none;dimsd1;ON;dimfit;3;;L;;aidimtextmove;1;L;;^x寸法位置指定［やり直し(R)］^x\setenv;to;4,)$(nth,$(getenv,to),,,,,$(if,$(eq,$(getenv,p0),$(getvar,lastpoint)),undo;e;u;,)setenv;to;$(if,$(getenv,sw),1,0))^M |
LT2000/LT2004 動作確認済
●使い方
１．円または円弧を選択 → ２へ
又は右クリック → ３へ
２．寸法位置を指定 → 繰返し１へ
又は右クリックでやり直し → １へ
３．円または円弧を選択 → ２へ
又は右クリック → １へ
▲注意
１．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
２．円または円弧以外を、選択しないで下さい。
■コメント
前バージョンに、右クリックでのUNDO機能を追加しました。
by totthi
7日でおぼえるAutoCADL AutoCAD LT2011/2010/2009/2008/2.../鳥谷部 真
￥3,360
Amazon.co.jp
↓↓↓前バージョン↓↓↓
円/円弧直径寸法
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択 <直径寸法記入>：［円弧直径寸法記入(右ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,setenv;to;2)""",select;non;@;non;@;;dimdiameter;@;\id;,,,)$(nth,$(getenv,to),,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択 <円弧直径寸法記入>：［直径寸法記入(右ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,id;)""",;to;2;select;non;@;non;@;;setenv;to;4,)$(nth,$(getenv,to),,,,,setenv;to;2;dimdiameter;@;@;dimoverride;dimblk1;none;dimsd1;ON;dimfit;3;;L;;aidimtextmove;1;L;;\;;)^M |
LT2000 動作確認済
●使い方
１．円を選択
又は右クリック → ３へ
２．寸法位置を指定
３．円弧を選択 → ２へ
又は右クリック → １へ
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい。
■コメント
くっつけただけですｗ
by totthi
7日でおぼえるAutoCADL AutoCAD LT2011/2010/2009/2008/2.../鳥谷部 真
￥3,360
Amazon.co.jp