図面ライフサイクルの掌握：未保存ドキュメントに対する「強制SaveAs」の設計思想
AutoCADの自動化プロセスにおいて、多くの開発者が最初に直面する「見えない壁」がある。それは、「実体を持たないドキュメント（Drawing1等）に対する操作」だ。
単に `ThisDrawing.Save` を実行すれば済むという考えは、プロトタイプ段階の稚拙な発想に過ぎない。自動化システム、特に大量の図面をバッチ処理したり、ユーザーのワークフローに組み込んだりする設計においては、ドキュメントが「ディスク上のファイル」なのか「メモリ上の揮発的なオブジェクト」なのかを厳密に区別し、その状態遷移を完全に制御しなければならない。
本稿では、新規図面における `Save` メソッドの脆弱性を克服し、堅牢な「名前を付けて保存」制御を実現するための、アーキテクチャレベルの知見を共有する。
1. 脆弱性の正体：FullNameプロパティと未保存状態の判定
AutoCAD VBAにおいて、`ThisDrawing.Save` メソッドは、そのドキュメントが既に物理的なパス（FullName）を保持していることを前提としている。新規作成直後の `Drawing1` は、メモリ上にのみ存在し、ファイルシステムとの紐付けがなされていない。この状態で `Save` を呼び出すことは、存在しないアドレスへの書き込みを試みるに等しく、実行時エラーを誘発する。
プロフェッショナルなコードを書く者は、単にエラーハンドリング（`On Error Resume Next`）で誤魔化したりはしない。「ドキュメントの状態を検知し、条件分岐によって適切なメソッドを選択する」という、決定論的なアプローチを取る。
判定のロジック
ドキュメントが保存済みかどうかを判定する最も確実な指標は、`ThisDrawing.FullName` プロパティが空文字（`””`）であるかどうかだ。
' ドキュメントが物理的なファイルとして存在するかを判定する論理
If ThisDrawing.FullName = "" Then
' 未保存（Drawing1の状態）
Else
' 保存済み（既存ファイルの状態）
End If2. 実装：堅牢な「SaveAs」強制ダイアログ制御
以下に、シニアエンジニアが現場に投入するレベルの、再利用可能な制御モジュールを示す。このコードは、未保存ドキュメントを検知した際、ユーザーに適切な保存先を提示し、キャンセルされた場合の例外処理までを完璧にカバーしている。
Option Explicit
''' <summary>
''' ドキュメントの保存状態を保証する。
''' 未保存の場合は「名前を付けて保存」ダイアログを表示する。
''' </summary>
''' <returns>保存に成功した場合はTrue、ユーザーがキャンセルした場合はFalse</returns>
Public Function EnsureDocumentSaved() As Boolean
Dim savePath As String
Dim targetDoc As AcadDocument
' 現在のアクティブドキュメントへの参照を取得
' オブジェクトへの参照は、スコープを明確にするために明示的に定義する
Set targetDoc = ThisDrawing
On Error GoTo ErrorHandler
' 1. ドキュメントの状態判定
' FullNameが空、あるいは特定のテンポラリパスである場合を未保存とみなす
If targetDoc.FullName = "" Then
Debug.Print "Status: Unsaved document detected. Triggering SaveAs dialog..."
' 2. AutoCADネイティブのSaveAsダイアログを呼び出し
' Windows APIを直接叩くよりも、AutoCADのCOMオブジェクト経由の方が
' オートキャドのドキュメント管理システム（Document Manager）との整合性が高い
savePath = targetDoc.Application.GetSaveFile( _
"図面を保存する場所を選択してください", _
"*.dwg", _
"AutoCAD Drawing (*.dwg)" _
)
' 3. ユーザーによるキャンセル判定
If savePath = "" Then
Debug.Print "Status: User canceled the SaveAs operation."
EnsureDocumentSaved = False
Exit Function
End If
' 4. 保存の実行（SaveAs）
' 新規図面の場合、SaveではなくSaveAsを使用する必要がある
targetDoc.SaveAs savePath
Debug.Print "Status: Document saved successfully as: " & savePath
Else
' 既に保存されているドキュメントの場合
' 変更があるか（IsModified）をチェックし、必要に応じてSaveを実行する設計も検討すべき
If targetDoc.IsModified Then
Debug.Print "Status: Document is modified. Performing standard Save..."
targetDoc.Save
Else
Debug.Print "Status: Document is already up-to-date."
End If
End If
EnsureDocumentSaved = True
GoTo CleanUp
ErrorHandler:
' エラーログの出力（実運用ではログファイルへの書き出しを推奨）
Err.Raise Err.Number, "EnsureDocumentSaved", _
"Error " & Err.Number & ": " & Err.Description & " (Source: EnsureDocumentSaved)"
CleanUp:
' オブジェクトの明示的な解放
' メモリリークを防ぎ、AutoCADプロセスがゾンビ化するのを防ぐための必須工程
Set targetDoc = Nothing
End Function3. アーキテクチャの深淵：メモリ管理とプロセス制御
シニアエンジニアとして、このコードを単なる「動くコード」で終わらせてはならない。大規模な自動化システムの一部として組み込む場合、以下の3点に留意せよ。
I. オブジェクトのライフサイクル管理
VBAはCOM（Component Object Model）の上で動作している。`Set targetDoc = Nothing` を記述することは、単なる作法ではない。特に、ループ処理の中で大量のドキュメントを操作する場合、参照カウントが適切に減少しなければ、AutoCADのメモリ消費量は指数関数的に増大し、最終的には `Access Violation` による強制終了を引き起こす。
II. Windows APIとの境界線
上記のコードでは `Application.GetSaveFile` を採用した。これは、AutoCADのドキュメントコンテキストを維持したままダイアログを表示するためだ。
もし、独自のUI（UserForm）や高度なWindows API（`GetOpenFileName`等）を使用する場合、AutoCADの「現在どの図面がアクティブか」という状態と、ダイアログが指し示すパスの整合性に細心の注意を払え。不整合が生じると、ダイアログで選択したパスとは無関係な場所にファイルが書き込まれる、あるいは書き込み権限エラーでプロセスがハングする原因となる。
III. 冪等性（Idempotency）の確保
自動化スクリプトは、「何度実行しても同じ結果になる」という冪等性が求められる。
`EnsureDocumentSaved` 関数は、呼び出し側が「保存済みであることを期待している」という意図に対し、状態をチェックして「保存済み状態」を作り出す。この設計思想により、呼び出し側のロジックを汚染することなく、安全に後続のファイル操作（ファイルの移動、圧縮、アップロード等）へと移行できる。
結論
「Drawing1」という名の、実体のない亡霊を制御することは、AutoCAD自動化における第一歩である。
`FullName` による状態判定、`SaveAs` による初期化、そして `Set Nothing` によるメモリ解放。これらの一連のプロセスを、単なる「エラー回避」としてではなく、「ドキュメントのライフサイクル管理」として捉え直すこと。それが、レガシーな環境を保守し、次世代のシステムを構築するアーキテクトに求められる規律である。
