AutoCAD VBAの深淵へようこそ：DWLファイルで守る「図面の安全」
こんにちは。AutoCAD VBAの世界へ踏み出そうとしている皆さん、素晴らしい一歩ですね。
「マクロの記録」ボタンを押して、自動でコードが生成されるのを見て、「お、意外と簡単じゃないか」と感じたかもしれません。しかし、本当の自動化エンジニアへの道は、そこから始まります。
自動化の真の目的は、単に作業を速くすることではありません。「人間が起こしうるミスを、システム側で未然に防ぐこと」です。
今日は、実務で必ずと言っていいほど直面する「図面の二重開き（上書き事故）の防止」というテーマについて、プロの視点から解説していきましょう。ここをクリアすれば、あなたは「単なるマクロ利用者」から「設計プロセスを設計するエンジニア」へと進化できるはずですよ。
1. なぜ「二重開き」は危険なのか？
想像してみてください。あなたが一生懸命書き上げた図面を、同僚が別のPCから開き、そのまま上書き保存してしまったら……。あなたの変更は、無慈悲に消え去ります。
AutoCADには、ファイルが誰かに開かれていることを示す「ロックファイル」という仕組みがあります。これを知ることで、私たちはプログラムから「今、この図面は他の誰かが使っていますよ！」と警告を出すことができるのです。
DWL / DWL2 とは何か？
AutoCADで `.dwg` ファイルを開くと、同じフォルダ内に、拡張子が `.dwl` や `.dwl2` という小さなファイルが自動的に生成されます。
- DWLファイル: 古い形式や簡易的なロック情報。
- DWL2ファイル: より詳細な情報を持つ、現代のAutoCADにおける主要なロックファイル。
これらは、図面が閉じられると自動的に消滅します。つまり、「もし `.dwl` や `.dwl2` が存在しているなら、その図面は現在誰かが開いている」という、確実な証拠になるわけです。
2. 武器を手に入れよう：`Dir` 関数の使い方
この「証拠」を見つけ出すために、VBAの非常にシンプルで強力な関数、`Dir` 関数を使います。
`Dir` 関数は、指定したパスにファイルが存在するかどうかをチェックする「センサー」のようなものです。
' イメージ図
If Dir("C:\Project\Drawing1.dwl") <> "" Then
' ファイルが存在する場合の処理
MsgBox "ロックファイルが見つかりました！"
End If- ファイルが存在すれば、そのファイル名を返します。
- ファイルが存在しなければ、空の文字列 (`””`) を返します。
この「空かどうか」を判定するだけで、ファイルが存在するかどうかを瞬時に判断できる。非常に軽量で、パフォーマンスへの影響も少ない、エンジニアにとっての「基本のキ」です。
3. 実装してみよう：安全な図面オープン・スクリプト
それでは、実際に使えるコードを書いていきましょう。
単に「開く」のではなく、「ロックファイルをチェックし、もしあれば警告して中止する」という、ガードレールを備えた設計にします。
Option Explicit
''' <summary>
''' 指定されたDWGファイルがロックされているか確認し、
''' ロックされていなければ図面を開くメインルーチン
''' </summary>
Sub SafeOpenDrawing()
Dim dwgPath As String
Dim lockPath As String
' --- 設定エリア ---
' 本来はダイアログなどで選択させますが、今回は練習用にパスを直接指定します
dwgPath = "C:\Users\YourName\Documents\SampleDrawing.dwg"
' ------------------
' 1. ファイルの存在チェック（そもそもDWGファイルがあるか？）
If Dir(dwgPath) = "" Then
MsgBox "指定された図面ファイルが見つかりません。" & vbCrLf & dwgPath, vbExclamation
Exit Sub
End If
' 2. ロックファイル（.dwl / .dwl2）のパスを生成
' Replace関数を使って、拡張子を .dwl に書き換えます
lockPath = Replace(dwgPath, ".dwg", ".dwl")
' 3. ロックファイルの存在チェック
' Dir関数が空文字 "" を返さない場合は、ファイルが存在している（＝誰かが開いている）
If Dir(lockPath) <> "" Or Dir(Replace(dwgPath, ".dwg", ".dwl2")) <> "" Then
' ここがエンジニアの腕の見せ所！
' ユーザーに「なぜ開けないのか」を明確に伝えます
MsgBox "【警告】この図面は現在、他のユーザーまたはプロセスによって使用中です。" & vbCrLf & _
"ロックファイルを確認しました。開くのを中止します。", vbCritical, "図面使用中"
Exit Sub ' プログラムを安全に中断
End If
' 4. ロックされていなければ、図面を開く
On Error GoTo ErrorHandler
ThisDrawing.Application.Documents.Open dwgPath
MsgBox "図面を正常に開きました。", vbInformation
Exit Sub
ErrorHandler:
MsgBox "図面を開く際にエラーが発生しました。" & vbCrLf & Err.Description, vbCritical
End Subコードの解説：ここがポイント！
1. `Replace(dwgPath, “.dwg”, “.dwl”)`:
文字列操作の基本です。図面ファイルのパスから拡張子を書き換えて、ロックファイルの「住所」を作り出しています。
2. `Or` による条件結合:
`.dwl` か `.dwl2` のどちらか一方でも存在すればロックされているとみなす、論理的な判断を行っています。
3. `Exit Sub`:
エラーが見つかった際に、それ以降の「図面を開く」処理を実行させないための、非常に重要な命令です。
4. プロの視点：陥りやすい罠と「次の一歩」
さて、ここまで読んだあなたはもう立派な初級エンジニアです。しかし、伝説のアーキテクトを目指すなら、以下の「落とし穴」についても知っておいてください。
罠1：クラッシュによる「幽霊ロックファイル」
AutoCADが異常終了（強制終了）した場合、本来消えるはずの `.dwl` ファイルがフォルダに残ってしまうことがあります。これを「幽霊ロックファイル」と呼びます。
この場合、プログラムは「誰かが使っている」と判断してしまいます。実務では、こうした「残骸」をどう扱うか（あるいはユーザーに手動で消してもらうよう促すか）という設計判断が必要になります。
罠2：ネットワークドライブの遅延
サーバー上の図面を扱う場合、ネットワークの遅延により `Dir` 関数のレスポンスが一時的に不安定になることがあります。より堅牢なシステムを作るなら、リトライ処理（数回再試行する仕組み）を検討することもあります。
まとめ：小さな制御が、大きな信頼を生む
「図面を開くだけなら、普通に `Documents.Open` すればいいじゃないか」
そう思うかもしれません。しかし、この数行の「チェック処理」を加えるだけで、あなたの作ったツールは「壊れにくく、使いやすい、信頼できる道具」へと昇華します。
AutoCAD VBAの世界では、「正しく動くこと」と同じくらい「正しく止まること」が重要なのです。
ここをクリアできれば、次は「複数の図面を順番に開いて、一括で属性を書き換える」といった、より高度な自動化へと進むことができます。
一歩ずつ、着実に。あなたのエンジニアとしての旅を応援しています。
次はもっと深い、オブジェクトモデルの設計についてお話ししましょう。
*執筆：AutoCAD VBA チーフアーキテクト*
