【実務・中級編】【中級者向け】図面内の特定ビューにおける「部分断面図（Broken-out Section）」の切断深さ自動調整VBA – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.08

脆弱なマクロを卒業せよ：部分断面図の切断深さを制御する「堅牢な」図面自動化アーキテクチャ

脆弱なマクロを卒業せよ：部分断面図の切断深さを制御する「堅牢な」図面自動化アーキテクチャ

現場の自動化エンジニア諸君。君たちが書いたコードは、図面上のビューが1ミリでも動いた瞬間に「エラー：オブジェクトが見つかりません」と悲鳴を上げ、業務を停止させていないだろうか？

もし、`SelectByID2` を多用し、ユーザーの選択状態やビューの座標に依存したスクリプトを書いているとしたら、それは「自動化ツール」ではない。単なる「壊れやすいマクロ」だ。

今回扱うテーマは、図面作成における難所の一つ、「部分断面図（Broken-out Section）の切断深さの自動制御」である。複雑なアセンブリの図面化において、この深さの制御をプログラムから正確に行うことは、設計品質を担保する上で極めて重要だ。

本記事では、単なるコードの提示に留まらず、「なぜその設計が必要なのか」「どうすればプロダクション環境で耐えうる堅牢なツールになるのか」というアーキテクチャの観点から、極限の知見を伝授する。

1. アンチパターン：なぜ君のコードは「現場」で動かないのか

多くの開発者が陥る罠は、「Viewを名前や座標で特定しようとすること」だ。

' --- 典型的なアンチパターン ---
' ビューの名前が「Section View1」であることを前提としている
' もし設計者がビューの名前を変えたら、このツールは死ぬ
swApp.SelectionManager.SelectByID2 "Section View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0

図面は生き物だ。設計者はビューの名前を変えるし、配置を微調整する。
プロダクションレベルのツールにおいては、「ビューのメタデータ（カスタムプロパティ等）」、あるいは「ビューが参照しているモデルの特定のコンポーネント」をキーにしてオブジェクトを特定しなければならない。

2. 堅牢な設計思想：Identification – Validation – Execution

プロフェッショナルな自動化エンジンは、以下の3フェーズを厳格に分離して設計する。

1. Identification（特定）: 座標や名前ではなく、一意の識別子（IDやカスタムプロパティ）を用いて対象の `View` オブジェクトを確実に捕捉する。
2. Validation（検証）: 捕捉したオブジェクトが、本当に「部分断面図」であるか、また操作可能な状態（読み取り専用でないか等）かをチェックする。
3. Execution（実行）: 最小限のAPIコールでパラメータを書き換え、最小限の描画更新で終了する。

3. 実装例：部分断面図制御エンジン

以下に、設計思想に基づいた、保守性の高いプロダクションコードの雛形を示す。ここでは、ビューに設定された「Custom Property」をキーにして、特定の深さを適用するロジックを実装している。

' ==============================================================================
' Module: DrawingAutomationEngine
' Description: 図面内の部分断面図のパラメータを制御する堅牢なエンジン
' Author: Chief Architect
' ==============================================================================

Option Explicit

' 定数定義：マジックナンバーを排除する
Private Const PROP_VIEW_ID As String = "Automation_ViewID" ' ビューを特定するためのカスタムプロパティ名
Private Const ERR_VIEW_NOT_FOUND As String = "Target View not found with the specified ID."
Private Const ERR_INVALID_VIEW_TYPE As String = "The selected view is not a Broken-out Section."

''' <summary>
''' 指定したIDを持つビューを探し、その切断深さを更新するメインルーチン
''' </summary>
''' <param name="targetID">ビューに付与された一意のID</param>
''' <param name="newDepth">適用する切断深さ (mm)</param>
Public Sub UpdateBrokenOutSectionDepth(ByVal targetID As String, ByVal newDepth As Double)
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swView As SldWorks.View
    Dim swAnn As SldWorks.Annotation
    Dim found As Boolean
    
    On Error GoTo ErrorHandler

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    ' 1. Context Validation: 図面ドキュメントであることを確認
    If swModel Is Nothing Then Exit Sub
    If swModel.GetType <> swDocDRAWING Then
        MsgBox "図面ファイルを開いた状態で実行してください。", vbCritical
        Exit Sub
    End If
    Set swDraw = swModel
    
    ' 2. Identification: 全ビューを走査してターゲットを特定
    ' SelectionMgrに頼らず、Viewオブジェクトの階層を辿るのがプロの流儀
    Set swView = swDraw.GetFirstView ' Sheet自体が最初のビューとして返る
    Set swView = swView.GetNextView  ' 最初の実際のビューへ移動
    
    found = False
    Do While Not swView Is Nothing
        ' カスタムプロパティを使用してビューを特定
        If GetViewCustomProperty(swView, PROP_VIEW_ID) = targetID Then
            found = True
            Exit Do
        End If
        Set swView = swView.GetNextView
    Loop
    
    If Not found Then
        Err.Raise vbObjectError + 1, "Engine", ERR_VIEW_NOT_FOUND
    End If
    
    ' 3. Validation: ビューの種類が適切か検証
    ' 部分断面図は特定のView属性を持つため、ここでガードをかける
    If Not IsBrokenOutSection(swView) Then
        Err.Raise vbObjectError + 2, "Engine", ERR_INVALID_VIEW_TYPE
    End If

    ' 4. Execution: パラメータの書き換え
    ' 注: 部分断面図の「深さ」はAPIの仕様上、モデル側のフィーチャ、
    ' もしくはビューの境界スケッチの制御が必要な場合が多い。
    ' ここでは概念的なパラメータ制御のフローを示す。
    Debug.Print "Target View Found: " & swView.Name
    
    ' --- 実務における重要ポイント ---
    ' 部分断面図の深さは、多くの場合「境界となるスケッチ」の幾何形状、
    ' または「参照している3Dモデルのフィーチャ」に依存する。
    ' 下記は、その制御の抽象化モデルである。
    
    PerformDepthAdjustment swView, newDepth
    
    ' 変更を反映するために再描画
    swModel.GraphicsRedraw2
    MsgBox "Update Successful: " & newDepth & " mm applied.", vbInformation

CleanUp:
    Exit Sub

ErrorHandler:
    MsgBox "Critical Error: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

' --- Private Helper Functions (Encapsulation) ---

''' <summary>
''' ビューのカスタムプロパティを取得する
''' </summary>
Private Function GetViewCustomProperty(ByRef swView As SldWorks.View, ByVal propName As String) As String
    Dim swAnnotation As SldWorks.Annotation
    Set swAnnotation = swView.GetAnnotation
    ' ViewのAnnotationからカスタムプロパティを取得するロジック
    ' (実際の実装では、Viewの属性やモデルのプロパティとの紐付けを行う)
    ' ここでは簡略化のため、ViewNameを返しているが、実務ではCustomPropertyManagerを使用
    GetViewCustomProperty = swView.Name ' 実装時はここをプロパティ取得ロジックに置き換え
End Function

''' <summary>
''' 対象ビューが部分断面図（Broken-out Section）であるかを判定
''' </summary>
Private Function IsBrokenOutSection(ByRef swView As SldWorks.View) As Boolean
    ' ビューのタイプを判定するロジック
    ' APIのリファレンスに基づき、ViewTypeを確認
    ' ここではロジックの骨子のみを示す
    IsBrokenOutSection = True ' 仮の戻り値
End Function

''' <summary>
''' 深さ調整の核心ロジック
''' </summary>
Private Sub PerformDepthAdjustment(ByRef swView As SldWorks.View, ByVal depth As Double)
    ' ここに、境界スケッチの押し出し深さを変更する、
    ' もしくはモデル側の切断フィーチャを制御するロジックを記述する。
    ' 描画の整合性を保つため、ここでの計算は高精度に行うこと。
    Debug.Print "Adjusting depth to: " & depth
End Sub

4. 現場で差がつく、運用上の重要アドバイス

① データベース・Excelとの連携における「型」の意識

実務では、切断深さのリストをExcelやSQLデータベースから取得することが多い。その際、「数値の精度」に細心の注意を払え。
Excelから取得した `Double` 型が、SolidWorksの内部計算（`0.000000001` の誤差）によって、意図しない「境界線上」の判定にならないよう、`Round` 関数による丸め処理、あるいは許容誤差（Epsilon）を用いた比較を徹底すること。

② パフォーマンスの重みを知れ

大量の図面をバッチ処理する場合、`swModel.GraphicsRedraw2` をループ内で呼び出すのは致命的な遅延を招く。
「計算はすべてメモリ上で行い、描画更新は最後に一度だけ行う」。これが、高速な自動化エンジンの鉄則だ。

③ エラーハンドリングは「親切」であれ

ユーザーが使うツールにおいて、`Error 424: Object Required` という無機質なエラーメッセージは、ツールの信頼性をゼロにする。
「どのビューで」「何が原因で（名前が違うのか、型が違うのか）」失敗したのかを、ロジカルに報告する設計にしろ。

結論

部分断面図の制御は、単なるAPIの呼び出しではない。それは、「幾何学的な整合性」と「オブジェクトのライフサイクル」を制御する設計作業である。

名前や座標に依存するコードを書くのは今日で終わりにしろ。
メタデータに基づき、検証プロセスを挟み、堅牢な構造を持つコードを書く。その差が、君を単なる「マクロ使い」から「エンジニアリング・アーキテクト」へと引き上げるのだ。