【テクニカル・上級編】【上級プロ向け】SolidWorks図面エクスポート時のカスタム「PDF/TIFFコンバーター」：ページごとの個別解像度・カラー制御 – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.05

Beyond `SaveAs`: Architecting a High-Precision Multi-Format Conversion Pipeline

Beyond `SaveAs`: Architecting a High-Precision Multi-Format Conversion Pipeline

SolidWorksの標準機能である`SaveAs`メソッド、あるいは単純な`ExportToPDF2`の呼び出し。多くのエンジニアは、これで「図面出力」というタスクを完了したつもりになっている。

しかし、エンタープライズ級の設計環境において、その「一括・一律」の処理は、時に致命的な非効率を招く。

カラーアセンブリの展開図には、細部を判別できる高解像度（600dpi以上）のカラーPDFが必要だ。一方で、単純な寸法指示のみの部品図には、ファイル容量を最小限に抑えた低解像度（150dpi）のモノクロPDFが求められる。これらを一つのドキュメント内で、あるいは一連のバッチ処理の中で動的に切り替える。

本稿では、標準APIの限界を突破し、シート単位で解像度とカラー制御を動的に適用する「条件分岐型カスタムコンバーター」の設計思想と、その実装におけるメモリ管理の極意を伝授する。

1. 限界の認識：なぜ標準のPDF出力では不十分なのか

SolidWorksのPDFエクスポート設定は、多くの場合「アプリケーション全体のユーザー設定（User Preference）」に依存している。つまり、一つの図面ファイルに対して、シートごとに異なる解像度やカラーモードを割り当てて一括出力する、という命令をAPIから直接送ることはできない。

これを実現するためには、以下の「ハイブリッド・パイプライン」を構築する必要がある。

1. メタデータの解析: シート名、またはカスタムプロパティから「出力モード（High-Res/Color vs Low-Res/BW）」を判定。
2. シート単位の個別エクスポート: 各シートを個別の高品質TIFFまたは画像フォーマットとして、解像度を指定して出力。
3. ドキュメントの再構成: 出力された個別のイメージを、外部エンジン（Windows APIまたはコマンドラインツール）を用いて、一つのPDFへと結合。

これは単なる「保存」ではない。「変換パイプライン」の構築である。

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

大規模な図面（数百枚のシートを持つアセンブリ図面など）をループ処理する場合、エンジニアが直面する最大の敵は「メモリリーク」と「COMオブジェクトの残存」である。

VBAにおいて、`Set swApp = Nothing` と書くだけでは不十分な場合が多い。特に、`ModelDoc2` や `DrawingDoc` をループ内で生成・破棄する場合、参照カウントが正しく減少しなければ、SolidWorksのプロセス（`SLDWORKS.exe`）がバックグラウンドでメモリを食いつぶし、最終的にシステムをハングアップさせる。

アーキテクトの流儀：

明示的な解放: ループの各ステップの終わりに、必ず使用したオブジェクトを `Nothing` で解放する。
エラーハンドリングの徹底: エラー発生時にオブジェクトが解放されないまま脱出することを防ぐため、`On Error GoTo` によるクリーンアップルーチンを必須とする。

3. 実装例：条件分岐型・高精度エクスポートエンジン

以下に、シートの特性を判定し、解像度を切り替えながらTIFFとして出力するコアロジックを示す。ここでは、PDF結合の手前までの「高精度な素材生成」に焦点を当てる。

' ==============================================================================
' Module: HighPrecisionConverter
' Description: シート属性に基づき、解像度を動的に制御してTIFF出力を行う
' ==============================================================================

Option Explicit

' Windows API: ファイル操作の高速化や高度な制御が必要な場合に備え、
' 本来はここではFileSystemObject等を使用するが、概念として示す。
' (実際の運用では Shell.Application 等による結合プロセスへ繋げる)

Public Sub ExecuteConversionPipeline()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSheet As SldWorks.Sheet
    Dim vSheetNames As Variant
    Dim i As Long
    Dim currentSheetName As String
    Dim exportPath As String
    Dim targetDPI As Long
    Dim isColor As Boolean
    
    On Error GoTo ErrorHandler

    ' SolidWorksへの接続
    Set swApp = Application.SldWorks
    If swApp Is Nothing Then
        MsgBox "SolidWorksが見つかりません。", vbCritical
        Exit Sub
    End If

    ' アクティブなドキュメントの取得
    Set swModel = swApp.ActiveDoc
    If swModel Is Nothing Or swModel.GetType <> swDocDRAWING Then
        MsgBox "図面ファイルを開いてください。", vbExclamation
        Exit Sub
    End If

    Set swDraw = swModel
    vSheetNames = swDraw.GetSheetNames
    exportPath = swModel.GetPathName
    ' パスから拡張子を除去して出力ディレクトリを決定
    exportPath = Left(exportPath, InStrRev(exportPath, ".") - 1) & "\Exported_Sheets\"
    
    ' 出力フォルダの存在確認（ここでは簡易化のため省略）
    ' 実際には Windows API (MakeSureDirectoryPathExists) 等を用いるのがプロフェクショナル

    ' --- メインループ開始 ---
    For i = 0 To UBound(vSheetNames)
        currentSheetName = vSheetNames(i)
        swDraw.ActivateSheet currentSheetName
        Set swSheet = swDraw.GetCurrentSheet
        
        ' 1. シートの属性判定 (ロジックは業務要件に合わせる)
        ' 例: シート名に "COLOR" が含まれていれば高解像度カラー、そうでなければ低解像度モノクロ
        If InStr(1, currentSheetName, "COLOR", vbTextCompare) > 0 Then
            targetDPI = 600
            isColor = True
        Else
            targetDPI = 150
            isColor = False
        End If

        ' 2. エクスポート設定の動的適用
        ' SolidWorksのUserPreferenceを書き換える。
        ' 注意: これにより、他の操作にも影響が出るため、必ず元の値を保持し、後で戻すこと。
        Call ApplyExportSettings(swApp, targetDPI, isColor)

        ' 3. 個別ファイルとしてTIFF出力
        ' TIFFは解像度制御が容易であり、後のPDF結合プロセスにおいて極めて高品質な素材となる
        Dim fileName As String
        fileName = exportPath & currentSheetName & ".tif"
        
        ' ExportToPictures を使用して高解像度出力を実行
        ' 引数: パス, ファイル形式(TIFF), 解像度, 背景色, 等
        swModel.Extension.ExportToPictures fileName, swExportData_t.swExportData_TIFF, targetDPI, swExportMode_t.swExportMode_All
        
        Debug.Print "Processed: " & currentSheetName & " @ " & targetDPI & " DPI"
    Next i
    ' --- メインループ終了 ---

    MsgBox "変換パイプラインが完了しました。結合プロセスへ移行してください。", vbInformation

CleanUp:
    ' オブジェクトの明示的解放（メモリリーク防止の最重要事項）
    Set swSheet = Nothing
    Set swDraw = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

' ------------------------------------------------------------------------------
' 補助関数: エクスポート設定の制御
' ------------------------------------------------------------------------------
Private Sub ApplyExportSettings(ByRef swApp As SldWorks.SldWorks, ByVal dpi As Long, ByVal colorMode As Boolean)
    ' PDF/TIFF出力時のユーザー設定を一時的に変更する
    ' 実際の実装では、元の値を保存しておき、ループ終了後に復元する設計にする
    
    ' 解像度の設定
    swApp.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_e.swPDFExportResolution, dpi
    
    ' カラーモードの設定 (モノクロ/カラー)
    ' 注: APIの仕様により、直接的な「モノクロ切り替え」が効かない場合は、
    ' レイヤーの属性を操作するか、出力後の画像処理で対応するアーキテクチャを選択する。
    If Not colorMode Then
        ' モノクロ化のロジック（例：グラフィックス表示の切り替えなど）
        ' swApp.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_e.swPDFExportColorMode, ...
    End If
End Sub

4. 究極の知見：システム間連携への展開

上記のコードは「素材の生成」までを担う。真のシステム管理者が構築すべきは、その後の「結合（Stitching）」プロセスである。

VBA単体でPDF結合を行うのは、メモリ効率と速度の観点から推奨されない。プロフェッショナルなパイプラインでは、VBAから Ghostscript や ImageMagick といった、コマンドラインベースの強力な画像処理エンジンを `Shell` 関数経由で呼び出す。

アーキテクチャの完成形：

1. SolidWorks VBA: シート属性を読み取り、高精度TIFF群を生成。
2. Windows Shell: 生成されたTIFFのリストをコマンドライン引数として構築。
3. ImageMagick: `magick convert *.tif output.pdf` を実行。これにより、数秒で高品質な、かつファイル容量が最適化されたPDFが完成する。

結論

SolidWorksの自動化において、APIの表面的なメソッドをなぞるだけでは、現場の要求に応えることはできない。オブジェクトのライフサイクルを制御し、APIの制約を理解した上で、外部ツールを組み合わせた「多層的なアーキテクチャ」を設計すること。それこそが、レガシーな環境を現代的な自動化パイプラインへと昇華させる、シニアエンジニアの責務である。