AutoCAD VBAを掌握する：テンプレートからの新規図面生成と「メモリの深淵」
AutoCADの自動化において、最も頻繁に行われる操作の一つが「図面の新規作成」だ。しかし、多くの開発者が犯す過ちがある。それは、単に `Documents.Add` を呼び出せば解決するという「甘い幻想」だ。
真のエンジニアにとって、ファイルオープンは単なるメソッド呼び出しではない。それは、メモリ空間の確保、オブジェクトのライフサイクル管理、そしてOSレベルのファイルハンドル制御を伴う「システムリソースとの対話」である。
今回は、テンプレート（DWT）を用いた堅牢かつパフォーマンスを極限まで高めた新規図面生成の手法を伝授する。
—
1. テンプレートによる初期化の真髄
`Documents.Add` に引数を渡さず実行すると、AutoCADのデフォルト設定（QNEW設定）に依存する。これは開発者が意図する「設計環境」を担保できない。テンプレートパスを明示的に指定し、環境を固定することが品質管理の第一歩だ。
実装コード：堅牢な図面生成モジュール
Option Explicit
‘ 伝説のアーキテクトによる、エラーハンドリングを完備した図面生成ルーチン
Public Sub CreateDrawingFromTemplate(ByVal templatePath As String)
Dim doc As AcadDocument
‘ 1. パスの検証（システム管理者の必須作法）
If Dir(templatePath) = “” Then
Err.Raise vbObjectError + 1000, “CreateDrawingFromTemplate”, “テンプレートファイルが存在しません: ” & templatePath
End If
On Error GoTo ErrorHandler
‘ 2. メモリ最適化：Documentオブジェクトの生成
‘ Documentsコレクションは、Addの瞬間に新しいdwgをメモリ上に展開する
Set doc = Application.Documents.Add(templatePath)
‘ 3. 図面がアクティブになるのを待つ（非同期処理の考慮）
‘ 大規模なテンプレートの場合、一瞬のラグがあるため確実な参照を保持する
doc.Activate
Debug.Print “新規図面生成完了: ” & doc.Name
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
‘ オブジェクトの明示的解放はVBAの基本だが、DocumentはAutoCAD管理下にあるため
‘ Set doc = Nothing で参照を切るだけで十分である。
Set doc = Nothing
End Sub
—
2. メモリ最適化とオブジェクトライフサイクル
VBA初心者は「コードが動けば良い」と考えがちだが、大規模なバッチ処理を行う際、この甘さは致命的なメモリリークへと直結する。
- 参照の明示的解放: `Set obj = Nothing` を軽視してはならない。特にループ処理内でドキュメントを連続生成・保存・クローズする場合、この一行がないだけで、AutoCADのGDIリソースが徐々に枯渇し、数時間後に必ずクラッシュする。
- イベントの無効化: テンプレート読み込み時に発生する `BeginDocOpen` や `EndDocOpen` などのイベントが余計な処理を走らせていないか確認せよ。大規模環境では、これらを `Application.EnableEvents = False` で一時的に抑制する設計が求められる。
—
3. レガシー環境とシステム間連携の知見
AutoCAD VBAは、単体で動くものではない。ERPやPDMシステムとの連携が前提となる現場も多いだろう。ここで壁となるのが「Windows APIによるファイルアクセス」だ。
ファイルロックの回避
ネットワークドライブ上のDWTを利用する場合、他のプロセスがファイルをロックしている可能性がある。以下のWindows APIを駆使して、ファイルアクセスの可否を事前に判定する設計を推奨する。
‘ API宣言（モジュールの先頭に記述）
If VBA7 Then
Private Declare PtrSafe Function GetFileAttributes Lib “kernel32” Alias “GetFileAttributesA” (ByVal lpFileName As String) As Long
Else
Private Declare Function GetFileAttributes Lib “kernel32” Alias “GetFileAttributesA” (ByVal lpFileName As String) As Long
End If
‘ ネットワーク上のテンプレートがアクセス可能か判断するアーキテクトの知見
Public Function IsTemplateAccessible(ByVal path As String) As Boolean
If GetFileAttributes(path) = -1 Then
IsTemplateAccessible = False
Else
IsTemplateAccessible = True
End If
End Function
—
4. 最後に：エンジニアへの提言
技術とは「動くものを作る」ことではなく、「壊れないものを作る」ことである。
テンプレートからの新規生成は、AutoCADにおける「環境の定義」そのものだ。レイヤーの設定、線種、尺度、そして画層のステータス。これらをDWTに集約し、VBAは単なる「運搬役」に徹する。この疎結合なアーキテクチャこそが、10年後も修正可能なシステムを構築する鍵だ。
VBAが時代遅れだという声もある。しかし、AutoCADのオブジェクトモデルを深く理解し、メモリとリソースを制御する技術は、どの言語へ移っても通用する「普遍的なエンジニアリング能力」である。
次回の記事では、`Database` オブジェクトを直接操作し、ファイルを「開かずに」テンプレートの属性を注入する、より高位なテクニックについて解説しよう。
—
執筆：AutoCADチーフアーキテクト
