こんにちは！AutoCAD VBAの世界へようこそ。
日々、何十枚、何百枚もの図面を開き、「あっちの図面は画層Aが消えているのに、こっちの図面は表示されている……整合性を取らなきゃ！」と深夜残業に明け暮れていませんか？
マクロの記録から一歩抜け出し、AutoCAD VBAの真髄である「オブジェクトモデルの掌握」ができれば、そんな不毛な作業は一瞬で自動化できます。今回は、複数図面の画層状態（ON/OFF、フリーズ）を、`AcadApplication`オブジェクトを駆使して神速で同期させるプロフェッショナルな手法を伝授します。
ここをクリアすれば、あなたのAutoCAD VBAスキルは間違いなく実務のトップ10%に入ります。一緒に本質をマスターしていきましょう！
—
1. なぜ「複数図面の同期」でつまずくのか？（オブジェクトモデルの本質）
AutoCAD VBAを学び始めると、まず `ThisDrawing` という魔法の言葉に出会います。「今、自分が触っている図面」を操作するにはこれで十分です。
しかし、実務では「現在開いている複数の図面（あるいはバックグラウンドにある図面群）を一括操作したい」という壁にぶつかります。ここで多くの人が、次のような設計ミスの沼にハマります。
- 図面を切り替えるたびに画面がバタバタと点滅し、処理が異常に遅くなる
- どのドキュメントを操作しているかを見失い、意図しない図面の画層を書き換えてしまう
- VBAのメモリ管理の罠を踏み抜き、AutoCADごとフリーズする
これらを解決するのが、すべての頂点に君臨する `AcadApplication` オブジェクト です。
—
2. アーキテクチャの理解：`AcadApplication` と `Documents` コレクション
AutoCADのオブジェクトモデルは、いわば「ロシアの伝統人形（マトリョーシカ）」構造をしています。
[AcadApplication] （AutoCADアプリ本体）
└── [Documents] （現在開いている全図面の集合体）
├── [AcadDocument] （図面A：ThisDrawing）
├── [AcadDocument] （図面B）
└── [AcadDocument] （図面C）
`AcadApplication` はAutoCADそのものです。その子供である `Documents` コレクションを巡回（ループ）させることで、今開いているすべての図面に同時にアクセスする権限を手に入れられます。
さらにプロフェッショナルとして知っておくべきは、「画面を描画させない（`ScreenUpdating` 相当の制御）」と「エラーハンドリング」の美学です。大量の図面を一括処理するとき、画面描画を挟むとパフォーマンスが10分の1以下に落ちます。
—
3. 【実践コード】複数図面の画層状態を同期するマクロ
それでは、実務でそのまま使える極上のコードを公開します。
このマクロは、「基準となる図面（現在アクティブな図面）」から特定の画層名（例：「A-ANNOTATION」など）のON/OFFおよびフリーズ状態を取得し、同じAutoCADセッション内で開いている他のすべての図面に伝播させるものです。
Sub SyncLayerStatesAcrossDocuments()
‘ —————————————————-
‘ プロフェッショナル仕様：複数図面画層同期マクロ
‘ —————————————————-
‘ 1. 宣言とイニシャライズ
Dim acadApp As AcadApplication
Dim targetDoc As AcadDocument
Dim sourceDoc As AcadDocument
Dim sourceLayer As AcadLayer
Dim targetLayer As AcadLayer
‘ 監視・同期したい画層名をここに指定します（実務に合わせて変更してください）
Const TARGET_LAYER_NAME As String = “A-ANNOTATION”
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ AcadApplicationオブジェクトの取得（現在のAutoCADセッションを掴む）
Set acadApp = ThisDrawing.Application
‘ 基準となる現在の図面を特定
Set sourceDoc = acadApp.ActiveDocument
‘ 基準図面に目的の画層が存在するかチェック
On Error Resume Next
Set sourceLayer = sourceDoc.Layers.Item(TARGET_LAYER_NAME)
On Error GoTo ErrorHandler ‘ エラー監視を復旧
If sourceLayer Is Nothing Then
MsgBox “基準図面に指定画層 [” & TARGET_LAYER_NAME & “] が存在しません。”, vbExclamation, “同期中断”
Exit Sub
End If
‘ 2. パフォーマンス最適化：画面描画を一時停止
acadApp.ActiveDocument.ActiveViewport.GridOn = False ‘ 軽微な負荷軽減
‘ ※ AutoCAD VBAには直接ScreenUpdatingがないため、極力余計な画面操作を排除します
Dim syncCount As Integer
syncCount = 0
‘ 3. Documents コレクションをループし、全図面を同期
For Each targetDoc In acadApp.Documents
‘ 基準図面自身はスキップ
If targetDoc.Name <> sourceDoc.Name Then
‘ 対象図面内に目的の画層が存在するか確認
On Error Resume Next
Set targetLayer = targetDoc.Layers.Item(TARGET_LAYER_NAME)
On Error GoTo ErrorHandler
If Not targetLayer Is Nothing Then
‘ 画層の状態（表示/非表示、凍結/解凍）を基準図面から同期
targetLayer.LayerOn = sourceLayer.LayerOn
targetLayer.Freeze = sourceLayer.Freeze
‘ 図面を強制再描画して変更を反映
targetDoc.Regen acActiveViewport
syncCount = syncCount + 1
End If
‘ オブジェクト変数をクリーンアップ
Set targetLayer = Nothing
End If
Next targetDoc
‘ 4. 完了報告
MsgBox “同期完了！” & vbCrLf & _
“対象画層: ” & TARGET_LAYER_NAME & vbCrLf & _
“更新した図面数: ” & syncCount & “枚”, vbInformation, “AutoCAD VBA 完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
4. コードの深掘り解説：ここがプロの技
初心者のコードと、プロのコードの決定的な違いを解説します。
① `ThisDrawing` ではなく `ThisDrawing.Application` を使う理由
コード内の `Set acadApp = ThisDrawing.Application` に注目してください。
`ThisDrawing` はあくまで「現在アクティブなドキュメント」です。しかし、複数の図面を横断して管理・操作する司令塔（コントローラー）になり得るエコシステムは `AcadApplication` だけです。ここを押さえることで、将来的に「開いていない図面をバックグラウンドで開いて処理する」といった高度な自動化へステップアップできます。
② 安全なエラーハンドリング（`On Error Resume Next` の正しい使い方）
大規模な図面群をループさせるとき、「ある図面には目的の画層が存在し、別の図面には存在しない」ということが日常茶飯事に起こります。
存在しない画層を `.Item()` で呼び出そうとすると、VBAは容赦なくエラーで停止します。そのため、検索部分だけ一時的に `On Error Resume Next` でエラーをいなし、`If targetLayer Is Nothing Then` で安全に弾くという「防御的プログラミング（Defensive Programming）」を徹底しています。
③ `.Regen acActiveViewport` による確実な視覚化
画層のプロパティ（`LayerOn` や `Freeze`）をコードで書き換えても、AutoCADの画面エンジンが即座に再描画を追いつかない場合があります。最後に `Regen` を挟むことで、ユーザーが画面を開いたときに「確実に状態が反映されている」状態を担保します。
—
5. 陥りやすい罠とアドバイス
- 「インデックスが範囲外です」エラーが出る場合
これは、開いている図面の中に特殊なブロックエディタや、読み取り専用（Read-Only）でロックされている図面が含まれている場合に発生します。実務では `targetDoc.ReadOnly` プロパティをチェックして、読み取り専用図面はスキップする条件分岐を入れるとさらに堅牢になります。
- 変数解放（メモリ管理）の美学
ループの最後で `Set targetLayer = Nothing` と記述している点に注目してください。VBAのオブジェクト変数はスコープを抜ければ自動解放されますが、複数図面を扱うメモリ負荷の高いマクロでは、明示的に参照を切る（Nothingを代入する）ことでメモリリークを防ぐのがプロの作法です。
—
まとめ
今回は `AcadApplication` オブジェクトを使い、複数図面の画層状態を美しく、かつ強靭に同期するマクロを解説しました。
「図面を開いて、画層を確認して、ポチポチと設定を変えて……」という手作業から解放され、ボタン一つでプロジェクト全体の整合性を担保する。これこそがAutoCAD VBAを学ぶ最大の醍醐味です。
ここをクリアしたあなたなら、次は「フォルダ内のすべての図面を一括で開き、非表示で同期して保存・閉じる」というバッチ処理への挑戦も容易なはずです。
ぜひご自身の開発環境にこのコードを組み込み、圧倒的な業務効率化を体感してください。あなたのエンジニアライフが、よりクリエイティブで快適なものになることを応援しています！
