131.属性値変更

[131]
属性値変更(自動)　[2008/1/8 UP]

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;att;「属性名」;;$M="""$(getenv,att)""";\zoom;w;non;0<0;non;$(getvar,limmax);setenv;to;1,,,)$(nth,$(getenv,to),,;to;2;-attedit;n;n;*;$(getenv,att);;;*;;y;*;$(getenv,att);;w;non;0","0;non;$(getvar,limmax);;v;r;;n;$M="""$(if,$(getvar,cmdactive),v;r;;,id;)""",,)$(nth,$(getenv,to),,,-attedit;n;n;*;$(getenv,att);;;$(getenv,$(getenv,att));setenv;to;3,GRAPHSCR;id;^C;^Z【更新完了】^X)^M

LT2004 R2005/R2006 動作確認済

●使い方
※最初に「属性名」の部分を、"変更する属性名"に書換えてください。
１．属性値記入
　※図面範囲内の属性値を変更します。

▲注意
１．図面範囲外の属性値は変更しません。
　　LIMITS[図面範囲設定]コマンドで、図面範囲を指定して下さい。
　　尚、図面範囲内に、同じ属性名が２つ以上ある場合は、１つしか変更されません。
２．属性名が長過ぎる、マクロで使用出来ない全角文字を使用している等の場合
　　上記マクロでは動作しない場合もあります。

■コメント
自分の場合、図面枠の"図面タイトル"等の、属性値変更に使用しています。
同タイトルの他図面の属性値編集に便利です。

※尚、手動変更マクロは、以下を参照

属性値変更(手動)　[2008/1/22 UP]

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;att1;属性値記入^X\;to;1,offset;;^X属性を選択<$(getenv,att1)>--属性値変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;setenv;to;2,id;)""",)$(nth,$(getenv,to),,,;to;1;-attedit;y;;;;@;;v;r;$(getenv,att1);)^M

↓↓↓【属性値をいくつか連続で編集する場合】↓↓↓

例：属性値変更(３個連続)

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;at1;「属性名１」;;at2;「属性名２」;;at3;「属性名３」;;name1;$M="""$(getenv,at1)^X\;name2;$(getenv,at2)^X\;name3;$(getenv,at3)"""^X\zoom;w;non;0<0;non;$(getvar,limmax);setenv;to;1,,,,,)$(nth,$(getenv,to),,;to;2;-attedit;y;*;$(getenv,at1);;w;non;0<0;non;$(getvar,limmax);;v;r;;n;$M="""$(if,$(getvar,cmdactive),v;r;;,id;)""",,,,)$(nth,$(getenv,to),,,setenv;to;3;-attedit;y;*;$(getenv,at2);;w;non;0<0;non;$(getvar,limmax);;v;r;;n;$M="""$(if,$(getvar,cmdactive),v;r;;,id;)""",,,)$(nth,$(getenv,to),,,,setenv;to;4;-attedit;y;*;$(getenv,at3);;w;non;0<0;non;$(getvar,limmax);;v;r;;n;$M="""$(if,$(getvar,cmdactive),v;r;;,id;)""",,)$(nth,$(getenv,to),,,,,-attedit;n;n;*;$(getenv,at1);;;$(getenv,name1);;n;n;*;$(getenv,at2);;;$(getenv,name2);;n;n;*;$(getenv,at3);;;$(getenv,name3);setenv;to;5,GRAPHSCR;id;^C;^Z【更新完了】^X)^M

LT2004 R2005/R2006 動作確認済

●使い方
※最初に「属性名１～３」の部分を、それぞれ"変更する属性名"に書換えてください。
１．属性値１記入
２．属性値２記入
３．属性値３記入
　※図面範囲内の属性値を変更します。

▲注意
１．図面範囲外の属性値は変更しません。
　　LIMITS[図面範囲設定]コマンドで、図面範囲を指定して下さい。
　　尚、図面範囲内に、同じ属性名が２つ以上ある場合は、１つしか変更されません。
２．属性名が長過ぎる、マクロで使用出来ない全角文字を使用している等の場合
　　上記マクロでは動作しない場合もあります。
３．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
自分の場合、図面枠の「会社名」「工場名」「部署名」等の
連続して記入する場合の、属性値変更に使用しています。
同じく、同タイトルの他図面の属性値編集に便利です。

AutoCADの達人が教えてくれるベストテクニック100 (エクスナレッジムック)/エクスナレッジ

￥3,675
Amazon.co.jp

130.寸法値修正(切上･切下･元寸法)

[130]
寸法値修正(切上･切下･元寸法)　[2008対応]　[2009/4/14 修正]

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),;kt;切上単位記入("10/5/1/0.1"等)^X\;sw;0;;to;2,;l1;$(nth,$(getenv,sw),$(*,$(+,$(fix,$(/,$(getvar,perimeter),$(getenv,kt))),1),$(getenv,kt)),$(*,$(fix,$(/,$(getvar,perimeter),$(getenv,kt))),$(getenv,kt)),);;to;5,,,,)$(nth,$(getenv,to),,,offset;;^X^X寸法線(寸法値下)選択：【$(nth,$(getenv,sw),切上,切下,元寸法)】--変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",;sw;$(if,$(=,$(+,$(getenv,sw),1),3),0,$(+,$(getenv,sw),1));;to;2,,)$(nth,$(getenv,to),,,,,;to;2;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;dimoverride;dimblk;_none;;l;;explode;l;lengthen;nea;@;;undo;e;u;setenv;to;1,)$(nth,$(getenv,to),,,,,,cmddia;0;dim1;newtext;$(nth,$(getenv,sw),$(getenv,l1),$(getenv,l1),<>);l;;cmddia;1;dimoverride;dimclrt;$(nth,$(getenv,sw),1,1,);;l;;setenv;to;2)^M

※数値を固定したい場合は、マクロ中「切上単位記入("10/5/1/0.1"等)^X\」の
　「\」の部分を数値に変えて下さい。
　例：切上単位記入("10/5/1/0.1"等)^X10

LT2004 R2005/R2006/R2008 動作確認済

●使い方
１．切上単位記入("10/5/1/0.1"等)
例：実際の寸法値"123.456"

"0.1"と記入すると、１の位が、切上"123.5"/切下"123.4"となります。
"1"と記入すると、１の位が、切上"124"/切下"123"となります。
"5"と記入すると、１の位が、切上"125"/切下"120"となります。
"10"と記入すると、１の位が、切上"130"/切下"120"となります。

２．寸法線(寸法値下)を選択
　この時、右クリックで「切上/切下/元寸法」切替可能。

　※通常の寸法値下の寸法線を指定。（引出線記入されている場合も同じ）

　※尚、修正された寸法値は、赤色で表示されます。

【切上寸法時】

【切下寸法時】

▲注意
１．寸法線(寸法値下)以外を選択しないで下さい。
　　尚、修正された寸法値は、書き換えただけの文字です。
２．切上単位に、２～４や６～９等の、切上･切下し辛い値を入れないで下さい。
　　寸法が切上単位通りにならない場合があります。
３．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
当ＨＰの掲示板に、2008への対応依頼があったので作りました。
注意事項を読んでお使い下さい。

AutoCAD 2013 3D機能公式トレーニングガイド (Autodesk officia.../日経BP社

￥3,675
Amazon.co.jp

↓↓↓　旧バージョン　↓↓↓

寸法値修正(切上･切下･元寸法)　[切上･切下値指定ﾊﾞｰｼﾞｮﾝ]　[2008/2/22 修正]

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),;kt;切上単位記入("10/5/1/0.1"等)^X\;sw;0;;to;2,;l1;$(nth,$(getenv,sw),$(*,$(+,$(fix,$(/,$(getvar,perimeter),$(getenv,kt))),1),$(getenv,kt)),$(*,$(fix,$(/,$(getvar,perimeter),$(getenv,kt))),$(getenv,kt)),);;to;5,,,,)$(nth,$(getenv,to),,,offset;;^X^X寸法線(寸法値下)選択：【$(nth,$(getenv,sw),切上,切下,元寸法)】--変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",;sw;$(if,$(=,$(+,$(getenv,sw),1),3),0,$(+,$(getenv,sw),1));;to;2,,)$(nth,$(getenv,to),,,,,;to;4;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;dimoverride;dimblk;_none;;non;@;;explode;non;@;;non;@;;$M="""$(if,$(getvar,cmdactive),;undo;e;u;setenv;to;2,lengthen;non;@;;undo;e;u;setenv;to;1)""",)$(nth,$(getenv,to),,,,,,cmddia;0;dim1;newtext;$(nth,$(getenv,sw),$(getenv,l1),$(getenv,l1),<>);l;;cmddia;1;dimoverride;dimclrt;$(nth,$(getenv,sw),1,1,);;l;;setenv;to;2)^M

※数値を固定したい場合は、マクロ中「切上単位記入("10/5/1/0.1"等)^X\」の
　「\」の部分を数値に変えて下さい。
　例：切上単位記入("10/5/1/0.1"等)^X10

LT2004 R2005/R2006 動作確認済

●使い方
１．切上単位記入("10/5/1/0.1"等)
例：実際の寸法値"123.456"

２．寸法線(寸法値下)を選択
　この時、右クリックで「切上/切下/元寸法」切替可能。

　※通常の寸法値下の寸法線を指定。（引出線記入されている場合も同じ）

　※尚、修正された寸法値は、赤色で表示されます。

【切上寸法時】

【切下寸法時】

▲注意
１．寸法線(寸法値下)以外を選択しないで下さい。
　　尚、修正された寸法値は、書き換えただけの文字です。
２．切上単位に、２～４や６～９等の、切上･切下し辛い値を入れないで下さい。
　　寸法が切上単位通りにならない場合があります。
３．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
切上･下値を記入できる様に修正しました。
注意事項を読んでお使い下さい。

AutoCAD 2013 3D機能公式トレーニングガイド (Autodesk officia.../日経BP社

￥3,675
Amazon.co.jp

↓↓↓　旧バージョン　↓↓↓

寸法値修正(切上･切下･元寸法) [切上単位固定：小数点以下]　[2007/12/25 UP]

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;2,;l1;$(fix,$(getvar,perimeter));;to;5,,,,)$(nth,$(getenv,to),,,offset;;^x^x寸法線(寸法値下)選択：【$(nth,$(getenv,sw),切上,切下,元寸法)】--変更(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;3)""",;sw;$(if,$(=,$(+,$(getenv,sw),1),3),0,$(+,$(getenv,sw),1));;to;2,,)$(nth,$(getenv,to),,,,,;to;4;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;dimoverride;dimblk;_none;;non;@;;explode;non;@;;non;@;;$M="""$(if,$(getvar,cmdactive),;undo;e;u;setenv;to;2,lengthen;non;@;;undo;e;u;setenv;to;1)""",)$(nth,$(getenv,to),,,,,,cmddia;0;dim1;newtext;$(nth,$(getenv,sw),$(+,$(getenv,l1),1),$(getenv,l1),<>);l;;cmddia;1;dimoverride;dimclrt;$(nth,$(getenv,sw),1,1,);;l;;setenv;to;2)^M

LT2004 R2005/R2006 動作確認済

●使い方
１．寸法線(寸法値下)を選択
　この時、右クリックで「切上/切下/元寸法」切替可能。

　※通常の寸法値下の寸法線を指定。（引出線記入されている場合も同じ）

　※尚、修正された寸法値は、赤色で表示されます。

【切上寸法時】

【切下寸法時】

▲注意
１．寸法線(寸法値下)以外を選択しないで下さい。
　　尚、修正された寸法値は、書き換えただけの文字です。
２．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
当ＨＰの掲示板に、作成依頼があったので作りました。
注意事項を読んでお使い下さい。

AutoCAD 2013 3D機能公式トレーニングガイド (Autodesk officia.../日経BP社

￥3,675
Amazon.co.jp

129.平行線測定

[129]
平行線測定　[2007/11/20 UP]

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;id;nea;@;erase;p;;setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,,,)$(nth,$(getenv,to),,extend;l;;^x平行なｵﾌﾞｼﾞｪｸﾄを選択^x\@;;u;setenv;to;1;select;non;@;non;@;;id;nea;@;zoom;@;$(getenv,p1);ucs;ob;l;id;nea;@;setenv;l1$M=""";$(rtos,$(index,1,$(getvar,lastpoint)),2,4)""";;to;2,,)$(nth,$(getenv,to),,,;l2;$(if,$(>,0,$(getenv,l1)),$(*,$(getenv,l1),-1),$(getenv,l1));;to;3,select;non;@;l;;ucs;p;select;p;'zoom;p;^X【$(getenv,l2)】--継続はEnter--^X\id;)^M

LT2004 R2005/R2006 動作確認済

●使い方
１．１つ目の線分を選択
２．２つ目の線分を選択
３．コマンドラインに距離が表示されます
　　※この時、エンター（または右クリック）で１へ

▲注意
１．ポリラインには対応していません。
２．線分以外を選択すると、計測された数値が正しくない場合があります。
３．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
本掲示板に、作成依頼があったので作りましたが･･･
動作的に問題はありませんが、まだまだ改良した方が良さそうです(^^;

しかも、寸法記入で確認した方が早いと･･･（汗
とりあえず、紹介はしておきます。

描きたい操作がすぐわかる! AutoCAD LT操作ハンドブック 2013/2012/201.../ソーテック社

￥2,604
Amazon.co.jp

<< 前ページ次ページ >>