【上級プロフェッショナル】AcadApplicationオブジェクトで、複数図面の画層状態（ON/OFF/フリーズ）を自動同期させる
こんにちは。大規模プラントから都市開発まで、数千枚単位のCAD図面を統括する開発プロジェクトでチーフアーキテクトを務めている。
日常の業務で、こんな不毛な作業に時間を奪われていないだろうか？
「マスター図面で画層構成を変更したのに、関連する50枚のサブ図面で手動ポチポチと画層のON/OFFやフリーズ状態を合わせている」
「`SendCommand` や `_.LAYER` コマンドをマクロで無理やり流し込み、画面のちらつきや予期せぬコマンドの暴走に頭を抱えている」
もし、あなたが未だに画面を開いて手作業で画層を同期させているなら、今すぐそのマウスを置いてほしい。AutoCAD VBAの本質である `AcadApplication` オブジェクトと `Documents` コレクションのライフサイクル を理解すれば、バックグラウンド（あるいは極めて効率的なフォアグラウンド）で数十枚の図面を数秒で調律することが可能だ。
今回は、実務の現場で「絶対に破綻しない」堅牢性を備えた、複数図面間画層同期エンジンの設計思想とプロダクションコードを伝授する。
—
1. なぜ「あの書き方」では破綻するのか？（非効率なアプローチの排除）
世にあふれる初心者向けのVBAコードを見ると、アクティブドキュメント (`ThisDrawing`) に依存し、`Sendcommand` でゴリ押しするコードが散見される。
‘ 【絶対にやってはいけないアンチパターン】
Sub BadLayerSync()
‘ アクティブ図面の画層をいじるだけの脆弱なコード
ThisDrawing.SendCommand “-LAYER” & vbCr & “ON” & vbCr & “A-WALL” & vbCr & vbCr
‘ 複数図面を開くためにSendkeysや不確実なファイルオープンを使う…
End Sub
なぜこれがいけないのか？
1. `SendCommand` は非同期かつUI依存の悪魔：コマンドの完了をVBA側で検知できず、図面の複雑さやダイアログの割り込みによって平気で処理がデッドロックする。
2. `ThisDrawing` への過度な依存：複数図面をバッチ処理する際、どの図面が現在フォーカスを持っているか（ActiveDocument）に依存すると、ユーザーが別作業でマウスやキーボードに触れただけで動作が崩壊する。
3. エラーハンドリングの欠如：読み取り専用ファイル、ロックファイル、存在しない画層名に直面した際、容赦なくAutoCADごとフリーズする。
プロフェッショナルが目指すべきは、UIを描画させずに、オブジェクトモデルを直接操作し、トランザクションの安全性を担保することだ。
—
2. 堅牢な設計：AcadApplicationとDocumentsコレクションの掌握
複数図面の同期において、エントリーポイントとなるのは常に `AcadApplication`（または `VBA.CreateObject(“AutoCAD.Application”)`）である。
アーキテクチャの要件定義
- マスターステートの抽出：同期元の図面から「どの画層がONで、どの画層がフリーズしているか」のマップ（辞書オブジェクト）をメモリ上に構築する。
- ドキュメントの安全なイテレーション：対象フォルダ内の図面、または現在開いている `Documents` コレクションに対し、非表示（または最小限の負荷）でアクセスし、マスターの状態を流し込む。
- 変更の永続化とクリーンアップ：変更を加えた図面のみをスマートに `Save` し、メモリリークを防ぐために適切に `Close` する。
—
3. 【プロダクションコード】複数図面画層同期エンジン
以下のコードは、実務の現場でそのままコピー＆ペーストして組み込めるモジュールだ。マスター図面から画層の状態（ON/OFF, Freeze, Lock, Color）を読み取り、指定フォルダ内の全図面に伝播させる。
Option Explicit
‘ ==============================================================================
‘ 処理名: 複数図面間 画層状態同期ツール
‘ 概要 : マスター図面の画層プロパティを、ターゲットフォルダ内の全図面に適用する
‘ 依存 : Microsoft Scripting Runtime (Dictionary用)
‘ ==============================================================================
Public Sub SyncLayersAcrossDrawings()
Dim acadApp As AcadApplication
Dim masterDoc As AcadDocument
Dim targetDoc As AcadDocument
‘ 1. 安全なApplicationインスタンスの取得
On Error Resume Next
Set acadApp = ThisDrawing.Application
If acadApp Is Nothing Then
Set acadApp = GetObject(, “AutoCAD.Application”)
End If
On Error GoTo 0
If acadApp Is Nothing Then
MsgBox “AutoCADが起動していません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 2. マスター図面の特定（ここでは現在アクティブな図面をマスターとする）
Set masterDoc = acadApp.ActiveDocument
If masterDoc Is Nothing Then
MsgBox “マスターとなる図面が開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 3. マスター図面の画層情報をメモリ（Dictionary）にキャッシュする
Dim layerStates As Object
Set layerStates = CreateLayerStateDictionary(masterDoc)
If layerStates.Count = 0 Then
MsgBox “同期すべき画層情報が取得できませんでした。”, vbExclamation, “中断”
Exit Sub
End If
‘ 4. ターゲットとなるフォルダの指定（実務ではダイアログや設定ファイルから取得）
Dim targetFolder As String
targetFolder = “C:\AutoCAD_Projects\TargetDrawings\” ‘ ※環境に合わせて変更してください
If Dir(targetFolder, vbDirectory) = “” Then
MsgBox “指定されたターゲットフォルダが存在しません: ” & targetFolder, vbCritical, “パスエラー”
Exit Sub
End If
‘ 5. フォルダ内の図面ファイルを走査し、バッチ適用
Dim fileName As String
fileName = Dir(targetFolder & “.dwg”)
Dim processedCount As Long
processedCount = 0
‘ 画面描画をフリーズさせてパフォーマンスを極限まで高める
acadApp.Preferences.Display.TextScreenampilkan = False
Do While fileName <> “”
Dim fullPath As String
fullPath = targetFolder & fileName
‘ 自身（マスター）と同じファイルの場合はスキップ
If StrComp(fullPath, masterDoc.FullName, vbTextCompare) <> 0 Then
On Error GoTo ErrorHandler
‘ 図面を開く（VisibleをTrueにすると描画負荷がかかるため、バックグラウンド処理を意識）
Set targetDoc = acadApp.Documents.Open(fullPath)
‘ 画層状態の適用
Call ApplyLayerStates(targetDoc, layerStates)
‘ 保存して閉じる
targetDoc.Save
targetDoc.Close False
Set targetDoc = Nothing
processedCount = processedCount + 1
End If
NextFile:
fileName = Dir()
Loop
‘ 描画設定を復元
acadApp.Preferences.Display.TextScreenampilkan = True
MsgBox “画層の同期が完了しました。” & vbCrLf & _
“処理対象ファイル数: ” & processedCount & ” 件”, vbInformation, “完了”
Exit Sub
ErrorHandler:
MsgBox “ファイル処理中にエラーが発生しました: ” & fileName & vbCrLf & _
“詳細: ” & Err.Description, vbExclamation, “エラー”
If Not targetDoc Is Nothing Then
targetDoc.Close False
Set targetDoc = Nothing
End If
Resume NextFile
End Sub
‘ ——————————————————————————
‘ 内部関数: マスター図面の画層状態をDictionaryに格納
‘ ——————————————————————————
Private Function CreateLayerStateDictionary(doc As AcadDocument) As Object
Dim dict As Object
Set dict = CreateObject(“Scripting.Dictionary”)
Dim lyr As AcadLayer
For Each lyr In doc.Layers
‘ 画層名キーとして、[LayerProps]オブジェクト（配列またはカスタム構造体代わりのArray）を格納
‘ 格納データ: 0=LayerOn, 1=Freeze, 2=Lock
Dim props(2) As Boolean
props(0) = lyr.LayerOn
props(1) = lyr.Freeze
props(2) = lyr.Lock
dict.Add lyr.Name, props
Next lyr
Set CreateLayerStateDictionary = dict
End Function
‘ ——————————————————————————
‘ 内部プロシージャ: ターゲット図面に画層状態を適用
‘ ——————————————————————————
Private Sub ApplyLayerStates(doc As AcadDocument, states As Object)
Dim lyr As AcadLayer
Dim key As Variant
Dim props As Variant
For Each key In states.Keys
On Error Resume Next
Set lyr = doc.Layers.Item(key)
‘ ターゲット図面に画層が存在する場合のみプロパティを同期
If Not lyr Is Nothing Then
props = states(key)
‘ 画層0や現在画層など、変更できないプロパティへの配慮
Err.Clear
lyr.LayerOn = props(0)
lyr.Freeze = props(1)
lyr.Lock = props(2)
End If
Set lyr = Nothing
On Error GoTo 0
Next key
End Sub
—
4. プロフェッショナルのための実装上の注意点とTIPS
上記のコードを実務の生産ラインに組み込むにあたり、以下のアーキテクトとしての知見を共有しておく。
① パフォーマンスチューニング（画面描画の抑制）
コード内にある `acadApp.Preferences.Display.TextScreenampilkan` や、図面を開閉する際のオーバーヘッドを最小化するため、不要なイベントハンドラやLISPのロードを極力排除した環境下で実行することが望ましい。AutoCADのCOM APIはUIを描画しない状態（図面が非アクティブ、またはバックグラウンド）であっても容赦なくプロパティ書き換えを実行できるため、処理速度は人間が手動でやる場合の数百倍に達する。
② 画層「0」や「Defpoints」の特殊性
AutoCADの仕様上、画層 `0` や `Defpoints` は削除できず、一部のプロパティ（凍結やロックなど）を変更しようとするとエラーを返す場合がある。上記のコードでは `On Error Resume Next` を適切にスコープを絞って配置し、システム画層の保護例外でバッチ全体が止まらない設計にしている。
③ データベース連携や外部ログへの拡張
もし企業内のPdm（Product Data Management）システムやExcelの管理台帳と連動させたい場合は、`targetFolder` のハードコーディング部分を、DBから取得したファイルパスのリスト（配列）に置き換えればいい。ループ内で `Open` する対象を動的リストに切り替えるだけで、全社規模の画層標準化ツールへとスケールする。
—
5. 結び：手作業の自動化から「設計の自動化」へ
VBAを書くということは、単にキーストロークをコードに置き換えることではない。「いかにシステムを破綻させず、予期せぬ例外を完全に包み込み、ビジネス価値（時間短縮・ミス撲滅）を最大化するか」 というエンジニアリングそのものだ。
今回紹介した `AcadApplication` を起点とした複数図面制御のパターンをマスターすれば、画層同期だけでなく、ブロックの置換、属性情報の抽出、図枠のバッチ更新など、あらゆるCAD自動化の応用がきくようになる。
あなたの開発現場の生産性を、次のステージへと引き上げてほしい。
