AutoCAD TIPS

※CADの操作に関して当社の稼働中スタッフ以外の方からのお電話やメールによるご質問は受け付けておりません。
※免責事項

[ Question ]

マクロ紹介

[ Answer ]
対象バージョン：全バージョン

※AutoCADの環境を変えるようなマクロもあります。
ご使用の際には、自己責任でお使いください。
こちらで紹介したマクロを使用し業務に支障をきたしたとしてもホクトでは責任を負わないものとします。
※マクロ中の￥は半角に置き換えてご利用ください。
※免責事項をお読みの上、ご利用ください。

汎用系

□ キャンセル
動作確認：AutoCAD 2008 / LT 2008
^C

□ すべてを選択解除
動作確認：AutoCAD 2008 / LT 2008
^C^C^P_ai_deselect ^P

□ 外部参照をバインド
動作確認：AutoCAD 2006 / LT 2006
^C^C_-XREF;B;*;

□ 名前削除（すべて）
動作確認：AutoCAD 2006 / LT 2006
^C^C_-PURGE;A;*;N;

□ 非表示になっている画層をすべて表示
動作確認：AutoCAD 2006 / LT 2006
'_-layer;ON;*;;

□ 現在画層以外をすべて非表示
動作確認：AutoCAD 2006 / LT 2006
'_-layer;OF;*;N;;

□ 指定した図形が作図されている画層を非表示
動作確認：AutoCAD 2006 / LT 2006
^C^C_ai_molc;￥$m=u;_-layer;OF;$(getvar,clayer);;

□ 現在画層以外画層ロック
動作確認：AutoCAD 2006 / LT 2006
^C^C_-layer;lo;*;;ai_molc;￥$m=_-layer;u;$(getvar,clayer);;

□ 画層ロックをすべて解除
動作確認：AutoCAD 2006 / LT 2006
^C^C_-layer;U;*;N;;;

□ 指定した図形が作図されている画層をフリーズ
動作確認：AutoCAD 2006 / LT 2006
^C^C_ai_molc;￥$m=u;_-LAYER;F;$(getvar,clayer);;

□ 選択した図形が作成されている画層だけを表示
動作確認：AutoCAD LT 2005
^C^C$M=_ai_molc;￥-layer;off;*;N;;_id;￥_u;;-layer;M;$(getvar,CLAYER);;

□ 類似オブジェクト表示
動作確認：AutoCAD 2011 / LT 2011
^C^C_select;￥_selectsimilar;p;;_isolateobjects;

□ 類似オブジェクト非表示
動作確認：AutoCAD 2011 / LT 2011
^C^C_select;￥_selectsimilar;p;;_hideobjects;

□ 図形を移動した先で回転
動作確認：AutoCAD 2005 / LT 2005
^C^C_select;￥_move;P;;￥￥_rotate;P;;@;

□ 図形を複写した先で回転
動作確認：AutoCAD 2005 / LT 2005
*^C^C_select;￥_copy;P;;0,0;0,0;_move;P;;￥￥_rotate;P;;@;

□ オフセットする図形を現在画層に作成させる
動作確認：AutoCAD LT 2002
^C^C_offset;￥￥￥;chprop;l;;la;$m=$(getvar,clayer);;
AutoCAD 2006 / LT 2006では標準機能として追加されました。

□ 切断された2線分を接続する
動作確認：AutoCAD LT 2005
^C^C_select;SINGLE;￥_ucs;OB;@;pedit;@;;;_area;O;@;explode;@;_id;END;@;_ucs;O;@;_select;SINGLE;￥_gridunit;@;id;END;@;_lengthen;DE;$M=$(-,$(getvar,perimeter),$(index,0,$(getvar,lastpoint)));-$m=$(index,0,$(getvar,gridunit)),$m=$(index,1,$(getvar,gridunit));;_erase;L;;_ucs;W;
※AutoCAD 2006 / LT 2006では標準機能（JOIN）として追加されました。

□ 線分上に文字を記入し、文字と重なる線分を自動的に部分削除
動作確認：AutoCAD LT 2005
^C^C_textsize;￥_id;NEA;￥_select;@;;_dtext;J;MC;@;;;$m=$(if,$(getvar,cmdactive),￥,)_sortents;96;_rotate;P;;non;@;0;_trim;L;;@;;_sortents;$(getvar,sortents);

□ 長さ寸法記入と直列寸法記入を連続で実行
動作確認：AutoCAD 2005 / LT 2005
^C^C_dimlinear;￥￥￥_dimcontinue;

□ 中点座標（任意の2点間）の取得（LT2005から標準機能として追加されました。）
動作確認：AutoCAD LT 2002
'_insbase;￥'_limmin;￥$M='limmin;0,0;_none;$(/,$(+,$(index,0,$(getvar,insbase)),$(index,0,$(getvar,limmin))),2),$(/,$(+,$(index,1,$(getvar,insbase)),$(index,1,$(getvar,limmin))),2);
※UCSが編集されている状態だと正常に動作しません。

□ 丸囲みカウントアップ数字
動作確認：AutoCAD LT 2005
*^C^C$M=_setenv;NO;0;$(NTH,$(getenv,NO),_setenv;NO1;￥setenv;NO;1,)$(nth,$(getenv,NO),,_circle;￥NON;$(*,1.2,$(getvar,TEXTSIZE));-mtext;NON;@;j;mc;non;@;$(getenv,NO1);;_explode;l;;;_setenv;NO1;$M=$(+,$(getenv,NO1),1);setenv;NO;1);^M;^M;

□ 指定範囲以外の図形を削除
動作確認：AutoCAD 2005 / LT 2005
^C^C_erase;ALL;_remove;C;￥￥;
※オブジェクトを部分的に切り抜くものではありません。
指定範囲および範囲を示す矩形交差窓に触ったオブジェクトが削除対象から除かれます。
文中のCをCPに変更すると多角形交差窓で範囲指定が行えます。

□ 中心線記入
動作確認：AutoCAD 2005 / LT 2005
*^C^C_ucs;OB;￥_id;nea;￥$m=_line;.y;NON;0,$(/,$(index,1,$(getvar,LASTPOINT)),2);￥.y;NON;@;￥;_ucs;W;
平行線を2本選択後、中心線の始点・終点を指定します。

□ 平行線記入
動作確認：AutoCAD 2005 / LT 2005
*^C^C_offsetdist;￥_ucs;ob;￥_line;.y;non;0,$m=$(getvar,offsetdist);￥.y;non;@;￥;_mirror;l;;non;0,0;non;@1,0;;_ucs;w;

□ エッジ接続
動作確認：AutoCAD LT 2002
^C^C$m=_fillet;r;0;_fillet;￥￥_filletrad;$(getvar,filletrad);
フィレット半径0で2線分をエッジ接続します。
AutoCAD 2006 / LT 2006では標準機能として追加されました。

□ AutoCADで簡易的なグループ作成（名前のないグループ）
動作確認：AutoCAD 2008
^C^C-group;c;*;*;

□ AutoCADで簡易的なグループ解除
動作確認：AutoCAD 2008
^C^C_select;￥_copybase;non;0,0;p;;_erase;p;;_pasteclip;non;0,0

□ グループを保ったまま他図面間コピー
動作確認：AutoCAD 2008 / LT 2008
^C^C_pasteblock;￥_explode;l;-group;c;*;;p;;

□ テキスト位置合せ（円・楕円）
動作確認：AutoCAD 2008 / LT 2008
^C^C_justifytext;￥;m;_change;p;;cen;￥;;;;
1.テキストを選択　2.円の中心をクリック

□ テキスト位置合せ（長方形）
動作確認：AutoCAD 2008 / LT 2008
^C^C_justifytext;￥;m;_change;p;;m2p;￥￥;;;;
1.テキストを選択　2.長方形の対角2点をクリック

□ 2重線（一時オブジェクトスナップ不要）
動作確認：AutoCAD LT 2009
*^C^C$M=_DLINE;B;OF;S;OF;W;￥'OSMODE;$(GETVAR,OSMODE);￥

□ アンダーライン（線分作図）
動作確認：AutoCAD LT 2009
^C^C$M=_select;si;￥_copy;p;;_non;@;_non;@;_erase;p;;_ucs;ob;l;_mirrtext;0;_mirror;l;;_non;0,1;_non;0,0;y;_ucs;ob;l;_line;_non;@$(*,$(getvar,dimscale),0.5),0;_non;-$(*,$(getvar,dimscale),0.5),0;;_ucs;p;_mirror;l;p;;_non;0,0;_non;0,1;y;_mirrtext;0;_move;l;;_non;0,-$(*,$(getvar,dimscale),0.5);;_ucs;p;

□ 文字列の画層を移動し、文字編集
動作確認：AutoCAD LT 2009
*^C^C_change;si;￥p;la;[移動先画層名];;_change;@;;;;;;;
※[移動先画層名]の箇所を任意の名称に変更して使用

建築系

□ 片開きドア作成
動作確認：AutoCAD LT 2005
*^C^C_spline;￥;$M=$(if,$(getvar,CMDACTIVE),^C_ai_deselect;)_line;@;￥;ucs;ob;L;;3;;;￥_lengthen;L;;erase;L;;"$M=line;@;$(getvar,PERIMETER),0;;_rotate;L;;0,0;90;_arc;$(getvar,PERIMETER),0;E;0,$(getvar,PERIMETER);R;0,0;"_ucs;P;;P;^M;
・操作手順
1.開口部角1点目を指定　2.開口部角2点目を指定　3.ドア開き方向を指定

土木系

□ 勾配（％）指定ライン
動作確認：AutoCAD 2005 / LT 2005
*^C^C$m=useri5;0;$(nth,$(getvar,useri5),userr5;￥useri5;1,_line;￥NON;@1","$m=$(/,$(getvar,userr5),100);;_sortents;127;lengthen;DY;NON;@;'sortents;$(getvar,sortents);￥;useri5;1,)

□ 面積計測（フォントをTrue Type FONT（MS UI Gothic）で指定したので単位㎡が表示できます。）
動作確認：AutoCAD 2005 / LT 2005
^C^C-style;area;MS UI Gothic;;;;;;;;;;;;;;_area;O;￥_text;￥$M=$(*,3.0,$(getvar,DIMSCALE));0;$(rtos,$(/,$(getvar,AREA),1000000),2,2)㎡;
※文字サイズは現在のDIMSCALE×3のサイズで記入されます。
※ポリラインやリージョンなどで閉じられた図形を直接選択します。

□ 円弧長さ記入
動作確認：AutoCAD 2005 / LT 2005
^C^C_pedit;￥;;_area;O;L;_explode;L;_DIM1;ANGULAR;$M=$(getvar,"LASTPOINT");￥$M=$(rtos,$(getvar,"PERIMETER"));;^M;
※一旦書き込んだ円弧の長さ数値は円弧が伸縮しても変わりませんので注意してください。
※AutoCAD 2006からは標準機能（DIMARC）として追加されました。

電気設備系

□ 電気設備用配線記入【コの字配線】
動作確認：AutoCAD LT 2009
^C^C_dimexe;0;dimexo;0;dimblk;_NONE;dimtad;1;ucs;n;QUA,MID;￥;s;a;;n;QUA,MID;￥;s;b;;r;a;dli;@;0,0;t; ;￥x;l;_pedit;L;;;_fillet;0,0;L;_copy;P;;@;@;_fillet;L;0,0;_erase;P;;ucs;D;a;ucs;D;b;ucs;W;
※定常OSNAPはオフの状態、フィレット半径はあらかじめ設定の上、ご利用ください。
1.接続したい一方の部品の始点をクリック
2.接続したいもう一方の部品の終点をクリック
3.通過する位置をクリック

□ 電気設備用配線記入【L字配線】
動作確認：AutoCAD LT 2009
^C^C_dimexe;0;dimexo;0;dimblk;_NONE;dimtad;1;ucs;n;QUA,MID;￥;s;a;;n;QUA,MID;￥;s;b;;r;a;dli;@;0,0;t; ;@;x;l;_pedit;L;;;fillet;0,0;L;_copy;P;;@;@;_fillet;L;0,0;_erase;P;;ucs;D;a;ucs;D;b;ucs;w;
※定常OSNAPはオフの状態、フィレット半径はあらかじめ設定の上、ご利用ください。
1.接続したい一方の部品の始点をクリック
2.接続したいもう一方の部品の終点をクリック

□ 電気設備用配線記入【角度付き配線】
動作確認：AutoCAD LT 2009
^C^C_setenv;高さ;￥_setenv;方向;￥_ucs;N;CEN,INS;￥$M=$(if,$(=,$(getenv,方向),0),ucs;N;X;0,ucs;N;X;180);_pline;CEN,INS;￥@$M=$(*,$(getenv,高さ),1.414)<135;$(getenv,高さ),$(getenv,高さ);0,0;;_fillet;P;L;_ucs;W;
※定常OSNAPはオフの状態、フィレット半径はあらかじめ設定の上、ご利用ください。
1.「高さ」は配線の通過する位置
2.「方向」は0が上、1が下
3.接続したい一方の部品の始点をクリック
4.接続したいもう一方の部品の終点をクリック

□ 電気設備用配線隠線処理（記号付き）
動作確認：AutoCAD 2005 / LT 2005
*^C^C_setvar;osmode;$M=$(getvar,osmode);_ucs;ob;￥-osnap;off;_circle;int;￥$m=$(*,1.5,$(getvar,DIMSCALE));_trim;l;;f;@0.1,0.1;@0,-0.2;;;_erase;p;;_line;@;@0,$m=$(*,3,$(getvar,DIMSCALE))/2;;_scale;l;;@;2;_move;l;;0,0;@$m=$(*,1.5,$(getvar,DIMSCALE)),0;_copy;l;;@;@;_move;l;;@;@-$m=$(*,1.5,$(getvar,DIMSCALE)),0;_move;p;;@;-$m=$(*,1.5,$(getvar,DIMSCALE)),0;_ucs;w;_osmode;$M=$(getvar,osmode);
隠線の間隔、記号の長さは現在のDIMSCALEに影響されます。（例 1/100の図面ではDIMSCALEを100に設定）

□ 線分をポリラインとして結合
動作確認：AutoCAD LT 2005
^C^C_select;￥-group;;*;;P;;copy;P;;@;@;erase;P;;select;L;;qkungroup;L;;pedit;L;;J;P;;;

空調・衛生設備系

□ 配管切断記号作成
動作確認：AutoCAD LT 2005
^C^C_id;￥_di;@;￥$M=_pl;@;a;s;NON;@$(/,$(getvar,DISTANCE),4),$(/,$(getvar,DISTANCE),-8);NON;@$(/,$(getvar,DISTANCE),4),$(/,$(getvar,DISTANCE),8);s;NON;@$(/,$(getvar,DISTANCE),4),$(/,$(getvar,DISTANCE),8);NON;@$(/,$(getvar,DISTANCE),4),$(/,$(getvar,DISTANCE),-8);s;NON;@$(/,$(getvar,DISTANCE),-4),$(/,$(getvar,DISTANCE),-8);NON;@$(/,$(getvar,DISTANCE),-4),$(/,$(getvar,DISTANCE),8);;_ro;L;;@$(/,$(getvar,DISTANCE),-2),0^M;

＜＜ AutoCAD TIPS メニューへ戻る