【テクニカル・上級編】【実務中級者向け】図面を開く前にファイル更新日時とサイズをチェック：FSO連携による効率化 – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.10.19

AutoCAD APIの深淵：重厚な図面処理をFSOで「事前選別」するエンジニアリングの美学

AutoCADのバッチ処理において、最も忌むべきは「無意味なOpenメソッドの呼び出し」である。

君たちが何百、何千という図面を処理する際、何も考えずに `Documents.Open` を叩いていないか？ AutoCADのインスタンスを立ち上げ、巨大なデータベースをメモリに展開し、最終的に「修正の必要なし」と判定して閉じる。この往復時間は、大規模システムにおいては致命的なボトルネックであり、リソースの無駄遣い以外の何物でもない。

今回は、FileSystemObject (FSO) を駆使し、図面を開くという「高コストな儀式」を回避する、実務直結のアーキテクチャを伝授する。

—

1. なぜFSOか：APIのレイヤーを理解する

AutoCADの `AcadDocument` オブジェクトを操作するのは、外科手術のようなものだ。極めて精密だが、準備と後片付けに多大なエネルギーを要する。

一方で、Windows OSのファイルシステム層で情報を取得するFSOは、極めて軽量だ。図面を開く前に「更新日時」と「ファイルサイズ」を確認するだけで、処理すべきファイルか否かを9割方絞り込める。これは、OSのメタデータキャッシュを利用する戦略であり、AutoCADのエンジンを汚さない「クリーンな事前選別」である。

—

2. 極限の最適化：FSOによる事前選別実装

以下は、バッチ処理のフロントエンドとして機能する堅牢な関数群である。メモリリークを許さぬよう、オブジェクトの明示的解放を徹底している。

Option Explicit

‘ 事前チェック用定数：前回の処理ログと照合するための閾値
Private Const TARGET_FILE_EXT As String = “dwg”

”’

”’ ファイルが処理対象として適格か、メタデータのみで判定する
”’

Public Function IsProcessRequired(ByVal filePath As String, ByVal lastProcessedDate As Date) As Boolean
Dim fso As Object
Dim fileObj As Object

‘ FSOのインスタンス生成
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ ファイル存在チェック（例外処理を最小限にするための防衛的プログラミング）
If Not fso.FileExists(filePath) Then
IsProcessRequired = False
GoTo Cleanup
End If

Set fileObj = fso.GetFile(filePath)

‘ 更新日時が記録より新しい場合のみ処理対象とする
‘ ただし、ファイルサイズが0の壊れたファイルは除外する
If fileObj.DateLastModified > lastProcessedDate And fileObj.Size > 0 Then
IsProcessRequired = True
Else
IsProcessRequired = False
End If

Cleanup:
‘ オブジェクトの明示的解放（VBAのメモリ管理の鉄則）
Set fileObj = Nothing
Set fso = Nothing
End Function

—

3. レガシー環境におけるメモリ最適化の極意

VBAは、一見モダンな言語に見えて、実際にはCOMラッパーである。`Documents.Open` を多用するループ処理において、AutoCADのメモリ消費は確実に肥大化する。

明示的解放の徹底: `Set object = Nothing` は単なる儀式ではない。COM参照カウントを正しくデクリメントし、AutoCADのメモリ空間を解放するための必須アクションだ。
例外処理の構造化: `On Error Resume Next` を無闇に使うのは素人の所業。特定のAPIコールに対してのみエラーハンドラを適用し、不測の事態でも `Application.Quit` や `ThisDrawing.Close` が確実に実行されるよう、「Finally」のような構造を自作せよ。

—

4. システム間連携への視座：バージョン互換制御

社内システムや外部ツールとの連携において、図面バージョンは常に火種となる。FSOで取得したファイル情報に加えて、バイナリヘッダの最初の6バイト（AC1027, AC1032等）を読み解くことで、AutoCADを起動する前に図面バージョンを判別することも可能だ。

もし、貴殿の環境で「バージョン不一致によるダイアログボックスのポップアップ」がバッチを停止させているのであれば、それはアーキテクチャの敗北である。

真のシニアエンジニアは、「ダイアログを表示させない環境」を構築する。
`Application.DisplayAlerts` を適切に制御し、FSOで得たファイル情報に基づいて事前にマイグレーションが必要なファイルだけを抽出する。これができれば、深夜のバッチ処理で朝起きたらエラー画面で止まっていた、という悲劇は二度と起こらない。

—

結び：エンジニアリングの矜持

ツールを使いこなすのではない。OS、AutoCAD、そしてVBAという言語の挙動を深く理解し、その隙間を縫うようにして最適な処理フローを設計する。

今回のFSOによる判定は、数ある最適化手法の一端に過ぎない。しかし、この「無駄を削ぎ落とす」という姿勢こそが、大規模開発を成功させる唯一の道である。コードは語る。君がいかにしてマシンのリソースを尊重し、いかにして無駄な時間を排除したかを。

さあ、次のバッチ処理では、コードの冒頭にこの「選別ロジック」を組み込んでほしい。その瞬間から、貴殿のシステムは一回り上のステージへと到達するはずだ。