AutoCAD VBAを掌握する極限の知見
【実務中級】FSOとAcadApplicationの連携：特定フォルダ内の全DWGファイルに対して「名前削除(Purge)」と「監査(Audit)」を一括実行
開発プロジェクトのリーダーである私から、現場のエンジニア諸君に問いたい。
「今期も、数百枚ある図面を1枚ずつ手作業で開き、`-PURGE`を叩き、`AUDIT`をかけて上書き保存しているのか？」
もし、その手作業にエンジニアとしてのやりがいを感じていないなら、今すぐそのマウスを置きなさい。我々の仕事は、機械が秒速で終わらせるべき反復作業を、人間の尊いリソースを使って行うことではない。
今回は、FileSystemObject (FSO) と AcadApplication を完璧に調停させ、指定フォルダ内の全DWG図面を背後（バックグラウンド）で無慈悲に、かつ安全にクリーンアップするプロダクションコードを授ける。
中途半端なネットの断片コードで、メモリリークや「図面を開いたまま沈黙するAutoCAD」に泣きたくない者は、この設計思想を骨の髄まで叩き込むことだ。
—
なぜ、この処理で凡庸なコードは破綻するのか？
実務で大量のDWGファイルを一括処理する際、素人が書いたスクリプトは確実に以下の罠にハマる。
1. 画面描画（UI）のオーバーヘッドを放置している
図面を開くたびにグラフィックスが表示され、視覚的なチラつきが発生するだけでなく、AutoCADの描画エンジンがリソースを浪費して処理速度が桁違いに低下する。
2. エラーハンドリングの欠如によりプロセスが孤立する
破損した（Corrupt）図面に当たった瞬間、VBAがダイアログを出して停止し、バッチ処理全体が夜通しストップする。
3. ドキュメントのライフサイクル管理の崩壊
`Documents.Open` で開いた図面の参照を適切に閉じず、メモリ上にオープンドキュメントのゾンビ軍団を築き上げ、最終的にAutoCADごとクラッシュする。
これらを完全に克服するのが、今回提示する「堅牢なバッチ処理アーキテクチャ」である。
—
堅牢な設計の要諦
- Visible = False の罠を回避する
AutoCAD自体を完全に非表示にすると、一部サードパーティ製アドオンや特定のダイアログが絡んだ際にデッドロックを引き起こす。実務では「画面更新の凍結（`AcadApplication.Visible = True` だがウィンドウ操作をしない）」か、安全なドキュメント制御を行うのが定石だ。
- SendCommand の限界を知り、API的にアプローチする
`PURGE` はコマンドラインから叩くよりも、複数回の反復（ネストされたブロック定義の完全削除など）を確実に行うため、VBAのネイティブなオブジェクト操作、あるいは確実にコマンドを流し込む制御が必要となる。
- FSOによる堅牢なパス走査
レガシーな `Dir関数` は、多重ループや再帰処理において予期せぬバグを生む。フォルダ内のイテレーションは必ず `Scripting.FileSystemObject` を使うこと。
—
プロダクションコード：一括Purge & Auditツール
以下のコードを、ExcelのVBAモジュール、またはAutoCADのVBAプロジェクトに貼り付けよ。
今回は、実務で最も堅牢とされる「ExcelからAutoCADをリモート制御して一括バッチ処理を行う形式」で記述する。これにより、処理ログをExcelシート側に美しく出力することが可能になる。
Option Explicit
‘ =================================================================================
‘
‘ 業務自動化アーキテクチャ: DWG一括クリーンアップ・バッチプロセッサ
‘ 対象: 指定フォルダ内の全DWGファイルに対して Purge (全削除) と Audit (修復) を実行
‘
‘ =================================================================================
Public Sub BatchCleanDrawings()
‘ — 1. 定数・パスの設定 (環境に合わせて変更すること) —
Const TARGET_FOLDER As String = “C:\Works\TargetDrawings\”
Dim fso As Object
Dim targetFolderObj As Object
Dim fileItem As Object
‘ AutoCAD オブジェクト群
MSApp.SetAutoCADPreferences ‘ プレースホルダー（必要に応じた初期化）
Dim acadApp As Object
Dim acadDoc As Object
‘ 実行メトリクス
Dim successCount As Long
Dim errorCount As Long
Dim startTime As Double
startTime = Timer
‘ — 2. FSOの初期化と存在確認 —
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(TARGET_FOLDER) Then
MsgBox “指定されたフォルダが存在しません: ” & TARGET_FOLDER, vbCritical, “致命的エラー”
Exit Sub
End If
Set targetFolderObj = fso.GetFolder(TARGET_FOLDER)
If targetFolderObj.Files.Count = 0 Then
MsgBox “対象フォルダにファイルが存在しません。”, vbExclamation, “警告”
Exit Sub
End If
‘ — 3. AutoCAD アプリケーションの取得 / 起動 —
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
If acadApp Is Nothing Then
Set acadApp = CreateObject(“AutoCAD.Application”)
End If
On Error GoTo ErrorHandler
‘ 安定動作のためAutoCADを表示状態にする（非表示にすると一部の処理でハングするため）
acadApp.Visible = True
‘ 図面の自動ロード・アラート等を抑制（サイレントモード）
acadApp.SystemVariables.SetVal “FILEDIA”, 0
acadApp.SystemVariables.SetVal “CMDDIA”, 0
successCount = 0
errorCount = 0
‘ — 4. メインループ: フォルダ内の全DWGを走査 —
For Each fileItem In targetFolderObj.Files
‘ 拡張子が .dwg のファイルのみを対象とする
If LCase(fso.GetExtensionName(fileItem.Name)) = “dwg” Then
Application.StatusBar = “処理中: ” & fileItem.Name
On Error GoTo FileError
‘ 図面を開く (ReadOnly = False)
Set acadDoc = acadApp.Documents.Open(fileItem.Path, False)
‘ — 5. クリーンアップ処理の実行 —
‘ A. 名前削除 (Purge)
‘ ネストされたブロックやゼロ長ジオメトリを確実に消すため、3回ループさせるのがプロの知見
Dim i As Long
For i = 1 to 3
acadDoc.PurgeAll
Next i
‘ B. 監査と修復 (Audit)
‘ 第1引数に True を指定することで、検出されたエラーを自動修復する
acadDoc.AuditInfo True
‘ C. 変更を保存して閉じる
acadDoc.Save
acadDoc.Close False
Set acadDoc = Nothing
successCount = successCount + 1
GoTo NextFile
FileError:
‘ 個別ファイルの破損等でエラーが出た場合のフォールバック
errorCount = errorCount + 1
Debug.Print “【エラー】ファイル処理失敗: ” & fileItem.Name & ” | 理由: ” & Err.Description
‘ 開いたまま死んでいるドキュメントの参照破棄
On Error Resume Next
If Not acadDoc Is Nothing Then
acadDoc.Close False
Set acadDoc = Nothing
End If
On Error GoTo ErrorHandler
End If
NextFile:
Next fileItem
‘ — 6. 終了処理とクリーンアップ —
‘ システム変数を元に戻す
On Error Resume Next
acadApp.SystemVariables.SetVal “FILEDIA”, 1
acadApp.SystemVariables.SetVal “CMDDIA”, 1
Application.StatusBar = False
MsgBox “バッチ処理が完了しました。” & vbCrLf & _
“成功: ” & successCount & ” 件” & vbCrLf & _
“失敗: ” & errorCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬシステムエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
If Not acadDoc Is Nothing Then
acadDoc.Close False
End If
Application.StatusBar = False
End Sub
—
コードの深層解説：なぜこの実装なのか？
1. Purgeの「3回ループ」という絶対的正義
AutoCADの `PurgeAll` メソッドは、1回実行しただけでは「親ブロックの中にネストされていた不要なブロック定義や画層」を完全には削除しきれない。実務上、完全にゴミのないクリーンな状態にまで追い込むには、最低3回の反復が必須である。この一手間を惜しむから「パージしたのにファイルサイズが減らない」というクレームを生むのだ。
2. `FILEDIA` と `CMDDIA` の厳格な制御
バッチ処理中に予期せぬダイアログ（「ファイルを上書きしますか？」や「参照が見つかりません」等）が出現した瞬間、スクリプトは永遠の眠りにつく。`FILEDIA = 0` とすることにより、全ての対話型ファイルダイアログを強制的にスクリプトモード（コマンドライン入力）に落とし込み、スクリプトの停止を防いでいる。
3. 孤立化を防ぐエラーハンドリング（トランザクション的思考）
万が一、図面が物理的に破損していて `Documents.Open` または `AuditInfo` で例外が発生した場合でも、`FileError` ラベルへ安全にジャンプし、開いていた `acadDoc` オブジェクトを確実に破棄（`Close False`）してから次のファイルへ進む設計にしている。これにより、1枚の壊れた図面のせいで全数百枚の処理が中断されるリスクを完全に排除している。
—
チーフアーキテクトからの提言
このスクリプトを手に入れた君たちは、もう無駄な残業をする必要はない。
退社前にこのVBAを走らせておけば、翌朝には無駄な肥大化から解放された、美しく軽量化された図面群が君を待っているはずだ。
業務の自動化とは、単なる「手間の削減」ではない。「人間のミスが入り込む余地をシステム的に根絶する」というエンジニアリングの誇りそのものだ。
現場の標準ツールとして、このコードを君たちのチームに導入したまえ。健闘を祈る。
