【テクニカル・上級編】【初心者向け】図面シート上の特定テキストノートを検索し指定文字列へ一括置換するVBA – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.12

図面自動化の深淵：プレースホルダー置換におけるオブジェクト制御とメモリ管理の真髄

図面自動化の深淵：プレースホルダー置換におけるオブジェクト制御とメモリ管理の真髄

業務自動化の現場において、「動けばいい」というコードは、将来的にシステムを崩壊させる時限爆弾に他ならない。

特にSolidWorksのような大規模な3D CADを操作するVBA開発では、単なるロジックの正しさ以上に、「オブジェクトのライフサイクルをいかに制御するか」、そして「複雑な階層構造をいかに効率的に走査するか」が、プロフェッショナルとアマチュアを分かつ境界線となる。

本稿では、図面（Drawing）内の特定のテキスト（Note）を検索し、一括置換するタスクを題材に、堅牢な自動化システムを構築するための極限の知見を共有する。これは単なる「置換マクロ」の解説ではない。レガシーな環境でも、大規模な図面ファイル群でも、メモリリークを起こさずに完遂するための「設計思想」の伝承である。

1. 階層構造の解剖：Noteはどこに潜んでいるのか

初心者が陥る最大の罠は、図面上のノートを「単一のレイヤーに存在するテキスト」だと誤解することだ。SolidWorksの図面構造は、厳格な階層性を持っている。

1. DrawingDoc (図面ドキュメント)
2. Sheet (シート)

Sheet Notes (シート直下の注記)

3. View (図面ビュー)

View Notes (ビューに紐付いた注記)
Annotation (注記エンティティ)
Note (テキスト情報を持つ実体)

置換処理を行う際、シート直下のノートだけを走査しても、図面ビュー内に配置された重要な情報（部品番号や材質など）を見落とすことになる。我々が目指すべきは、「シート」と「すべてのビュー」を網羅する完全なトラバーサル（走査）である。

2. 実装：プロフェッショナル・グレードの置換エンジン

以下に、メモリ管理とエラーハンドリングを極限まで高めた実装例を示す。このコードは、単に文字列を書き換えるだけでなく、オブジェクトの解放を徹底することで、長時間のバッチ処理におけるメモリ枯渇を防ぐ設計となっている。

Option Explicit

' ======================================================================================
' Description: 図面内の特定文字列を検索し、一括置換する
' Author: Legendary Chief Architect
' Note: オブジェクトの明示的解放と階層走査を徹底し、大規模図面での安定性を確保している
' ======================================================================================
Sub ReplaceDrawingNotesProfessional()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSheet As SldWorks.Sheet
    Dim swView As SldWorks.View
    Dim swAnn As SldWorks.Annotation
    Dim swNote As SldWorks.Note
    Dim vSheetNames As Variant
    Dim i As Integer
    
    ' 置換設定
    Const TARGET_STR As String = "{{PART_NO}}"   ' 検索するプレースホルダー
    Const REPLACE_STR As String = "ABC-12345"    ' 置換後の値
    
    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
    
    ' 画面更新の停止（パフォーマンス向上のための定石）
    ' ※SolidWorks APIにはExcelのようなScreenUpdatingはないが、
    ' 描画負荷を抑えるために再描画を最小限にする戦略をとる
    
    ' 全シートの走査
    vSheetNames = swDraw.GetSheetNames
    
    For i = 0 To UBound(vSheetNames)
        ' シートの切り替え
        swDraw.ActivateSheet vSheetNames(i)
        Set swSheet = swDraw.GetCurrentSheet
        
        ' --- 1. シート直下の注記を走査 ---
        ' GetFirstAnnotationは、シート上の最初の注記を取得する
        Set swAnn = swSheet.GetFirstAnnotation
        Do While Not swAnn Is Nothing
            ' 注記（Note）タイプであるか判定
            If swAnn.GetType = swAnnotationType_e.swNote Then
                Set swNote = swAnn.GetSpecificAnnotation
                Call ProcessNote(swNote, TARGET_STR, REPLACE_STR)
            End If
            Set swAnn = swAnn.GetNext
        Loop
        
        ' --- 2. 全ビュー内の注記を走査 ---
        ' GetFirstViewは「シート自体」を最初のビューとして返すため、ループの扱いに注意が必要
        Set swView = swDraw.GetFirstView 
        Do While Not swView Is Nothing
            ' 各ビュー内の注記を走査
            Set swAnn = swView.GetFirstAnnotation
            Do While Not swAnn Is Nothing
                If swAnn.GetType = swAnnotationType_e.swNote Then
                    Set swNote = swAnn.GetSpecificAnnotation
                    Call ProcessNote(swNote, TARGET_STR, REPLACE_STR)
                End If
                Set swAnn = swAnn.GetNext
            Loop
            
            Set swView = swView.GetNext
        Loop
        
        ' メモリ解放（ループ内でのオブジェクトの断片化防止）
        Set swSheet = Nothing
    Next i

    ' 変更を反映させるための再描画
    swModel.ForceRebuild3 True
    MsgBox "置換処理が完了しました。", vbInformation

CleanUp:
    ' オブジェクトの明示的解放（メモリリーク防止の絶対原則）
    Set swNote = Nothing
    Set swAnn = Nothing
    Set swView = Nothing
    Set swSheet = Nothing
    Set swDraw = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

' ======================================================================================
' Sub: ノートのテキスト置換ロジック
' ======================================================================================
Private Sub ProcessNote(ByRef swNote As SldWorks.Note, ByVal target As String, ByVal replacement As String)
    Dim currentText As String
    
    If Not swNote Is Nothing Then
        currentText = swNote.GetText
        ' 置換対象が含まれている場合のみ書き換えを実行（API呼び出しのコスト削減）
        If InStr(1, currentText, target, vbTextCompare) > 0 Then
            ' VBAのReplace関数を使用
            swNote.SetText Replace(currentText, target, replacement)
        End If
    End If
End Sub

3. アーキテクトの視点：なぜこのコードは「強い」のか

メモリ管理とCOMオブジェクトのライフサイクル

VBAはCOM（Component Object Model）を利用している。`Set swNote = Nothing` と明示的に記述することは、単なるマナーではない。特に大量のシートやビューをループで回す際、参照カウントが適切に減少しなければ、SolidWorksのプロセスがメモリを食いつぶし、最終的に「メモリ不足」や「強制終了」を引き起こす。

パフォーマンスの最適化：条件付きAPI呼び出し

`swNote.SetText` は、単なるメモリ上の書き換えではなく、SolidWorksのグラフィックスエンジンに対して「再描画が必要である」という通知を送る重量級の操作だ。
私の実装では、`InStr` 関数を用いて「置換対象が含まれている場合のみ `SetText` を呼び出す」というガード条件を設けている。これにより、無意味なAPIコールを排除し、処理速度を劇的に向上させている。

エラーハンドリングの設計

`On Error GoTo ErrorHandler` による一括管理は、システムの堅牢性を担保する。特に自動化システムをサーバー上でバックグラウンド実行させる場合、エラーが発生した際に「どのオブジェクトが原因で、どのようにクリーンアップして終了するか」が明確でなければ、システム全体のデッドロックを招く。

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

このマクロを、単なる「ボタンを押して終わり」のツールから、エンタープライズな「自動化基盤」へと昇華させるには、以下の拡張を検討すべきだ。

外部データソースとの連携: 置換文字列のリストをExcelやSQL Server、あるいはPDM（Product Data Management）のデータベースから取得するように設計する。
Windows APIの活用: 大量ファイルの処理を行う際、ファイル操作の高速化や、プロセスの優先度制御のために `kernel32.dll` の関数を呼び出す。
ログ出力の自動化: 置換に成功したか、どのノートを書き換えたかをテキストログまたはデータベースに記録し、監査証跡（Audit Trail）を確保する。

結言

「図面内のテキストを置換する」という単純なタスクの背後には、オブジェクトの階層、メモリの管理、そして計算コストの最適化という、エンジニアリングの真髄が隠れている。

表面的な動作に満足せず、常に「そのコードはスケーラブルか？」「リソースを浪費していないか？」を自問自答せよ。それこそが、伝説的なアーキテクトへの第一歩である。