AutoCADマクロ屋本舗 -33ページ目
Amebaホームピグアメブロ
芸能人ブログ人気ブログ
新規登録
ログイン

AutoCADマクロ屋本舗

.

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

139.フィレット値選択フィレット

[139]
フィレット値選択フィレット　[2008/9/18 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^X^X円弧を選択【数値記入(Rc)】^X\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;setenv;sw;0;;to;1,fillet;r;\setenv;sw;1;;to;2)""",line;nea;@;cen;@;;lengthen;l;;erase;l;;setenv;r1;$M="""$(getvar,perimeter)""";;to;2,,)$(nth,$(getenv,to),,,offset;;^X^Xfillet：<$(if,$(getenv,sw),$(getvar,filletrad),$(getenv,r1))>【fillet値変更(Rc)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;3,id;)""",)$(nth,$(getenv,to),,,,;to;2;fillet;r;$(if,$(getenv,sw),,$(getenv,r1));;non;@)^M


LT2004 R2005/R2006 動作確認済


●使い方
１．フィレットされた円弧の部分を選択
　　※右クリックで直接数値記入　→　２へ
２．フィレットの最初のオブジェクト選択
　　※右クリックで１へ戻る
３．フィレットの２つめのオブジェクトを選択　→　繰り返し２へ

▲注意
１．マクロが長い為、カスタマイズダイアログに貼り付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
少し前の話ですが･･･
当ＨＰの掲示板に、作成依頼があったので作ってみました。
お試し下さい。


AutoCAD建築製図 100題トレーニング/秀和システム

￥3,360
Amazon.co.jp

138.一発合計長さ計測

[138]
一発合計長さ計測 Ver.2019　[2018.05.11追記]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;non;0<0;p;;-layout;n;KDIST;;s;KDIST;point;non;$(getvar,viewctr);ERASE;ALL;;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;dy;;;l;;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;^Csetenv;^Z^X【合計：$(getenv,pe)】^X)^M

2019　動作確認済
※Ver.2019から「CreateViewports」が効かない仕様になったみたいです。


一発合計長さ計測 Ver.2017　[2016.6.9追記]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\copybase;non;0<0;p;;setenv;CreateViewports;0;-layout;n;KDIST;;s;KDIST;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;dy;;;l;;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;setenv;CreateViewports;$(getenv,cv);^C;^Z^X【合計：$(getenv,pe)】^X)^M

2017　動作確認済


一発合計長さ計測 Ver.2016　[2015.8.25追記]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\copybase;non;0<0;p;;setenv;CreateViewports;0;-layout;n;KDIST;;s;KDIST;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;l;;;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;setenv;CreateViewports;$(getenv,cv);^C;^Z^X【合計：$(getenv,pe)】^X)^M

2016　動作確認済


一発合計長さ計測(複数選択)　[2008.9.11修正]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\copybase;non;0<0;p;;setenv;CreateViewports;0;-layout;n;KDIST;;s;KDIST;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;l;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;setenv;CreateViewports;$(getenv,cv);^C;^Z^X【合計：$(getenv,pe)】^X)^M

LT2004/LT2013　R2005/R2006　動作確認済


●使い方
１．合計長さを計測したいオブジェクトを選択

▲注意
１．オブジェクトが２重になっている場合も、計測対象となります。 【要注意】
２．マクロ中にて、仮レイアウト"KDIST"を作成しています。
　　同じ名前のレイアウトを使用している場合は、マクロ内の"KDIST"を変更して下さい。
３．容量の多い図面では、動作が遅くなる場合があります。

■更新履歴
・2018.05.11　Ver.2019追記
・2016.06.09　Ver.2017追記
・2015.08.25　Ver.2016追記
・2008.09.11　修正
　１）マクロ内の「モデル」を「Model」に変更。
　２）「CreateViewports」にて、オプションの表示タブの"レイアウトの要素"内の
　　　「新規レイアウトにビューポートを作成」をコントロール。
・2008.9.2　UP


はじめてさわるAutoCAD LT 2000/2000i/2002/2004/2005/20.../インプレス

￥3,129
Amazon.co.jp



↓↓↓前バージョン↓↓↓

一発合計長さ計測(複数選択)　[2008/9/2 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;non;0<0;p;;-layout;n;KDIST;;s;KDIST;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;l;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;モデル;;d;KDIST;^Cid;^Z^X【合計：$(getenv,pe)】^X)^M


LT2004　R2005/R2006　動作確認済


●使い方
１．合計長さを計測したいオブジェクトを選択

▲注意
１．オプションの表示タブの"レイアウトの要素"内の
　　「新規レイアウトにビューポートを作成」の、チェックを外しておいて下さい。
　　計測結果が異なる場合があります。
２．マクロ中にて、仮レイアウト"KDIST"を作成しています。
　　同じ名前のレイアウトを使用している場合は、マクロ内の"KDIST"を変更して下さい。
３．容量の多い図面では、動作が遅くなる場合があります。


※オブジェクトが２重になっている場合も、計測対象となります。
　ご注意下さい。

■コメント
なんとなく作ってみました。
１個ずつ選択するのが面倒な方向けです。


はじめてさわるAutoCAD LT 2000/2000i/2002/2004/2005/20.../インプレス

￥3,129
Amazon.co.jp

137.両側オフセット[ByLayer]

[137]
両側オフセット[ByLayer] 2013　[2014.1.22 追加]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,offset;;\;setenv;to;1;select;non;@;non;@;;$M="""ucs;3;nea;$(getvar,lastpoint)""";mid+endp+cen;@;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;so;$(getvar,sortents);sortents;127;offsetdist;$(/,$(getvar,offsetdist),2);copy;p;;non;@;non;@;chprop;L;;LA;$(getvar,clayer);LT;Bylayer;C;ByLayer;;copybase;non;@;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,undo;be;explode;l;$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;sw;1;;to;5)""",area;o;l;$M="""$(if,$(getvar,cmdactive),;setenv;sw;1,setenv;sw;0)""";;to;5,,)$(nth,$(getenv,to),,,,,,undo;e;u;select;non;0<0;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),90,0);;copy;p;;non;@;non;@;erase;p;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,select;l;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),-90,180);;;$(*,$(getvar,offsetdist),2);;erase;p;;ucs;p;sortents;$(getenv,so))^M

LT2013　動作確認済


両側オフセット[ByLayer]　[2008.5.8 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,offset;;\;setenv;to;1;select;non;@;non;@;;ucs;3;nea;@;mid+endp+cen;@;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;so;$(getvar,sortents);sortents;127;offsetdist;$(/,$(getvar,offsetdist),2);copy;p;;non;@;non;@;chprop;L;;LA;$(getvar,clayer);LT;Bylayer;C;ByLayer;;copybase;non;@;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,undo;be;explode;l;$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;sw;1;;to;5)""",area;o;l;$M="""$(if,$(getvar,cmdactive),;setenv;sw;1,setenv;sw;0)""";;to;5,,)$(nth,$(getenv,to),,,,,,undo;e;u;select;non;0<0;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),90,0);;copy;p;;non;@;non;@;erase;p;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,select;l;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),-90,180);;;$(*,$(getvar,offsetdist),2);;erase;p;;ucs;p;sortents;$(getenv,so))^M

LT2004　R2005/R2006　動作確認済


●使い方
１．オフセット間隔を記入
　　または、２点指定
２．オフセットするオブジェクトを選択

▲注意
１．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
　　メニューファイルに直接貼り付けて下さい。

■コメント
以前どこかで作ったマクロですｗ
線種・線の色を、ByLayerで現在画層に両側オフセットするマクロです
なんだか文字数多いのが気になりますが、とりあえずＵＰです(^^;



はじめて学ぶAutoCAD LT 2009 作図・操作ガイド/ソーテック社

￥2,499
Amazon.co.jp

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