AutoCAD DXFエクスポートの深淵：レガシーとモダンを繋ぐ「制御の極意」
AutoCADのDXFエクスポート。多くのエンジニアが「単なるファイル変換」と軽視するこの工程に、我々のようなシステムアーキテクトは「情報の選別」と「データの純化」という高い要求を課す。
外部システム（特にBIMや独自解析エンジン）へデータを流し込む際、デフォルトの`SaveAs`メソッドでは力不足だ。レイヤーの不必要なフィルタリング、線種のエンコード問題、色のインデックスによる破損……これらをVBAでいかに掌握し、メモリを汚さずに処理するか。
今日は、その最前線の知見を共有する。
—
1. DXF制御の設計思想：なぜ「SaveAs」ではいけないのか
AutoCADの`Document.SaveAs`メソッドは、あくまで「現在の図面状態をダンプする」ためのものだ。しかし、業務現場で求められるのは「特定のレイヤーのみを抽出したい」「特定の規格に合わせた線種変換を行いたい」という加工プロセスである。
DXFへのエクスポートにおいて最も重要なのは、「描画オブジェクトのメモリ・ライフサイクルを厳密に管理すること」にある。不要な一時オブジェクトの残留は、AutoCADのCOMインターフェースを肥大化させ、最終的に致命的なメモリリークを引き起こす。
2. 実装の要諦：DXFエクスポート自動化コード
以下のコードは、単なる保存ではなく、エクスポート前の「クリーンアップ」を意識した実装だ。
‘ 伝説的なアーキテクトによるDXF制御用モジュール
Public Sub ExportFilteredDXF(ByVal targetPath As String, ByVal layerFilter As String)
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ 1. エラーハンドリングの要塞化
On Error GoTo Cleanup
‘ 2. 処理前のメモリ最適化（不要なキャッシュのクリア）
doc.SendCommand “PURGE” & vbCr & “A” & vbCr & “N” & vbCr
‘ 3. 特定レイヤー以外を一時的にフリーズ/非表示にする制御
‘ DXF変換前に、必要な情報のみをフィルタリングする処理をここに記述
Call FilterLayers(doc, layerFilter)
‘ 4. DXF 2013形式でのエクスポート実行
‘ acDXF ではなく ac2013_dxf を指定し、バージョン互換を固定する
doc.SaveAs targetPath, ac2013_dxf
Exit Sub
Cleanup:
‘ 5. オブジェクトの明示的解放（メモリ管理の鉄則）
‘ VBAのガベージコレクションを待つな、即座にメモリを返せ
Set doc = Nothing
MsgBox “DXFエクスポート完了またはエラー発生”, vbInformation
End Sub
Private Sub FilterLayers(doc As AcadDocument, filterName As String)
Dim lay As AcadLayer
For Each lay In doc.Layers
‘ レイヤー名の正規表現判定などで制御を行う
If Not lay.Name Like filterName Then
lay.LayerOn = False
End If
Next lay
End Sub
3. シニアエンジニアが意識すべき「隠れた地雷」
Windows APIによる「保存ダイアログ」の制圧
VBAの`SaveAs`は、設定によっては警告ダイアログを表示することがある。これをプログラムで完全に黙らせるには、`Application.FileDialog`を使用するか、あるいはWindows APIの`FindWindow` / `SendMessage`を用いて、背後に潜むモーダルウィンドウを強制的に閉じる制御が必要になる場合がある。
バージョン互換の罠
DXFはテキスト形式であるため、バージョン（`ac2000_dxf`, `ac2013_dxf`等）によって、色の扱い（TrueColorかIndexColorか）や、レイヤーの定義順序が微妙に異なる。外部システムがどのエンコーディングを期待しているかを解析し、変換時に「色をIndex 7（白/黒）に統一する」といった前処理を挟むのが、プロの流儀だ。
大規模DWGにおけるメモリリークの対策
数百MBを超える図面を扱う場合、`ForEach`ループでコレクションを回しすぎると、VBAのスタック領域が圧迫される。ループ内では必ず`DoEvents`を挟み、CPUの占有時間をコントロールしつつ、COMオブジェクトの参照が残らないよう、各ループの終端で`Set obj = Nothing`を徹底してほしい。
—
4. 最後に：自動化の真髄
「自動化」とは、単に手作業を置き換えることではない。「人間に依存しないデータ品質の担保」こそが、我々エンジニアが目指すべきゴールだ。
DXFエクスポートの設定を自動化することで、誰が実行しても同じ品質のデータが吐き出される。その一貫性こそが、下流のシステム、ひいては組織全体の生産性を左右する。
諸君、コードを汚すな。オブジェクトを管理せよ。そして、システムが常に健全なメモリ状態で呼吸しているか、常に監視し続けろ。それが、伝説のエンジニアの流儀である。
