【テクニカル・上級編】【実務中級者向け】CNC/レーザー加工機用DXF出力：R12形式への一括変換とポリラインの最適化保存 – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.10

レガシー・インターオペラビリティの極致：CNC/レーザー加工機のためのR12 DXF変換と幾何学的整合性の担保

レガシー・インターオペラビリティの極致：CNC/レーザー加工機のためのR12 DXF変換と幾何学的整合性の担保

製造現場の最前線において、最新のAutoCADスイートが提供する高度な機能は、時に「毒」となる。

我々エンジニアが直面するのは、数十年前の設計思想に基づいたCNC工作機械やレーザー加工機のコントローラーだ。彼らは現代的な複雑なエンティティ、高度なレイヤー構造、あるいは「軽量ポリライン（LWPolyline）」の細かな属性を解釈できない。彼らが求めているのは、極めてシンプルで、かつ数学的に純粋な幾何学データ、すなわち AutoCAD R12形式のDXF である。

本稿では、単なる「名前を付けて保存」の自動化ではない。大量の図面を、データ欠損や幾何学的エラーを起こさずに、極限まで最適化された状態でR12 DXFへと変換・出力するための、アーキテクト視点の知見を詳解する。

1. R12 DXFという「制約」を理解する

R12形式は、現代のDWGと比較して極めて情報量が少ない。この「情報の欠落」を、プログラム側でいかに制御するかが勝負となる。

幾何学的制約の壁

R12 DXFにおいて、最も頻発するトラブルは「ポリラインの解釈ミス」だ。現代のAutoCADにおける標準である `AcDbPolyline` (LWPolyline) は、メモリ効率は高いが、古いコントローラーでは座標の計算誤差や、セグメントの解釈違いにより、加工パスが不連続になるケースがある。

属性・スタイルの剥離

R12は、複雑な文字スタイル、ダイナミックブロック、高度なハッチングパターンを保持できない。これらを無理に変換しようとすれば、DXFファイルは肥大化し、最悪の場合、加工機側で読み込みエラー（Parsing Error）を引き起こす。

戦略的指針：
出力前に「図面を削ぎ落とす（Simplify）」プロセスを組み込むこと。これが、真の自動化エンジニアの仕事である。

2. メモリ管理とオブジェクト・ライフサイクル

大量の図面をループ処理で変換する場合、VBAの最大の敵は 「メモリリーク」 と 「COM参照の残留」 である。

AutoCAD VBAにおいて、`Set obj = Nothing` を書くだけでは不十分な場合がある。特に、`Document` オブジェクトや `Database` オブジェクトを操作する際、参照カウントが適切にデクリメントされないと、AutoCADプロセス自体がメモリを食いつぶし、最終的に `Out of Memory` でクラッシュする。

堅牢なループ構造の設計

以下のコード例では、各図面処理を独立したスコープで管理し、エラー発生時でもリソースを確実に解放する設計思想を示している。

' --- 
' CNC用DXF一括変換モジュール
' 
' 注意: 
' 1. 変換前に図面を「幾何学的に単純化」することを前提とする
' 2. 参照型オブジェクトは必ず明示的に Nothing を代入する
' ---

Option Explicit

Public Sub BatchConvertR12DXF(ByVal sourceFolder As String, ByVal targetFolder As String)
    Dim acadApp As Object
    Dim doc As Object
    Dim fso As Object
    Dim file As Object
    Dim dwgPath As String
    Dim dxfPath As String
    
    ' FileSystemObjectの初期化
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' AutoCADアプリケーションへの接続（既存または新規）
    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If acadApp Is Nothing Then
        Set acadApp = CreateObject("AutoCAD.Application")
    End If
    On Error GoTo 0
    
    acadApp.Visible = True ' デバッグ時はTrue、本番運用ではFalseを検討

    ' フォルダ内のファイルをスキャン
    For Each file In fso.GetFolder(sourceFolder).Files
        If LCase(fso.GetExtensionName(file.Name)) = "dwg" Then
            
            dwgPath = file.Path
            dxfPath = targetFolder & "\" & fso.GetBaseName(file.Name) & ".dxf"
            
            Debug.Print "Processing: " & dwgPath
            
            ' --- 図面処理のメインプロセス ---
            If ProcessSingleDrawing(acadApp, dwgPath, dxfPath) Then
                Debug.Print "Success: " & dxfPath
            Else
                Debug.Print "FAILED: " & dwgPath
            End If
            ' ------------------------------
            
        End If
    Next file

    ' クリーンアップ
    Set fso = Nothing
    Set acadApp = Nothing
    MsgBox "Batch Process Completed.", vbInformation
End Sub

Private Function ProcessSingleDrawing(ByRef acadApp As Object, ByVal dwgPath As String, ByVal dxfPath As String) As Boolean
    Dim doc As Object
    Dim saveAsObj As Object
    
    On Error GoTo ErrorHandler
    
    ' 図面のオープン
    ' ※ OpenメソッドはDocumentオブジェクトを返す
    Set doc = acadApp.Documents.Open(dwgPath)
    
    ' 1. 幾何学的な最適化（重要：ポリラインの分解等）
    ' ここで、LWPolylineを古い形式のPolylineに変換、またはExplodeを行うロジックを呼び出す
    OptimizeGeometry doc
    
    ' 2. R12 DXF形式での保存
    ' acR12DXF = 14 (定数)
    ' acR12DXFは、古い形式を強制するための定数である
    doc.SaveAs dxfPath, 14 
    
    ' 3. 図面のクローズ（変更を保存せずに閉じる）
    doc.Close False
    
    ProcessSingleDrawing = True
    GoTo Cleanup

ErrorHandler:
    Debug.Print "Error in " & dwgPath & ": " & Err.Description
    ProcessSingleDrawing = False

Cleanup:
    ' オブジェクトの明示的解放
    ' これを怠ると、ループ内でメモリが蓄積し、システムが不安定になる
    Set doc = Nothing
End Function

3. 幾何学的最適化：`OptimizeGeometry` の真髄

単に `SaveAs` を実行するだけでは、加工機が読み取れないエンティティが残る。
`OptimizeGeometry` 関数において、我々が実装すべきは以下の処理である。

ポリラインの「退化」

現代の `AcDbPolyline` は、座標データが軽量化されているが、古いコントローラーは `AcDbPolyline` (旧来のPolyline) を期待する。
最も安全な手法は、「ポリラインを一度分解（Explode）し、必要に応じて再度、単純な線分（Line）または旧形式のPolylineとして再構築する」 ことだ。

Private Sub OptimizeGeometry(ByRef doc As Object)
    Dim ent As Object
    Dim i As Integer
    
    ' 図面内の全エンティティを走査
    ' ※ 逆順に走査するのは、Explode等でコレクションのインデックスが変わるのを防ぐため
    For i = doc.ModelSpace.Count - 1 To 0 Step -1
        Set ent = doc.ModelSpace.Item(i)
        
        ' 1. LWPolyline (軽量ポリライン) の検出
        ' AutoCAD VBAの定数を用いて判定
        If ent.ObjectName = "AcDbPolyline" Then
            ' 加工機との互換性を最大化するため、分解してLineに変換する
            ' もしくは、より複雑な制御が必要ならここで旧形式のPolylineへ変換する
            ent.Explode
            ent.Delete
        End If
        
        ' 2. 不要な属性の削除 (Text, MText, Hatch, Dimension等の除去)
        ' CNC加工において、寸法線や文字はノイズでしかない
        If ent.ObjectName = "AcDbText" Or ent.ObjectName = "AcDbMText" Or _
           ent.ObjectName = "AcDbDimension" Or ent.ObjectName = "AcDbHatch" Then
            ent.Delete
        End If
    Next i
End Sub

4. 実務における「極限の知見」：デバッグと検証

この手のシステムを構築する際、シニアエンジニアが最も注視すべきは、「例外的な図面」への耐性である。

1. ゼロ長線分（Zero-length segments）の排除:
計算誤差により、始点と終点が同一の線分が生成されることがある。これはCNCコントローラーにおいて「停止」や「エラー」を誘発する。`OptimizeGeometry` 内で、`Distance` プロパティを確認し、極小値以下の線分は `Delete` するロジックを組み込むべきだ。

2. 座標系の正規化:
極端に大きな座標値（例：世界座標系での数百万単位の数値）を持つ図面をR12に変換すると、浮動小数点精度の限界により、加工パスがガタつく。変換前に、図面の原点を `(0,0,0)` 付近へ移動（Move）させる工程を自動化に組み込むことを強く推奨する。

3. Windows APIによるプロセス監視:
VBAの `On Error` だけでは、AutoCADが「ダイアログボックス（例：保存時の警告）」を表示して停止した事象を検知できない。長時間実行するバッチ処理では、Windows APIの `FindWindow` を用いて、AutoCADがメッセージボックスを表示して「待ち状態」になっていないかを監視する仕組みを検討せよ。

結論

R12 DXFへの変換は、単なるファイル形式の変更ではない。それは、「高度に抽象化された現代の設計データ」を、「物理的な機械が理解できる純粋な幾何学」へとデコードするプロセスである。

オブジェクトのライフサイクルを厳格に管理し、幾何学的なノイズを徹底的に排除する。この「削ぎ落とす技術」こそが、レガシーな製造現場において、システムの信頼性を決定づけるのである。