【入門編】【上級プロフェッショナル向け】図面オープン時のエラーハンドリング強化：例外処理とリカバリ戦略 – AutoCAD VBA解析バイブル

【上級プロフェッショナル向け】図面オープン時のエラーハンドリング強化：例外処理とリカバリ戦略

AutoCAD VBAの世界へようこそ！ 図面ファイル（DWG/DXF）を扱う上で、避けては通れないのが「エラー」との遭遇です。特に、図面を開く際には、ファイルが破損していたり、アクセス権限がなかったりと、予期せぬ問題が発生しがちですよね。

「あ、またエラーだ…」と処理が中断され、落胆した経験はありませんか？ 今回は、そんな図面オープン時のエラーに、プロフェッショナルとしてどう立ち向かうか、その秘訣を徹底解説します。例外処理とリカバリ戦略をマスターすれば、あなたのVBAコードは格段に強靭になりますよ！

なぜ「エラーハンドリング」が重要なのか？

マクロの記録機能だけでは、どうしても基本的な操作しか自動化できません。しかし、実際の現場では、様々な「イレギュラー」な状況に遭遇します。例えば、

• 破損した図面ファイル: ネットワーク障害や予期せぬシャットダウンで、図面ファイルが壊れてしまうことがあります。
• アクセス権限の問題: 共有フォルダにある図面ファイルに、読み取り権限がない場合に開けません。
• ファイル名の誤り: タイプミスやパスの不備で、指定したファイルが見つからない。
• AutoCADのバージョン互換性: 旧バージョンの図面を新バージョンで開こうとした際の警告やエラー。

これらのエラーが発生したときに、単に「エラーが発生しました」と表示して処理を中断させてしまうのは、ユーザーフレンドリーとは言えません。プロフェッショナルな開発者として、私たちは、エラー発生時にも処理を継続させたり、ユーザーに状況を分かりやすく伝えたりするための戦略を持つ必要があります。

VBAにおけるエラーハンドリングの基本：`On Error`ステートメント

VBAでエラーを捕捉し、適切に対処するための基本は`On Error`ステートメントです。これにはいくつかの種類がありますが、今回は図面オープン時のエラーを効果的に処理するために、特に重要なものを紹介します。

1. `On Error Resume Next`：エラーを「無視」して続行

これは、エラーが発生しても、そのエラーを無視して次の行から処理を続行させる命令です。

Sub OpenDrawing_ResumeNext()
Dim dwgPath As String
dwgPath = “C:\path\to\your\drawing.dwg” ‘ 開きたい図面のパスを指定

‘ エラーを無視して続行
On Error Resume Next

‘ 図面を開く処理
ThisDrawing.Application.Documents.Open dwgPath

‘ エラーが発生したかどうかをチェック
If Err.Number <> 0 Then
‘ エラーが発生した場合の処理
MsgBox “図面を開く際にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “図面オープンエラー”

‘ エラーオブジェクトをクリア
Err.Clear
End If

‘ エラーハンドリングを元に戻す（推奨）
On Error GoTo 0
End Sub

解説:

• `On Error Resume Next`: この行以降でエラーが発生しても、VBAは処理を止めません。
• `Err.Number` と `Err.Description`: エラーが発生した場合、`Err`オブジェクトにエラーに関する情報が格納されます。`Err.Number`はエラーコード、`Err.Description`はエラーメッセージです。
• `If Err.Number <> 0 Then`: エラーが発生したかどうかを判定しています。`0`以外であればエラーが発生したことになります。
• `Err.Clear`: エラー情報をクリアします。これをしないと、次にエラーが発生した際に、前のエラー情報が残ってしまう可能性があります。
• `On Error GoTo 0`: エラーハンドリングを無効に戻します。これ以降でエラーが発生した場合は、通常通り中断されます。これは非常に重要です！ `On Error Resume Next`を使いっぱなしにすると、意図しないところでエラーが無視されてしまい、デバッグが困難になることがあります。

陥りやすいエラー:

• `On Error Resume Next`を使いっぱなしにして、意図しないエラーを見逃してしまう。
• `Err.Clear`を忘れて、エラー情報を引きずってしまう。

2. `On Error GoTo Label`：エラー発生時に指定ラベルへジャンプ

こちらは、エラーが発生した場合に、指定したラベル（コードの特定の場所）へ処理をジャンプさせる方法です。エラー発生時の処理をまとめて記述できるため、コードが整理しやすくなります。

Sub OpenDrawing_GoToLabel()
Dim dwgPath As String
dwgPath = “C:\path\to\your\drawing.dwg” ‘ 開きたい図面のパスを指定

‘ エラー発生時は ErrorHandler ラベルへジャンプ
On Error GoTo ErrorHandler

‘ 図面を開く処理
ThisDrawing.Application.Documents.Open dwgPath

‘ 正常終了時の処理 (任意)
MsgBox “図面を正常に開きました。”, vbInformation, “成功”
GoTo CleanExit ‘ エラーハンドラをスキップして終了

ErrorHandler:
‘ エラー発生時の処理
MsgBox “図面を開く際にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “図面オープンエラー”

‘ エラーオブジェクトをクリア
Err.Clear

CleanExit:
‘ エラーハンドリングを元に戻す
On Error GoTo 0
End Sub

解説:

• `On Error GoTo ErrorHandler`: エラーが発生すると、`ErrorHandler:` というラベルの場所へ処理が移ります。
• `ErrorHandler:`: エラー発生時の処理を記述する場所です。
• `GoTo CleanExit`: 正常に処理が完了した場合、`ErrorHandler` をスキップして `CleanExit` へ進みます。これにより、エラーが発生しなかった場合にエラー処理コードが実行されるのを防ぎます。
• `CleanExit:`: 最終的な終了処理を行います。ここで `On Error GoTo 0` を実行するのが一般的です。

陥りやすいエラー:

• `GoTo`文の多用によるコードの可読性の低下。
• `ErrorHandler`から`CleanExit`へ正しくジャンプさせないと、エラー処理が毎回実行されてしまう。

図面オープン時の具体的な例外状況とリカバリ戦略

さて、基本を理解したところで、いよいよ図面オープン時に発生しうる具体的な例外状況と、それに対するリカバリ戦略を見ていきましょう。

1. 破損した図面ファイルへの対応

破損した図面ファイルを開こうとすると、AutoCADはエラーを返してきます。この場合、残念ながらファイル自体を修復することはVBA単体では困難です。しかし、ユーザーに状況を伝え、代替手段を提示することは可能です。

リカバリ戦略:

• エラー発生を検知し、ユーザーに通知する。
• 可能であれば、AutoCADの「回復 (RECOVER)」コマンドを促すメッセージを表示する。
• 代替の図面パスがあれば、そちらを開く試みを行う。

コード例 ( `On Error GoTo Label` を使用):

Sub OpenDrawingWithRecoveryPrompt(filePath As String)
Dim currentDoc As Document
Dim acadApp As Object

‘ AutoCADアプリケーションオブジェクトを取得
Set acadApp = ThisDrawing.Application

‘ エラー発生時は ErrorHandler へジャンプ
On Error GoTo ErrorHandler

‘ 図面を開く
Set currentDoc = acadApp.Documents.Open(filePath)

MsgBox “‘” & filePath & “‘ を正常に開きました。”, vbInformation, “成功”
GoTo CleanExit

ErrorHandler:
If Err.Number = 32768 Then ‘ AutoCADの特定のエラーコード（破損ファイルなど）
Dim response As Integer
response = MsgBox(“図面ファイル ‘” & filePath & “‘ を開けませんでした。” & vbCrLf & _
“ファイルが破損している可能性があります。” & vbCrLf & vbCrLf & _
“AutoCADの「回復」コマンドをお試しになりますか？” & vbCrLf & _
“(「はい」を選択すると、回復コマンドを実行します。)”, _
vbQuestion + vbYesNo, “ファイル破損の可能性”)

If response = vbYes Then
‘ AutoCADの回復コマンドを実行
acadApp.ZoomExtents ‘ 画面をリフレッシュしてから実行
acadApp.Command “_.RECOVER”, filePath, “” ‘ コマンドラインにファイルパスを入力して実行
MsgBox “回復コマンドを実行しました。ファイルが開けるか確認してください。”, vbInformation, “回復コマンド実行”
Else
MsgBox “図面を開く処理を中止しました。”, vbInformation, “中止”
End If
Else
‘ その他のエラーの場合
MsgBox “図面を開く際に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “図面オープンエラー”
End If

Err.Clear

CleanExit:
On Error GoTo 0
Set currentDoc = Nothing
Set acadApp = Nothing
End Sub

‘ 使用例:
‘ Sub TestOpenDrawingWithRecovery()
‘ Dim testFilePath As String
‘ testFilePath = “C:\path\to\corrupt_drawing.dwg” ‘ 破損した可能性のあるファイルパス
‘ OpenDrawingWithRecoveryPrompt testFilePath
‘ End Sub

ポイント:

• `Err.Number = 32768` は、AutoCADでよく発生する「ファイルが見つからない、または破損している」といったエラーコードの一例です。ただし、このコードは状況によって変わる可能性もあるため、他のエラーコードについても調査し、必要に応じて追加することも検討してください。
• `acadApp.Command “_.RECOVER”, filePath, “”` は、AutoCADのコマンドラインに `RECOVER` と入力し、続けてファイルパスを与えて実行するのと同等の処理です。

2. アクセス権限がないファイルへの対応

ネットワーク上の共有フォルダや、システム保護されたフォルダにあるファイルへのアクセス権限がない場合、ファイルを開くことはできません。

リカバリ戦略:

• エラー発生を検知し、ユーザーに通知する。
• アクセス権限がない旨を具体的に伝え、ユーザーに確認を促す。
• 可能であれば、別のパスにある同一ファイルを開く試みを行う。

コード例 ( `On Error GoTo Label` を使用):

Sub OpenDrawingWithPermissionCheck(filePath As String)
Dim currentDoc As Document
Dim acadApp As Object

Set acadApp = ThisDrawing.Application
On Error GoTo ErrorHandler

Set currentDoc = acadApp.Documents.Open(filePath)

MsgBox “‘” & filePath & “‘ を正常に開きました。”, vbInformation, “成功”
GoTo CleanExit

ErrorHandler:
‘ アクセス権限エラーなどの特定のエラーコードをチェック（例: 75, 53など）
‘ OSや状況によってエラーコードは異なります。
‘ 75: Path/Access error
‘ 53: File not found (権限がない場合も含む)
If Err.Number = 75 Or Err.Number = 53 Then
MsgBox “図面ファイル ‘” & filePath & “‘ を開けませんでした。” & vbCrLf & _
“ファイルへのアクセス権限がないか、ファイルが見つかりません。” & vbCrLf & vbCrLf & _
“ファイルパスとアクセス権限を確認してください。”, vbExclamation, “アクセス権限エラー”
Else
MsgBox “図面を開く際に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “図面オープンエラー”
End If

Err.Clear

CleanExit:
On Error GoTo 0
Set currentDoc = Nothing
Set acadApp = Nothing
End Sub

‘ 使用例:
‘ Sub TestOpenDrawingWithPermissionCheck()
‘ Dim restrictedFilePath As String
‘ restrictedFilePath = “\\Server\Share\restricted_file.dwg” ‘ アクセス権限のないファイルパス
‘ OpenDrawingWithPermissionCheck restrictedFilePath
‘ End Sub

ポイント:

• OSレベルのエラーコードは、`Err.Number` の値が固定ではない場合が多いです。`75` (Path/Access error) や `53` (File not found) は、アクセス権限がない場合にも発生しうるコードの例ですが、実際に遭遇したエラーコードを記録し、それに基づいて処理を分岐させるのが最も確実です。

3. ファイルが見つからない（パスやファイル名の誤り）への対応

これは最も基本的なエラーですが、それでも発生しやすいものです。

リカバリ戦略:

• エラー発生を検知し、ユーザーに通知する。
• 指定されたパスとファイル名が正しいか確認するよう促す。
• 可能であれば、代替のファイルパス（例：ローカルコピー、別のフォルダ）を提示する。

コード例:

（上記の `OpenDrawingWithPermissionCheck` の `Else` 部分で処理されるような、一般的なファイルが見つからないエラーに対応します。）

4. AutoCADのバージョン互換性

新しいバージョンのAutoCADで古いバージョンの図面を開く場合、通常は警告が表示され、問題なく開けます。しかし、非常に古いバージョンや、特定の互換性フラグが設定されている場合は、エラーになる可能性もゼロではありません。

リカバリ戦略:

• エラー発生を検知し、ユーザーに通知する。
• バージョンの違いによる問題の可能性を示唆する。
• 必要であれば、`SaveAs`コマンドで目的のバージョンに変換する処理を検討する。

コード例 ( `On Error Resume Next` を使用し、エラー番号で判別):

Sub OpenOrSaveAsNewerVersion(filePath As String)
Dim dwgPath As String
dwgPath = filePath
Dim acadApp As Object

Set acadApp = ThisDrawing.Application

‘ まずは通常通り開いてみる
On Error Resume Next
Dim doc As Document
Set doc = acadApp.Documents.Open(dwgPath)

If Err.Number <> 0 Then
‘ エラーが発生した場合、バージョン互換性の可能性を考慮
MsgBox “図面 ‘” & dwgPath & “‘ を開く際にエラーが発生しました。” & vbCrLf & _
“ファイルバージョンが互換性がない可能性があります。” & vbCrLf & _
“AutoCADがサポートする最新バージョンで保存し直すことをお勧めします。”, vbInformation, “バージョン互換性エラーの可能性”

‘ ここで、必要であれば SaveAs 処理などを追加
‘ 例: acadApp.Documents.Open dwgPath, True ‘ ReadOnly=True で開いてみる
‘ If Err.Number = 0 Then
‘ ‘ 読み取り専用で開けた場合、SaveAs を促す
‘ MsgBox “この図面は読み取り専用で開かれました。最新バージョンで保存し直してください。”, vbInformation
‘ Else
‘ ‘ それでも開けない場合
‘ MsgBox “ファイルを開けませんでした。AutoCADのバージョンを確認してください。”, vbCritical
‘ End If
‘ End If

Err.Clear ‘ エラーをクリア
Else
MsgBox “‘” & dwgPath & “‘ を正常に開きました。”, vbInformation, “成功”
End If

On Error GoTo 0
Set doc = Nothing
Set acadApp = Nothing
End Sub

ポイント:

• バージョン互換性の問題は、`Open`メソッドの引数で`ReadOnly`を`True`に設定して開いてみることで、問題の切り分けができる場合があります。読み取り専用で開けるなら、ファイル自体は破損しておらず、バージョンの問題である可能性が高まります。

ユーザーへの通知を最適化する

エラーハンドリングの目的は、単に処理を止めないことだけではありません。ユーザーが状況を正確に理解し、適切な次のアクションを取れるように導くことが、プロフェッショナルな開発者の責務です。

• 明確で簡潔なメッセージ: エラー番号だけでなく、何が問題なのか、ユーザーが理解できる言葉で説明しましょう。
• 具体的な次のステップの提示: 「ファイルパスを確認してください」「回復コマンドをお試しください」など、ユーザーが次に何をすべきかを具体的に示します。
• エラーレベルに応じたアイコンの使用: `vbCritical` (赤丸に白十字), `vbExclamation` (黄色の三角に感嘆符), `vbInformation` (青丸にi) などを使い分けることで、エラーの深刻度を視覚的に伝えることができます。
• ログファイルへの記録: 頻繁に発生するエラーや、ユーザーに直接通知しないエラーについては、ログファイルに記録することで、後で原因を分析するのに役立ちます。

補足: VB.NET からの視点

もしあなたがAutoCADのAPIをVB.NETで操作している場合、例外処理はVBAとは少し異なります。VB.NETでは、`Try…Catch…Finally`ブロックを使用します。

.net
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices

Public Class DrawingManager

Public Sub OpenDrawing(filePath As String)
Dim acadApp As AutoCAD.Application
acadApp = DirectCast(Application, AutoCAD.Application)

Try
‘ 図面を開く
Dim doc As Document = acadApp.Documents.Open(filePath)
MessageBox.Show($”‘{filePath}’ を正常に開きました。”, “成功”, MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Autodesk.AutoCAD.Runtime.Exception
‘ AutoCAD固有の例外
If ex.ErrorStatus = ErrorStatus.FileNotFound Then
MessageBox.Show($”図面ファイル ‘{filePath}’ が見つかりません。” & vbCrLf & _
“ファイルパスとファイル名を確認してください。”, “ファイルが見つかりません”, MessageBoxButtons.OK, MessageBoxIcon.Error)
ElseIf ex.ErrorStatus = ErrorStatus.FileAccessDenied Then
MessageBox.Show($”図面ファイル ‘{filePath}’ へのアクセス権限がありません。” & vbCrLf & _
“アクセス権限を確認してください。”, “アクセス権限エラー”, MessageBoxButtons.OK, MessageBoxIcon.Error)
ElseIf ex.ErrorStatus = ErrorStatus.CouldNotOpenFile Then
MessageBox.Show($”図面ファイル ‘{filePath}’ を開けませんでした。” & vbCrLf & _
“ファイルが破損している可能性があります。” & vbCrLf & _
“AutoCADの「回復」コマンドをお試しください。”, “ファイル破損の可能性”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
‘ その他のAutoCAD例外
MessageBox.Show($”図面を開く際にAutoCADエラーが発生しました。” & vbCrLf & _
$”エラーコード: {ex.ErrorStatus}” & vbCrLf & _
$”メッセージ: {ex.Message}”, “AutoCADエラー”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As System.Exception
‘ その他の一般的な例外 (IOエラーなど)
MessageBox.Show($”図面を開く際に予期せぬエラーが発生しました。” & vbCrLf & _
$”メッセージ: {ex.Message}”, “予期せぬエラー”, MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
‘ ここにクリーンアップ処理などを記述
‘ 例: acadApp.Command “_REGEN” ‘ 必要に応じて画面を再描画
End Try
End Sub

End Class

VB.NET では、`ErrorStatus` プロパティを使って AutoCAD 固有のエラーをより詳細に判別できます。また、`Finally` ブロックは、エラーが発生したかどうかに関わらず必ず実行されるため、リソースの解放などに最適です。

まとめ：堅牢なコードへの第一歩

図面オープン時のエラーハンドリングは、AutoCAD VBA開発における「隠れた強さ」の源泉です。今回ご紹介した`On Error`ステートメントや、具体的なエラーへの対応策、そしてユーザーへの丁寧な通知を実践することで、あなたのVBAコードは格段に信頼性が高まります。

最初は少し難しく感じるかもしれませんが、これらのテクニックを一つずつ習得していくことで、より複雑な処理も安心して任せられる、プロフェッショナルな自動化ツールを作成できるようになります。

「ここをクリアすれば、AutoCAD VBAの基本はバッチリですよ！」

さあ、自信を持って、より堅牢なVBA開発の世界へ踏み出しましょう！