AutoCAD VBAの深淵：Documents.Addによるテンプレート制御の極意
AutoCADの自動化において、最も初歩的でありながら、最も「事故」が多発するポイントが図面の初期化だ。`Documents.Add` メソッドを単に呼び出すだけで満足しているならば、君のシステムはまだ素人レベルと言わざるを得ない。
テンプレート（DWT）の指定漏れ、不要なオブジェクトのメモリ残留、そして環境依存のパス問題。これらを完璧に掌握し、ゼロから堅牢な作図環境を構築する。これが本稿のテーマだ。
—
1. Documents.Add の本質と「空白」の罠
`Documents.Add` に引数を渡さない、あるいは空の文字列を渡すと、AutoCADはデフォルトのテンプレート（`acad.dwt` 等）を使用して新規図面を開く。しかし、実務においてこの「デフォルト依存」は悪手だ。
大規模な社内CAD運用において、レイヤー、線種、寸法スタイルが統一されていない図面は、後に巨大な技術負債となる。テンプレートを明示的に指定することは、品質管理の第一歩である。
2. テンプレート指定とメモリ管理の実践コード
単に「開く」だけでなく、COMオブジェクトのライフサイクルを制御し、例外発生時にAutoCADをゾンビ化させないためのコードを示す。
”’
”’
Public Sub CreateDrawingFromTemplate(ByVal templatePath As String)
Dim doc As AcadDocument
‘ テンプレートパスのバリデーション
If Dir(templatePath) = “” Then
Err.Raise vbObjectError + 1001, “AutoCADInit”, “テンプレートファイルが見つかりません: ” & templatePath
End If
On Error GoTo ErrorHandler
‘ Documents.Addによる明示的な初期化
‘ 第1引数にテンプレートフルパスを渡す
Set doc = ThisDrawing.Application.Documents.Add(templatePath)
‘ 正常に開かれたことを確認し、アクティブ化
doc.Activate
‘ 必要な初期化処理（例：システム変数の強制設定）
doc.SetVariable “FILEDIA”, 0 ‘ ダイアログ抑制
Exit Sub
ErrorHandler:
‘ エラー時はオブジェクトを解放し、リソースをクリーンに保つ
If Not doc Is Nothing Then
doc.Close False
Set doc = Nothing
End If
MsgBox “図面生成に失敗しました: ” & Err.Description, vbCritical
End Sub
3. チーフアーキテクトの視点：なぜ「パス」で躓くのか
レガシーなAutoCAD環境において、DWTの格納場所がローカルとサーバーで混在しているケースが多々ある。
- APIの制約: `Documents.Add` は、パスにスペースや特殊文字が含まれる場合、あるいはUNCパス（`\\server\share…`）で不安定な挙動を示すことがある。
- 対策: `Scripting.FileSystemObject` を活用し、パスを標準化（`GetAbsolutePathName`）した上で渡すのが鉄則だ。また、レジストリから `TemplatePath` を取得して結合するロジックを組み込むことで、環境変化に強いコードになる。
4. パフォーマンスを極める：Windows APIによる制御
大量の図面を一括生成する場合、`DoEvents` を挟むだけでは処理が遅延する。特に、AutoCADのCOMインターフェースはシングルスレッドの制約が強いため、非同期処理を導入する際は注意が必要だ。
もし大規模なバッチ処理を行うのであれば、VBA単体ではなく、VB.NET（ObjectARX .NET API）への移行を強く推奨する。COM経由の `Documents.Add` は、オートメーションのオーバーヘッドが大きく、図面数が100枚を超えたあたりでメモリリークのリスクが指数関数的に増大するからだ。
5. 結論：システムアーキテクトの矜持
AutoCAD VBAは、極めて強力だが、同時に「使い捨て」のコードが蔓延しやすい環境だ。
1. テンプレートの絶対パス化: 常に完全なパスを指定する。
2. エラーハンドリング: 失敗時に図面が「ゴースト」として残らないよう、必ず `Close` を検討する。
3. 環境の標準化: ファイルパスをハードコーディングせず、INIファイルや設定テーブルから読み込む設計にする。
これらを守るだけで、君が構築する自動化システムは、他者の書く「動くだけのコード」から、一線を画す「製品レベルのエンジン」へと昇華するはずだ。
技術は嘘をつかない。細部へのこだわりこそが、エンジニアの価値を証明する唯一の方法だ。健闘を祈る。
