こんにちは！AutoCAD VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身が全然読めない……」と頭を抱えていませんか？
今回は、実務で本当によくある「図面内の全画層（Layer）のプロパティを標準化のために一括変更する」というテーマを深掘りします。ここをクリアすれば、あなたも単なる「操作の自動化」から卒業し、AutoCADのオブジェクトモデルを自在に操るエンジニアへの大きな一歩を踏み出すことができますよ。
優しく、そして本質的な部分までしっかりと解説していきますので、ぜひついてきてくださいね！
—
1. なぜ「画層の一括変更」でVBAを使うのか？
社内標準や発注者指定の画層ルール（CAD運用規約）がある場合、何百とある図面の画層名、色（Color）、線種（Linetype）、線幅（Lineweight）を一つずつ手作業で直していくのは、地獄のような作業です。
これをAutoCAD VBAで自動化すれば、一瞬で、しかもヒューマンエラーゼロで完了します。
この処理を実現するために、私たちはAutoCADの心臓部であるオブジェクトモデルにアクセスします。
—
2. AutoCADオブジェクトモデルの基本構造
AutoCAD VBAを操る上で、絶対に覚えておかなければならない「王様の階層構造」があります。それがこちらです。
AcadApplication （AutoCADアプリ全体）
└─ AcadDocument （現在開いている図面ファイル）
├─ ModelSpace / PaperSpace （図面の中身）
└─ Layers コレクション （図面にある画層の「集合体」）
└─ AcadLayer オブジェクト （個々の画層）
今回のミッションは、「`Layers`というコレクション（箱）の中から、画層を1つずつ取り出し、そのプロパティを書き換える」というシンプルなものです。
—
3. 【実務直結】画層一括変更マクロのコード
それでは、実際のコードを見てみましょう。
そのままVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けて実行できるように書いています。
Sub ModifyAllLayersStandard()
‘ — 宣言セクション —
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim targetLayer As AcadLayer
‘ エラーハンドリングの準備（実務では必須！）
On Error GoTo ErrorHandler
‘ 1. 現在アクティブなAutoCADアプリケーションとドキュメントを取得
Set acadApp = ThisDrawing.Application
Set acadDoc = acadApp.ActiveDocument
‘ 2. 処理開始の通知（パフォーマンスとユーザー体験のため画面更新を抑制すると尚良し）
acadDoc.Utility.Prompt “画層の標準化処理を開始します…” & vbCrLf
‘ 3. Layersコレクションをループで回す（For Each文の活用）
For Each targetLayer In acadDoc.Layers
‘ 【重要】画層「0」や現在画層、あるいは外部参照（Xref）由来の画層など、
‘ 変更してはいけない特殊な画層を除外するロジックを挟むのがプロの技です。
If targetLayer.Name <> “0” And Left(targetLayer.Name, 4) <> “XREF” Then
‘ 例1: 色を「白（AcadColorのインデックス番号：7）」に変更する場合
‘ targetLayer.Color = acWhite
‘ 例2: 画層名を変更せずに、特定のルールでプロパティを整える
‘ ここでは例として、すべての対象画層の「透過性」を0（不透明）に設定
‘ targetLayer.PlotStyleName = “Normal” ‘ 印刷スタイル名の変更例
‘ ※注意: 線種を変更する場合、その線種が事前に図面にロードされている必要があります。
‘ 例: targetLayer.Linetype = “Continuous”
End If
Next targetLayer
‘ 4. 完了メッセージ
MsgBox “すべての画層のプロパティ更新が完了しました！”, vbInformation, “AutoCAD VBA”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合の安全装置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
4. コードの深掘り解説：ここがエンジニアの急所
上記のコードで、初学者がつまずきやすいポイントや、実務で知っておくべき「知見」をいくつか解説します。
① `For Each` と コレクション
VBAでオブジェクトを操作するとき、`For Each … In …` という構文は最強の相棒です。
`acadDoc.Layers` という「画層の束」から、`targetLayer` という変数に1枚ずつ画層を取り出して処理しています。インデックス（何番目か）を意識せずに全件走査できるため、バグが非常に起きにくくなります。
② 変更してはいけない画層への配慮（ここが重要！）
実務で全画層を一括変更しようとすると、必ず壁にぶつかります。
- 画層 `0` は削除も変更も制限がかかる場合がある。
- 現在選択されている画層（CurrentLayer）を変更しようとしてエラーになる。
- 外部参照（Xref）でアタッチされた図面の画層は、元の図面が持っているため、この図面側から勝手に変更できない（あるいは変更しても意味がない）。
コード内で `If targetLayer.Name <> “0”` と条件分岐を入れているのは、こうした「実務特有のトラブル」を未然に防ぐための防衛策です。ここを作り込めるかどうかが、プロとアマの分かれ道です。
③ 線種（Linetype）変更の罠
コードのコメントにも書きましたが、画層の線種を `ACAD_ISO04W100` のような特殊なものに変更したい場合、その線種があらかじめ図面にロードされて（読み込まれて）いないと、VBAは「そんな線種知らん！」とエラーを吐いて止まります。
実務で線種まで一括変更したい場合は、事前に `Linetypes` コレクションを操作して線種をロードする処理をワンクッション挟む必要があります。
—
5. まとめ：ここをクリアすれば基本はバッチリ！
今回は、図面内の全画層のプロパティを操作するマクロを通じて、以下の重要な概念を学びました。
1. AutoCADのオブジェクト階層（Application ＞ Document ＞ Layers ＞ Layer）の理解
2. `For Each` を使ったオブジェクトコレクションの安全な走査
3. 実務で必須となる「除外条件（エラー回避）」の考え方
この基本構造さえ頭に入ってしまえば、画層だけでなく、寸法スタイル、文字スタイル、果ては図面内のすべての線分やブロックを自在にコントロールする応用力が身につきます。
「ここをこう変えたらどうなるんだろう？」という好奇心を大切に、ぜひ手元の図面で実験してみてくださいね。あなたのAutoCADライフが、もっと快適でクリエイティブなものになりますように！
