【テクニカル・上級編】【初心者向け】図面ビュー内の「中心線（Center Line）」自動挿入のON/OFF制御マクロ – SolidWorks VBA解析バイブル

図面自動化の深淵：中心線（Center Line）制御におけるオブジェクト・ライフサイクルと堅牢な実装

エンジニアリングの現場において、図面作成における「中心線の付与」という作業は、一見すると単純なルーチンワークに見える。しかし、数千枚の図面を管理し、設計変更が頻発する大規模プロジェクトの最前線に立つ者にとって、この「単純な作業」の自動化こそが、システム全体の信頼性とスループットを決定づける極めて重要な領域であることを、諸君は理解しているはずだ。

多くの初学者は、マクロの記録機能から得られた断片的なコードを、あたかも完成品であるかのように使い回す。しかし、それはプロフェッショナルではない。大規模なアセンブリ図面において、不適切なオブジェクト参照やメモリ管理、あるいは例外処理の欠如は、SolidWorksのクラッシュ、あるいはメモリリークによるシステム全体のパフォーマンス低下を招き、結果として設計部門全体の生産性を毀損する。

本稿では、図面ビューにおける「中心線の自動表示（Automatic Centerlines）」のON/OFF制御をテーマに、単なるコードの提示に留まらず、エンタープライズ・レベルの自動化ツールを構築するための設計思想を伝授する。

1. 階層構造の把握：SolidWorks APIのコンテキスト

図面操作において、我々は常に「今、どの階層のオブジェクトを操作しているのか」を意識しなければならない。中心線の制御は、`DrawingDoc`（図面ドキュメント）から始まり、`Sheet`（シート）、そして`View`（図面ビュー）へと至る階層構造の末端で行われる。

中心線の自動表示設定は、個々の `View` オブジェクトのプロパティとして保持されている。したがって、我々のアルゴリズムは以下のパスを辿ることになる。

`SldWorks` $\rightarrow$ `ModelDoc2` (DrawingDocとしてキャスト) $\rightarrow$ `SelectionMgr` $\rightarrow$ `View` $\rightarrow$ `SetCenterlineDisplay`

ここで重要なのは、図面全体に対して一括処理を行うのか、選択されたビューに対してのみ行うのかという、実行コンテキストの分離である。

2. 堅牢な実装：プロフェッショナル・コードの雛形

以下に、実戦投入を想定したVBAコードを示す。このコードは、単に中心線をON/OFFするだけでなく、エラーハンドリング、メモリの明示的解放、そしてパフォーマンスを考慮した設計となっている。

Option Explicit

' ==============================================================================
' Module: DrawingAutomationModule
' Description: 図面ビューにおける中心線の自動表示制御
' Author: Chief Architect
' ==============================================================================

''' <summary>
''' 選択された、あるいは全ビューに対して中心線の自動表示を制御する。
''' </summary>
''' <param name="enable">TrueでON、FalseでOFF</param>
Public Sub ControlCenterlineDisplay(ByVal enable As Boolean)
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swView As SldWorks.View
    Dim boolstatus As Boolean
    Dim errorCount As Long
    
    ' 1. 初期化とエラーハンドリングの準備
    On Error GoTo ErrorHandler
    
    Set swApp = Application.SldWorks
    If swApp Is Nothing Then
        MsgBox "SolidWorksインスタンスが見つかりません。", vbCritical
        Exit Sub
    End If

    Set swModel = swApp.ActiveDoc
    
    ' 2. コンテキストの検証
    ' 図面ドキュメント以外での実行を厳格に拒否する
    If swModel Is Nothing Then GoTo CleanExit
    If swModel.GetType <> swDocDRAWING Then
        MsgBox "図面ファイルを開いた状態で実行してください。", vbExclamation
        GoTo CleanExit
    End If
    
    Set swDraw = swModel
    Set swSelMgr = swModel.SelectionManager

    ' 再描画の抑制（パフォーマンス最適化）
    ' 大規模図面での処理速度を劇的に向上させる
    swModel.GraphicsRedraw = False

    ' 3. ビューの走査と制御
    ' 選択されているビューがある場合はそれのみ、なければ全ビューを対象とする
    Set swView = swSelMgr.GetSelectedObject6(1, -1)
    
    If Not swView Is Nothing Then
        ' 選択ビューに対する処理
        Debug.Print "Selected View detected: " & swView.Name
        boolstatus = swView.SetCenterlineDisplay(enable)
    Else
        ' 全ビューに対する反復処理
        ' 図面の階層構造をスキャンする
        Set swView = swDraw.GetFirstView ' Sheet自体が最初のビューとして返る
        
        Do While Not swView Is Nothing
            ' Sheetビューそのものではなく、その下の各ビューに対して適用
            ' ※Sheetビューは中心線表示の概念を持たないため、スキップするロジックが必要
            If swView.Type <> swDrawingViewSheet Then
                boolstatus = swView.SetCenterlineDisplay(enable)
                If Not boolstatus Then errorCount = errorCount + 1
            End If
            Set swView = swView.GetNextView
        Loop
    End If

    ' 4. 完了処理
    swModel.GraphicsRedraw = True
    MsgBox "処理が完了しました。" & IIf(errorCount > 0, " (一部のビューで失敗: " & errorCount & ")", ""), vbInformation

CleanExit:
    ' 5. メモリの明示的解放（重要：COMオブジェクトのライフサイクル管理）
    ' VBAのガベージコレクションに頼らず、明示的にNothingを代入することで
    ' 参照カウントを適切に減らし、メモリリークを防止する
    Set swView = Nothing
    Set swSelMgr = Nothing
    Set swDraw = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
    Exit Sub

ErrorHandler:
    swModel.GraphicsRedraw = True
    MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical
    Resume CleanExit
End Sub

''' <summary>
''' 実行用エントリーポイント
''' </summary>
Public Sub Run_CenterlineON()
    ControlCenterlineDisplay True
End Sub

Public Sub Run_CenterlineOFF()
    ControlCenterlineDisplay False
End Sub

3. アーキテクトの視点：なぜこのコードが必要なのか

このコードが、巷に溢れる「記録しただけのマクロ」と決定的に異なる点は以下の3点にある。

A. 決定論的なメモリ管理 (Deterministic Destruction)

VBAはCOM（Component Object Model）を介してSolidWorksを操作する。オブジェクトの参照が残ったままマクロが終了すると、SolidWorksのプロセス内に「幽霊オブジェクト」が残り続け、メモリを食いつぶす。`Set obj = Nothing` を `CleanExit` ラベルに集約させることで、どのようなエラー経路を通っても確実に参照を解放する設計にしている。これは、サーバーサイドでの自動化や、長時間稼働するシステムにおいて必須の作法である。

B. グラフィックス・リフレッシュの制御

`swModel.GraphicsRedraw = False`。これこそが、数千の要素を持つ図面を扱う際の「重み」を知る者のテクニックだ。ループのたびに画面を描画し直すのは、CPUリソースとGPUリソースの浪費以外の何物でもない。処理の開始時に描画を止め、最後に一度だけ更新する。この僅かな差が、実行時間を数秒から数ミリ秒へと短縮させる。

C. コンテキストの厳格なバリデーション

「図面ではないドキュメント」に対して中心線制御を試みることは、APIの実行時エラーを誘発する。プロフェッショナルなツールは、ユーザーのミスを許容するのではなく、「実行不可能な状態であれば、優雅に、かつ明確な理由を持って拒絶する」。これが、レガシー環境の保守性を高める鍵である。

4. さらなる高みへ：システム間連携を見据えて

もし君が、この機能を単なるマクロではなく、PLM（Product Lifecycle Management）システムやERPと連携させた「自動製図エンジン」へと昇華させたいのであれば、次に学ぶべきは Windows APIを用いたメッセージ制御 や、VB.NETによるSolidWorks APIの直接呼び出し である。

VBAは強力な武器だが、それはあくまで入り口に過ぎない。オブジェクトの階層を、メモリの挙動を、そしてAPIの限界を理解した時、君の書くコードは単なる「自動化」を超え、エンジニアリング・インフラへと進化する。

健闘を祈る。