【テクニカル・上級編】【中級者向け】アセンブリ図面における「部品番号の連番（バブル）」の自動付与と並び順制御 – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.01

混沌に秩序を：アセンブリ図面におけるバルーン配置アルゴリズムの設計思想

混沌に秩序を：アセンブリ図面におけるバルーン配置アルゴリズムの設計思想

図面作成という作業は、エンジニアリングにおける「最終的なアウトプットの儀式」である。しかし、多くの中級者が陥る罠がある。それは、アセンブリ図面におけるバルーン（部品番号）の配置を、単なる「APIの呼び出し」と勘違いしている点だ。

数千点の部品からなる大規模アセンブリにおいて、バルーンを一つずつ `AddBalloon` で配置していくコードを書くのは、設計ではなく単なる作業の自動化に過ぎない。真のアーキテクトが求めるのは、BOM（部品表）の順序と、図面上の視覚的秩序を同期させる、決定論的な配置アルゴリズムである。

本稿では、リソースの浪費を極限まで削ぎ落とし、メモリ管理と計算コストを最適化した、プロフェッショナルなバルーン自動配置の実装手法を論じる。

1. 破綻する自動化：なぜ単純なループではいけないのか

多くの開発者が、以下のような素朴な実装で失敗する。
1. 図面ビュー内のすべての部品を走査する。
2. 各部品に対してバルーンを生成する。
3. 座標を適当にオフセットする。

このアプローチには、致命的な設計上の欠陥が3つある。

第一の欠陥：計算量の爆発

部品数 $N$ に対して、バルーン同士の重なりを判定する単純な衝突判定を行うと、$O(N^2)$ の計算量が発生する。大規模アセンブリでは、SolidWorksのGUIがフリーズする原因となる。

第二の欠陥：BOMとの非同期

バルーンの番号は、図面上の配置順ではなく、BOM（部品表）の行順に従わなければならない。図面ビューの走査順序とBOMのインデックスをマッピングする「データ構造の橋渡し」が欠落している。

第三の欠陥：COMオブジェクトのライフサイクル管理

SolidWorks VBAは、背後でCOM（Component Object Model）を駆動させている。ループ内で大量の `DrawingView` や `Balloon` オブジェクトを生成し、適切に解放（Release）せずに放置すれば、メモリリークは避けられず、最終的にはSolidWorksのプロセスがクラッシュする。

2. アーキテクチャの設計：BOM駆動型配置戦略

我々が実装すべきは、「BOMを真実のソース（Source of Truth）とし、図面ビューをその投影として扱う」戦略である。

アルゴリズムのフロー

1. BOMデータの抽出: `BomTableAnnotation` から部品番号と構成部品の情報をメモリ上の連想配列（Dictionary）に格納する。
2. 空間情報のインデックス化: 図面ビュー内の各コンポーネントの重心座標をあらかじめ計算し、空間分割（Grid Search等）を用いて検索効率を高める。
3. 配置戦略の決定:

部品番号順にループを回す。
各部品の「安全な配置領域」を探索する。
重なりを避けるため、重心から一定の距離にある「空き領域」を優先する。

4. 描画のバッチ処理: 描画更新を一時停止し、計算完了後に一括で反映させる。

3. 実装の真髄：極限の最適化コード

以下に、メモリ管理とパフォーマンスに最大限の配慮を払った実装例を示す。ここでは、Windows APIを用いた描画抑制の概念も組み込む。

'**
' Module: BalloonArchitect
' Description: 高度なバルーン配置およびBOM同期制御
' Author: Legendary Chief Architect
'**
Option Explicit

' Windows API: 描画更新を完全に制御するための宣言
' ※厳密にはSendMessageを用いるが、ここではSolidWorks APIの更新停止機能を優先する
Private Declare PtrSafe Function LockWindowUpdate Lib "user32" (ByVal hwndLock As LongPtr) As Long

Sub AutomateBalloonPlacement()
    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 swBomTable As SldWorks.BomTableAnnotation
    Dim swBalloon As SldWorks.Note ' BalloonはNoteオブジェクトの派生として扱う
    
    On Error GoTo ErrorHandler

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Or swModel.GetType <> swDocDRAWING Then
        MsgBox "図面ファイルを開いてください。", vbCritical
        Exit Sub
    End If

    Set swDraw = swModel
    
    ' --- [Optimization Phase 1: Graphics Suppression] ---
    ' 描画更新を停止し、APIコールによる再描画コストを排除する
    swModel.ActiveView.EnableGraphicsUpdate = False
    
    ' --- [Step 1: BOM Table Identification] ---
    ' 最初のBOMテーブルを取得。BOMは図面の「真実」である。
    Set swView = swDraw.GetFirstView ' Sheet自体が最初のView
    Set swView = swView.GetNextView  ' 最初のモデルビューへ移動
    
    ' BOMテーブルの探索（ここでは簡略化のため最初のテーブルを想定）
    ' 実運用では、特定の名前や位置に基づくフィルタリングを推奨
    Set swBomTable = FindBomTable(swView)
    If swBomTable Is Nothing Then
        MsgBox "BOMテーブルが見つかりません。", vbExclamation
        GoTo CleanUp
    End If

    ' --- [Step 2: Iterative Placement Logic] ---
    Dim i As Long
    Dim bomRowCount As Long
    Dim itemNumber As String
    Dim compName As String
    
    bomRowCount = swBomTable.RowCount
    
    ' BOMの行数分だけループ。これによりBOM順序を保証する。
    For i = 1 To bomRowCount
        ' BOMから情報を抽出
        itemNumber = swBomTable.Text(i, 0) ' 0: 部品番号カラム
        
        ' --- [Step 3: Spatial Search & Balloon Generation] ---
        ' 本来はここで、部品の重心を検索する高度な幾何学アルゴリズムを走らせる
        ' ここでは概念を示すため、ビュー内の特定コンポーネントへの配置を模倣
        
        ' バルーンの生成（既存のロジックをここにカプセル化）
        ' AddSmartBalloon(swView, itemNumber) 
        
        ' --- [Optimization Phase 2: Memory Management] ---
        ' ループ内でのオブジェクトの明示的な解放は、VBAでは Set = Nothing が基本
        ' ただし、APIが返す内部参照がある場合は慎重に扱うこと
    Next i

    ' --- [Finalization] ---
    swModel.ForceRebuild3 True
    MsgBox "配置完了。秩序が確立されました。", vbInformation

CleanUp:
    ' 描画更新の再開
    swModel.ActiveView.EnableGraphicsUpdate = True
    ' 全てのオブジェクト参照を明示的にクリア（メモリリーク防止）
    Set swBalloon = Nothing
    Set swBomTable = Nothing
    Set swView = Nothing
    Set swDraw = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
    Exit Sub

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

'**
' Function: FindBomTable
' Description: ビュー内のBOMテーブルを探索する。
'**
Private Function FindBomTable(ByVal swView As SldWorks.View) As SldWorks.BomTableAnnotation
    Dim swAnn As SldWorks.Annotation
    Dim swTable As SldWorks.BomTableAnnotation
    
    ' 注釈（Annotation）を走査してBOMを探す
    Set swAnn = swView.GetFirstAnnotation2
    Do While Not swAnn Is Nothing
        If swAnn.GetType = swAnnotationType_e.swComponentAnnotation Then
            ' 注釈の型からBOMを判定
            ' (実装詳細は環境に依存するため、ここではプロトタイプを示す)
        End If
        Set swAnn = swAnn.GetNext
    Loop
    
    ' 実際の実装では、swAnn.GetSpecificAnnotation を使用して型キャストを行う
    Set FindBomTable = swTable
End Function

4. 極限の知見：プロフェッショナルへの助言

1. `EnableGraphicsUpdate = False` の重み

大規模なアセンブリにおいて、バルーンを一つ置くたびにSolidWorksが画面を再描画（Redraw）しようとする挙動は、計算資源の致命的な浪費だ。このフラグを制御することは、単なる高速化ではなく、システムの安定性を確保するための「必須要件」である。

2. メモリの「掃除」という規律

VBAはガベージコレクションが強力ではない。特に、SolidWorks APIを通じて生成されたCOMオブジェクトは、参照カウントが残っている限り、メモリ上に居座り続ける。`Set obj = Nothing` をループの終端やエラーハンドラに記述することは、レガシーなシステムを長期間保守するための「作法」である。

3. Windows APIの活用（高度な制御）

もし、SolidWorksの描画停止だけでは不十分なほど重い描画が発生する場合、Windows APIの `LockWindowUpdate` を用いて、OSレベルでウィンドウの更新をロックする手法がある。ただし、これは副作用が強いため、使用には細心の注意を払う必要がある。

結論

バルーンの自動配置は、単なる座標計算ではない。それは、BOMという「データ」を、図面という「表現」へ、いかに矛盾なく、かつ美しい秩序を持って変換するかという、情報のマッピング問題である。

このアルゴリズムを理解し、実装に落とし込める者だけが、自動化エンジニアとして「作業の自動化」の先にある「設計の自動化」の領域へと足を踏み入れることができるのだ。