AutoCAD LTのdiesel文を使ったマクロのTIPS集です。
アイコン ツール名 マクロ(DIESEL構文)
連続長さ変更 ^C^C_lengthen;dy;
ミラー反転 ^C^C_SELECT;\MIRROR;P;;\\Y
半分オフセット ^C^C_SETVAR;USERR1;\offset;$M=$(/,$(getVAR,USERR1),2)
移動_回転 ^C^C_select;\_ortho;of;_move;_P;;\\_ortho;on;_rotate;_P;;@;
コピー_回転 ^C^C_select;\_copy;_P;;@;@;_ortho;of;_move;_P;;\\_ortho;on;_rotate;_P;;@;
回転複写 ^C^C_select;_auto;\_copy;p;;0,0;0,0;_rotate;p;;\
連続複写 ^C^C_select;$M=$(if,$(getvar,CMDACTIVE),\,)_copy;p;;m;
拡大縮小複写 ^C^C_select;$M=$(if,$(getvar,CMDACTIVE),\,)_copy;p;;0,0;0,0;_move;p;;\\_scale;_p;;@;\
全ての画層を表示 ^C^C-layer;ON;*;;
選択したオブジェクトの画層を非表示 ^C^C$M=_ai_molc;\"$M=-layer;OF;$(getvar,CLAYER)";Y;;_clayer;$(getvar,CLAYER);
選択したオブジェクトの画層のみ表示 ^C^C$M=_ai_molc;\-layer;off;*;N;;
選択したオブジェクトの画層を現在の画層にする ^C^C_ai_molc
寸法記号取消 ^C^C^P_dimoverride;dimpost;.;;single;^P
( )付寸法 ^C^C_cmddia;0;_dim1;NEWTEXT;(<>);_cmddia;1;
□付寸法 ^C^C_dimoverride;dimpost;□<>;;_single;
φ記号追加 ^C^C_cmddia;0;_dim1;NEWTEXT;%%C<>;_cmddia;1;
偽尺寸法に変更 ^C^C_userr4;\_userr5;\dimoverride;dimdec;1;dimlfac;$m=$(/,$(getvar,userr5),$(getvar,userr4));;_single;
下線付き寸法(偽尺) ^C^C_script;UnderLine;
水平寸法 ^C^C_cmddia;0;_dim1;override;_dimtoh;1;;\;_cmddia;1;
線分の長さ記入 ^C^C_dimaligned;\\\_cmddia;0;_dim1;override;_DIMSD1;ON;_DIMSD2;ON;_DIMSE1;ON;_DIMSE2;ON;;L;;_cmddia;1;
水平線分の長さ記入 ^C^C_dist;\\-mtext;_mid;\J;BC;W;0;$M=$(rtos,$(getvar,DISTANCE));;_move;L;;@;@0,$(getvar,DIMSCALE);
垂直線分の長さ記入 ^C^C_dist;\\-mtext;_mid;\J;BC;W;0;$M=$(rtos,$(getvar,DISTANCE));;_move;L;;@;@-$(getvar,DIMSCALE),0;_rotate;L;;@;90;
円弧寸法 ^C^C_pedit;\;;_area;O;L;_explode;L;_cmddia;0;_dimangular;$M=$(getvar,LASTPOINT);\_dim1;newtext;$(rtos,$(getvar,PERIMETER),2,$(getvar,DIMDEC));L;;_cmddia;1;
寸法ヨコ→タテ ^C^CSELECT;SI;\DIMEDIT;R;90;P;;DIMTEDIT;@;
寸法タテ→ヨコ ^C^CSELECT;SI;\DIMEDIT;R;0.01;P;;DIMTEDIT;@;
寸法ホーム ^C^CDIM;HOME;
バルーン接続・矢印 ^C^C_LEADER;\_PER;\;;N
バルーン接続 ^C^C_LINE;\_PER;\;
文字横コピー ^C^Cselect;SINGLE;\COPY;p;;@;@;ROTATE;P;;@;270;MOVE;P;;@
文字縦コピー ^C^Cselect;SINGLE;\COPY;p;;@;@;ROTATE;P;;@;90;MOVE;P;;@
中心線 ^C^CID;CENTER;\-INSERT;"CENT_1";@;;;;SCALE;LAST;;@;\EXPLODE;LAST;
即時削除 *^C^C_erase;_single;
矩形削除 ^C^C_id;_non;\_ucs;o;@;_rectang;f;0;c;0;0;@;_non;\_trim;last;;_fence;$m=$(*,0.99,$(index,0,$(getvar,lastpoint)))
,$(*,0.01,$(index,1,$(getvar,lastpoint)));$(*,0.99,$(index,0,$(getvar,lastpoint))),$(*,0.99,$(index,1,$(getvar,lastpoint)))
;$(*,0.01,$(index,0,$(getvar,lastpoint))),$(*,0.99,$(index,1,$(getvar,lastpoint)));$(*,0.01,$(index,0,$(getvar,lastpoint)))
,$(*,0.01,$(index,1,$(getvar,lastpoint)));$(*,0.99,$(index,0,$(getvar,lastpoint))),$(*,0.01,$(index,1,$(getvar,lastpoint)));;;_erase;w;@;0,0;;_ucs;_w;

注意:表示の関係上改行を入れています。上のdeisel文をコピー・貼り付けされる場合は 改行を消去してください。

ツールバー新規作成

プルダウンメニューの[ツール]→[カスタマイズ]→[ツールバー]の順で選んでいき、ツールバーカスタマイズの画面にします。




[新規作成]をクリックするとツールバー名を入力する画面になります。自動的に通し番号の名前がつきますが、名前を変えたい場合はツールバーの名前を入力してください。




新規の空のツールボックスが出来ています。




[コマンド]タグをクリックし[分類]内の[ユーザ定義]をクリックすると右側のコマンドの枠内に [ユーザー定義ボタン]ができますので、それを先ほど新しく作成したツールバーにドラッグ&ドロップします。




ツールバーの中をクリックすると[ボタンのプロパティ]の画面になりますので、ボタン名、説明、DISEL文 を入力し、ボタンのアイコンの[編集]をクリックします。




ボタンアイコンは、ボタンエディタを使って新規に作成するか、アイコンがあれば[開く]をクリックして アイコンファイル(BMP)を指定し使います。ボタンアイコンを作成したら、[保存]し[閉じる]でボタン エディタを終了します。

ボタンエディタから、ボタンカスタマイズの画面に戻りますので[適用]をクリックすれば、コマンドボタン の完成です。


ツールダウンロード

「LTらすた」 ダウンロード
・BMP、JPEG、PCX、TIFF形式の画像ファイルをCADに取り込めます。
・取込後のイメージを調整できます。
・イメージ図で確認しながらCADへ取り込めます。

文字枠くんLT ダウンロード
1.四角形で囲むボタン
2.円で囲むボタン
3.楕円で囲むボタン
というボタン3つのシンプル設計。
斜めに記入された文字列のまわりにも文字枠を作図できます。

Acad形鋼 ダウンロード
(断面)
サイズは7種類合わせて最大250まで、簡単に登録できる。
挿入位置は9ヶ所より選択できる。
形鋼の形状を見ながら挿入できるため、使いやすい。
挿入位置決定後、挿入位置を基点に回転することが出来る。
ブロックではなくポリラインで作図しているため、編集等が容易。
(側面)
上下左右 4面の側面図を作図することが出来る。
形鋼の中心線上で始点・終点を指示する。


Auto CAD