選択した2線分間の角度を計算

選択した2線分間の角度をコマンドラインで確認することができるマクロです。
[角度寸法記入]（DIMANGULAR）コマンドで値を確認した直後に記入をキャンセルさせているので、実際に角度寸法線を記入して値を確認する必要がありません。

□ 角度計算
^C^C_dimangular;￥￥t;^C
※￥は半角に置き換えてご利用ください。

AutoCAD LTで[FLATTEN]もどき

AutoCADにはボーナスツール「Express Tools」が提供されており、便利なコマンドが標準機能にプラスして使用することができます。
そういった便利なボーナスツールの中に[FLATTEN]というコマンドがあります。
[FLATTEN]コマンドはオブジェクトが持つ3次元データを2次元データに変換することができます。

よくあることですが、2次元図面を作図している途中でZ値が意図せずにオブジェクトに含まれることがあります。
するとオブジェクト同士が交差しているように見えていても交点が取得できなかったり、フィレットや面取りといった編集をしようとすると「同一平面上にありません」と警告メッセージが表示され処理が行えないことがあります。

このような状況で[FLATTEN]コマンドを使うとオブジェクトが持つZ値を0にすることができるので、2次元図面しか作図しないユーザにとっては非常に重宝するコマンドになります。

最初にも説明しましたが、この[FLATTEN]コマンドはExpress Toolsに含まれるコマンドで、AutoCAD LTユーザは使用することができません。

そこで。。
オートデスクのKate Morricalのブログ「LT Unlimited」の記事「Mimic Express Tool “Flatten”」をご覧ください。
この記事で[FLATTEN]コマンドで行えるようなZ値を0にするマクロが紹介されているので、利用してみてはいかがでしょうか。

ポリライン結合

線分や円弧オブジェクトをポリライン化します。
端点が繋がっている複数のオブジェクトにも対応し、1オブジェクトを選択するだけで、それに繋がるすべてのオブジェクトが結合します。

□ ポリライン結合
^C^C_pedit;￥y;j;all;;;
※￥は半角に置き換えてください。

＜操作手順＞
1.結合したいオブジェクトの中から1オブジェクトだけを選択
2.選択したオブジェクトに繋がる、その他オブジェクトが結合される

選択したハッチングを表示順序を最背面に移動

指定範囲内からハッチングだけを選択し、表示順序を変更（最背面へ移動）します。

(setq [変数1] (ssget '((0 . "hatch"))))
(command "_draworder" [変数1] "" "b")

文字の置換

異なる内容の文字列を複数選択し、すべてを同一内容に置換します。

(setq number 0)
(setq [変数1] (getstring "置換後の文字列を入力: "))
(setq [変数2] (ssget '((0 . "text"))))
(repeat (sslength [変数2])
(setq [変数3] (ssname [変数2] number))
(command "_change" [変数3] "" "" "" "" "" "" [変数1])
(setq number (1+ number))
)

プロパティ リセット

現在のプロパティ（色・線種・線の太さ）の設定を一斉にByLayerに切り替えるマクロ。

^C^C-color;bylayer;-ltype;s;bylayer;;lweight;bylayer;
※「名前の付いた印刷スタイルテーブル」のリセットを追加するには「-plotstyle;c;bylayer」を追記

＜操作手順＞
1.各種プロパティがByLayer以外になっている状態で上記コマンドを実行
2.各種プロパティが一斉にByLayerに切り替わる

グループを保ったまま他図面間コピー

通常、[グループ]（GROUP）コマンドでグループ化したオブジェクトを、他図面ファイルにコピー＆貼り付けするとグループが解除されてしまいますが、グループを保ったまま他図面ファイルにコピー＆貼り付けしたい場合は、以下のマクロを利用します。

※対象図形を[コピー]（COPYCLIP）などのコマンドでクリップボードにコピーした状態で実行してください。

^C^C_pasteblock;￥_explode;l;-group;c;*;;p;;
※￥は半角に置き換えてください。

＜操作手順＞
1.貼り付け先の図面で上記コマンドを実行
2.[ブロックとして貼り付け]+[分解]+[グループ]コマンドが実行される
※名前のないグループとしてグループ化 されます。

テキスト位置合わせのマクロ

円や楕円、長方形の中心に既存文字を位置合わせするマクロです。


□ テキスト位置合わせ（円・楕円）
^C^C_justifytext;￥;m;_change;p;;cen;￥;;;;
※￥は半角に置き換えてください。

＜操作手順＞
1.既存文字列を選択（文字列の基点が中央に変わります）
2.円の中心をクリック


□ テキスト位置合わせ（長方形）
^C^C_justifytext;￥;m;_change;p;;m2p;￥￥;;;;
※￥は半角に置き換えてください。

＜操作手順＞
1.既存文字列を選択（文字列の基点が中央に変わります）
2.長方形の対角2点をクリック

画層コントロールのマクロ

画層プロパティをコントロールするマクロをまとめました。

□ 全画層表示
'-layer;on;*;;

□ 現在画層以外非表示
'-layer;of;*;n;;

□ 選択画層のみ表示
^C^C$M=_ai_molc;￥-layer;off;*;N;;_id;￥_u;;-layer;M;$(getvar,CLAYER);;

□ 選択画層非表示
^C^C_ai_molc;￥$m=u;_-layer;OF;$(getvar,clayer);;

□ 現在画層以外ロック
^C^C_-layer;lo;*;;ai_molc;￥$m=_-layer;u;$(getvar,clayer);;

□ 画層ロック解除
'-layer;U;*;N;;;

□ 選択画層フリーズ（現在画層不可）
^C^C_ai_molc;￥$m=u;_-LAYER;F;$(getvar,clayer);;

□ 画層フリーズ解除
'-layer;t;*;;

※全角の￥は半角に置き換えてお使い下さい。
※バージョンによっては正常に動作しないものがあるかもしれません。
※AutoCAD 2007 / AutoCAD LT 2007以降はExpress Toolsから移植された画層ツール（標準搭載）がありますので、そちらの使い方も覚えましょう。
※お使いにあたっては自己責任でご利用ください。

[連続寸法線記入]コマンド

[長さ寸法記入]（DIMLINEAR）コマンドで基準寸法線を記入後、[直列寸法記入]（DIMCONTINUE）コマンドが自動的に実行されるマクロです。

^C^C_dimlinear;￥￥￥_dimcontinue;
※￥は半角に置き換えてください。

＜操作手順＞
1.基準寸法線の寸法補助線の基点1をクリック
2.基準寸法線の寸法補助線の基点2をクリック
3.基準寸法線の配置位置を指定
4.連続する寸法線の寸法補助線の基点を次々とクリック
終了は[Esc]

AutoCADには[クイック寸法記入]（QDIM）コマンドがあり、複数のオブジェクトに対して一斉に寸法線の記入を行うことができますが、AutoCAD LTには同様の作図機能はありません。
[長さ寸法記入]コマンドと[直列寸法記入]コマンドを組み合わせ、寸法線の記入作業にかかる負担を軽減させることができます。

マクロの登録方法はこちら

AutoCADで簡易的なグループ管理（名前のないグループ作成・解除）

AutoCADではAutoCAD LTのような簡易的なグループ管理が行えません。（ショートカットメニューから名前のないグループを簡易的に作成するコマンドが標準では無い。）AutoCAD LTのように、ショートカットメニューから簡単に「グループを作成」、「グループを解除」するにはマクロで代用するのが一般的です。

★グループを作成
^C^C_select;￥-group;c;*;*;p;;
※￥は半角に置き換えてください。

★グループを解除
^C^C_select;￥_copybase;non;0,0;p;;_erase;p;;_pasteclip;non;0,0
※￥は半角に置き換えてください。

このコマンドをショートカットメニューなどに追加登録すれば、AutoCAD LTのようなグループ管理が行えます。

マクロの登録方法はこちら

基点コピー＆貼り付けを利用したマクロ

オブジェクトを複写先で回転して配置するマクロです。

^C^C_select;￥_copybase;￥p;;_pasteclip;r;
※￥は半角に置き換えてください。

＜操作手順＞
1.オブジェクトを選択
2.複写の基点をクリック
3.回転角度を入力 または 既存オブジェクトの基点をクリックし任意回転
4.配置点をクリック

AutoCAD 2006 / AutoCAD LT 2006以降のバージョンは貼り付け時に[基点（B）]を使うこともできます。
最初に指定した基点を配置直前に指定しなおすことができます。

マクロの登録方法はこちら