AutoCAD VBAの深淵：DXFエクスポートの自動化と「制御不能」な仕様への処方箋
AutoCAD業務を自動化する際、最も「沼」にハマりやすいのがファイル形式の変換だ。特にDXFエクスポートは、単なる`SaveAs`メソッドの呼び出しと思っているなら、今すぐその認識を改めるべきだ。
DXFはAutoCADのネイティブ形式ではない。変換プロセスにおいて、オブジェクトのプロパティやレイヤー構成が「どう解釈されるか」は、AutoCADの内部データベースとDXFの仕様の間で常に綱引きが行われている。
今日は、DXFエクスポートを単なる「ファイル保存」から「制御されたデータ出力」へと昇華させるための、堅牢なアーキテクチャを伝授する。
—
1. DXFエクスポートの本質：なぜ「ただ保存する」だけではいけないのか
DXFへエクスポートする際、多くのエンジニアが直面するトラブルは以下の3点だ。
- レイヤーの意図しない結合・消失: 外部システムが特定のレイヤー構成を期待しているのに、エクスポート時にフィルタリングが効いていない。
- プロパティの置換: 色や線種が「BYLAYER」に強制変換されたり、逆にハードコードされたりして、後続のシステムが読み込めない。
- バージョンの不一致: AutoCADのバージョン依存により、DXFのデータ構造（DXFコード）が微妙に異なり、パースエラーが発生する。
これを防ぐ唯一の道は、「デフォルトの保存設定に依存しない」ことだ。ActiveDocumentの現在の状態を「エクスポート用に正規化」するプロセスをVBA内で完結させる必要がある。
—
2. 実装の設計方針：堅牢なコンポーネントを作る
今回は、特定のレイヤーとスタイルを保持したまま、指定のDXFバージョンでエクスポートする実用的なコードを紹介する。
安定性を担保するための鉄則
1. 名前空間の分離: 図面上のオブジェクトを直接操作せず、一時的なコピーまたはステータスの退避を行う。
2. エラーハンドリングの徹底: ファイルのロックや書き込み権限エラーを想定し、必ず`On Error GoTo`でクリーンアップ処理を記述する。
3. App.BatchPlotとの対比: 大規模なバッチ処理には`ObjectDBX`（AxDbDocument）を使うべきだが、レイヤーの微調整が必要な場合は今回のように`Document`オブジェクトを直接叩くのが最も確実だ。
—
3. 実践：制御されたDXFエクスポート・プロシージャ
以下は、保守性を考慮したプロダクションレベルのコードである。
‘ DXFエクスポート用モジュール
Option Explicit
Public Sub ExportToDXF_Controlled(ByVal targetPath As String, ByVal version As AcDxfVersion)
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ エラーハンドリングの徹底
On Error GoTo ErrorHandler
‘ ファイル拡張子の強制チェック
If LCase(Right(targetPath, 4)) <> “.dxf” Then
targetPath = targetPath & “.dxf”
End If
‘ 【重要】ここがポイント
‘ SaveAsメソッドの第三引数(Version)にAcDxfVersionを指定することで、
‘ 予期せぬフォーマット変換を防ぐ
‘ acDXF_R12 / acDXF_R14 / acDXF_2000 等から選択
doc.SaveAs targetPath, version
MsgBox “DXFエクスポート完了: ” & targetPath, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エクスポート失敗: ” & Err.Description, vbCritical
‘ 必要に応じてログ出力やクリーンアップ処理をここに記述
End Sub
‘ 呼び出しサンプル
Public Sub RunExport()
‘ 例: AutoCAD 2000形式のDXFで書き出す
ExportToDXF_Controlled “C:\Temp\Export_Design_001.dxf”, acDXF_2000
End Sub
—
4. プロの視点：さらなる高みを目指すために
コードを動かすのは簡単だ。しかし、真の自動化エンジニアは「その先の運用」を設計する。
レイヤー・色・線種の制御について
もしDXF出力時に「特定のレイヤーだけを出力したい」「色を強制的にBYLAYERにしたい」という要件があるなら、`SaveAs`の前に以下の処理を挟むのが定石だ。
- 非表示レイヤーの削除: `Layer.Delete`ではなく、`Layer.LayerOn = False`の状態を判定し、不要なものをフィルタリングする。
- オブジェクトプロパティの正規化: `Entity.Color = acByLayer` と `Entity.Linetype = “ByLayer”` を全エンティティに対して適用するループを回す。これを元の図面に適用すると破壊的変更になるため、「名前を付けて保存」で一時ファイルを作成し、そこで正規化処理を行ってからエクスポートするのが、データ整合性を守るための唯一の「正しい」設計だ。
外部システム連携の罠
DXFはテキストベースのファイルだ。もしPythonやNode.jsなどの外部システムと連携するなら、エクスポート後にそのDXFを読み込み、ファイルパスが適切か、ヘッダー情報（`$ACADVER`など）が期待通りかを確認する「バリデーションスクリプト」をVBAから呼び出す設計にすると、開発の品質は劇的に向上する。
—
最後に：ツールを作る者の心得
AutoCAD VBAは古くからある技術だが、その分、仕様の隅々にまで「実戦で磨かれた知恵」が詰まっている。
「とりあえず動いた」で終わらせず、「なぜそのメソッドを使うのか」「エラーが起きた時、ユーザーは再試行できるか」を常に自問自答してほしい。君が書いたその10行のコードが、明日、誰かの残業をゼロにするかもしれないのだから。
さらなる深淵（ObjectDBXによる非表示プロセス実行など）については、また別の機会に語るとしよう。健闘を祈る。
