堅牢なる自動化：Excel駆動型DWGバッチ処理におけるリソース管理とバージョン制御の極致
自動化エンジニアが最初に直面する壁は「コードが動くこと」ではない。「数百、数千のファイルに対して、システムをクラッシュさせず、メモリリークを起こさず、決定論的な結果を出し続けること」である。
多くの開発者が、ExcelからAutoCADを操作する単純なループ処理を書き、数件の処理で成功する。しかし、実務における大規模なバッチ処理では、メモリの断片化、ゾンビプロセスの発生、そしてCOMオブジェクトの解放漏れによる「AutoCADの不可解なフリーズ」という地獄が待ち受けている。
本稿では、Excelを司令塔（Orchestrator）とし、AutoCADの内部構造を制御して、図面内の属性書き換えとバージョン変換を完遂する、プロフェッショナル仕様のアーキテクチャを詳解する。
1. アーキテクチャ設計：COMオブジェクトのライフサイクルを支配する
ExcelからAutoCADを操作する場合、我々はCOM (Component Object Model) という極めて繊細なインターフェースを扱っている。
一般的な初心者は、`Set acadApp = GetObject(, “AutoCAD.Application”)` と記述して満足する。しかし、シニアエンジニアは知っている。オブジェクトの参照カウント（Reference Count）が正しく管理されない限り、Excelを閉じてもAutoCADのプロセスがバックグラウンドに残り続け、次回の実行時に「既にインスタンスが存在する」といった予期せぬエラーを引き起こすことを。
鉄則：明示的な解放
VBAのガベージコレクションは、COMオブジェクトに対しては必ずしも即時的ではない。以下の原則を徹底せよ。
1. Scopeの最小化: オブジェクト変数の寿命を、その処理が必要な最小限のブロックに限定する。
2. 明示的なNothing代入: `Set obj = Nothing` は単なる作法ではない。参照カウントを確実にデクリメントするための、エンジニアの義務である。
3. エラーハンドリングの完備: エラー発生時、オブジェクトが「開いたまま」にならないよう、`Finally`的なクリーンアップ処理を必ず通る設計にする。
2. Windows APIによる低レイヤーなファイル検証
ファイルパスがExcelに記載されている以上、そのパスが「本当に存在するのか」「読み取り専用ではないか」を、AutoCADのオブジェクトモデルを介さずに検証すべきである。AutoCADにファイルを開かせようとしてエラーを吐かせるのは、リソースの無駄遣いだ。
Windows APIの `GetFileAttributes` を使用し、OSレベルでファイルの状態を高速に判定する。
' --- Windows API Declaration ---
Private Declare PtrSafe Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Const INVALID_FILE_ATTRIBUTES As Long = -1
Private Const FILE_ATTRIBUTE_READONLY As Long = &H1
''' <summary>
''' ファイルの存在と属性を高速にチェックする
''' </summary>
Private Function IsFileValid(ByVal strPath As String) As Boolean
Dim attr As Long
attr = GetFileAttributes(strPath)
' 存在確認
If attr = INVALID_FILE_ATTRIBUTES Then
IsFileValid = False
Exit Function
End If
' 読み取り専用チェック（書き込みが必要な場合はFalseとする設計）
If (attr And FILE_ATTRIBUTE_READONLY) <> 0 Then
' 実務要件に応じて、読み取り専用を許可するか検討せよ
IsFileValid = False
Exit Function
End If
IsFileValid = True
End Function3. 実装：タイトルブロック置換とバージョン制御のコアロジック
ここからが本題である。Excelのリストを走査し、AutoCAD図面を開き、特定のブロック（タイトルブロック）内の属性を書き換え、指定した形式（例：AutoCAD 2018形式）で保存する。
ここで重要なのは、`SaveAs` メソッドにおける `acSaveAsType` の制御である。
実装コード：RobustDWGProcessor
Option Explicit
' AutoCAD Type Library の参照設定が必要
' 参照: AutoCAD 20xx Type Library
Sub ExecuteBatchProcess()
Dim acadApp As AutoCAD.Application
Dim acadDoc As AutoCAD.Document
Dim ws As Worksheet
Dim lastRow As Long, i As Long
Dim filePath As String, targetVersion As Long
Dim successCount As Long, failCount As Long
Set ws = ThisWorkbook.Sheets("FileList")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 1. AutoCADインスタンスの取得または生成
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If acadApp Is Nothing Then
Set acadApp = New AutoCAD.Application
End If
On Error GoTo ErrorHandler
acadApp.Visible = True ' デバッグ時はTrue、本番高速化時はFalseを検討
' 2. メインループ
For i = 2 To lastRow ' 1行目はヘッダー想定
filePath = ws.Cells(i, 1).Value ' A列: パス
targetVersion = ws.Cells(i, 2).Value ' B列: 保存形式コード
' ファイルの整合性チェック
If IsFileValid(filePath) Then
Debug.Print "Processing: " & filePath
' 図面のオープン
Set acadDoc = acadApp.Documents.Open(filePath)
' --- 業務ロジック: タイトルブロックの属性書き換え ---
If UpdateTitleBlock(acadDoc, ws.Cells(i, 3).Value) Then
' --- 業務ロジック: 指定バージョンで保存 ---
' acSaveAsType を使用してバージョンを制御
' 例: acVersion2018 = 2018相当の定数（ライブラリに依存）
acadDoc.SaveAs filePath, targetVersion
successCount = successCount + 1
Else
ws.Cells(i, 4).Value = "Block Update Failed"
failCount = failCount + 1
End If
' 図面のクローズとリソースの明示的解放
acadDoc.Close False ' 保存済みのためFalse
Set acadDoc = Nothing
Else
ws.Cells(i, 4).Value = "Invalid File Path"
failCount = failCount + 1
End If
' OSに制御を戻し、メモリの断片化を防ぐ
DoEvents
Next i
MsgBox "処理完了" & vbCrLf & "成功: " & successCount & vbCrLf & "失敗: " & failCount
GoTo CleanExit
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
' エラー時も可能な限りクローズを試みる
If Not acadDoc Is Nothing Then acadDoc.Close False
Set acadDoc = Nothing
CleanExit:
' 3. 全てのリソースを解放
Set acadDoc = Nothing
Set acadApp = Nothing
End Sub
''' <summary>
''' 図面内の特定のブロック属性を更新する
''' </summary>
Private Function UpdateTitleBlock(ByRef doc As AutoCAD.Document, ByVal newValue As String) As Boolean
On Error GoTo BlockError
Dim ent As AutoCAD.Entity
Dim blockRef As AutoCAD.BlockReference
Dim attr As AutoCAD.AttributeReference
Dim found As Boolean: found = False
' ModelSpaceまたはPaperSpaceを走査
' 実務ではタイトルブロックは通常 PaperSpace に存在する
Dim layout As AutoCAD.Layout
For Each layout In doc.Layouts
For Each ent In layout.Block
If TypeOf ent Is AutoCAD.BlockReference Then
Set blockRef = ent
' ブロック名で判定 (例: "TITLE_BLOCK")
If blockRef.Name = "TITLE_BLOCK" Then
' 属性の走査
For Each attr In blockRef.GetAttributes
' 特定のタグ名を対象とする
If attr.TagString = "PROJECT_NAME" Then
attr.TextString = newValue
found = True
End If
Next attr
End If
End If
If found Then Exit For
Next ent
If found Then Exit For
Next layout
UpdateTitleBlock = found
Exit Function
BlockError:
UpdateTitleBlock = False
End Function4. 伝説のアーキテクトによる「極限の知見」
このコードを実務に投入する際、さらに一段上のレベルへ引き上げるためのアドバイスを授けよう。
4.1. `DoEvents` の戦略的運用
ループ内で `DoEvents` を呼び出すことは、Windowsのメッセージキューを処理し、UIのフリーズを防ぐために不可欠だ。しかし、過剰な呼び出しはパフォーマンスを著しく低下させる。10ファイルごとに1回呼び出すといった、「スループットとレスポンスのトレードオフ」を考慮した設計を行え。
4.2. `SaveAs` におけるバージョンの罠
AutoCADのバージョン互換性は、単なる拡張子の問題ではない。`acSaveAsType` に渡すべき定数は、使用しているAutoCADのバージョンによって異なる場合がある。レガシーな環境（AutoCAD 2010など）を保守する場合、最新の定数を使用するとランタイムエラーを誘発する。必ず、対象環境の `AutoCAD Type Library` を徹底的に調査せよ。
4.3. ロギングの重要性
`MsgBox` でユーザーに通知するのは、インタラクティブなツールの場合のみだ。バッチ処理においては、「何が、いつ、どのファイルで、どのようなエラーで失敗したか」を、テキストファイルまたはデータベースに永続化する仕組みを組み込め。エラーログこそが、深夜に発生したバッチ失敗の謎を解く唯一の手がかりとなる。
4.4. メモリの「掃除」
もしこのスクリプトを、さらに巨大なシステムの一部として組み込むなら、`Set acadApp = Nothing` の後に、`Shell` 関数等を用いて、もし `acad.exe` が残存していたら強制終了させる、あるいはプロセスが完全に消滅したことを確認するロジックを追加することも検討すべきだ。
結語
自動化とは、単に「人間がやる作業を機械に押し付けること」ではない。「不確実なプロセスを、決定論的なシステムへと昇華させること」である。
オブジェクトのライフサイクルを理解し、OSの振る舞いを予見し、エラーを前提とした設計を行う。これこそが、単なるコーダーと、真のエンジニアを分かつ境界線である。
