【実務・中級編】【中級者向け】断面図（Section View）の自動生成と切断線位置パラメータの動的制御 – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.10.28

【極限の知見】Section View自動生成の設計思想 ― `CreateSectionViewAt4` を使いこなす空間幾何学の制御

【極限の知見】Section View自動生成の設計思想 ― `CreateSectionViewAt4` を使いこなす空間幾何学の制御

多くの自動化エンジニアが、SolidWorks VBAのAPIに触れた際、最初に陥る罠がある。それは「メソッドを呼び出すこと自体をゴールにしてしまう」という致命的な勘違いだ。

特に図面（Drawing）操作における断面図（Section View）の生成は、単なる座標の入力ではない。それは「どのビューに対して」「どの空間平面で」「どの方向で」切断するかという、高度な空間幾何学の定義である。

本記事では、`DrawingDoc.CreateSectionViewAt4` を用いて、複雑なアセンブリ図面においてもバグを許さない、堅牢でスケーラブルな断面図生成の設計思想を伝授する。

1. なぜ君たちの断面図生成コードは「動かない」のか

現場で「断面図作成マクロ」をレビューすると、驚くほど多くのコードが「特定の図面でしか動かない」あるいは「実行するたびに断面の位置がズレる」という問題を抱えている。

その原因は、主に以下の3点に集約される。

1. 座標系の混同: シート座標系（Sheet Coordinates）と、ビュー座標系（View Coordinates）の区別がついていない。
2. ベクトルの正規化不足: 切断方向を指定する際の方向ベクトルが、意図した単位ベクトルとして扱われていない。
3. オブジェクトのライフサイクル管理不足: 生成された断面図ビュー（Section View）への参照を適切に保持せず、後続の加工（寸法記入や注釈）に失敗している。

プロフェッショナルなエンジニアは、これらを「仕様」としてコードに組み込む。

2. `CreateSectionViewAt4` の解剖学的理解

`CreateSectionViewAt4` は、従来のメソッドよりも詳細なパラメータを要求する。これは、制御の自由度が高い反面、設計ミスがそのままバグに直結することを意味する。

' メソッドのシグネチャ（概念）
CreateSectionViewAt4(
    View,                ' 切断の対象となるビュー
    X, Y, Z,             ' 切断平面上の点（切断線の起点）
    DX, DY, DZ,         ' 切断方向のベクトル
    TargetX, TargetY     ' 生成された断面図を配置するシート上の座標
)

ここで重要なのは、「切断方向（DX, DY, DZ）」は切断線そのものの方向ではなく、「切断平面の法線ベクトル」であるという点だ。ここを誤解しているエンジニアが多すぎる。断面図は「平面」で切り取るものであり、その平面を定義するのは法線ベクトルである。

3. 堅牢な設計パターン：データ駆動型アプローチ

実務レベルのツールを作るなら、座標をコード内にハードコード（直書き）するのは論外だ。Excelや外部データベースから「切断位置」「方向」「配置場所」を読み込むデータ駆動型（Data-Driven）の設計を採用せよ。

設計のフローは以下の通りであるべきだ。

1. Input Validation: 読み込んだ座標やベクトルが、対象ビューのバウンディングボックス内に収まっているか、ベクトルがゼロでないかを検証する。
2. Coordinate Transformation: 外部データ（Excel等）の座標系を、SolidWorksの図面座標系へ正確に変換する。
3. Atomic Execution: 断面図の生成から、配置、そしてリビルドまでを一つのアトミックな処理（失敗したらロールバック、あるいはエラー通知）として実装する。

4. プロダクション・クオリティのコード実装

以下に、実務でそのまま利用可能なレベルまで昇華させた、堅牢な断面図生成のテンプレートを示す。単なるコピペではなく、この「構造」を学んでほしい。

''
' @description: 指定されたビューに対して堅牢な断面図を生成する
' @param swDraw: 対象の DrawingDoc オブジェクト
' @param targetView: 切断対象の View オブジェクト
' @param cutPoint: 切断平面上の点 (Array of 3 Doubles: X, Y, Z)
' @param normalVec: 切断平面の法線ベクトル (Array of 3 Doubles: DX, DY, DZ)
' @param destX: 断面図を配置するシート上のX座標
' @param destY: 断面図を配置するシート上のY座標
' @return: 生成された Section View オブジェクト。失敗した場合は Nothing。
''
Function CreateRobustSectionView( _
    ByRef swDraw As SldWorks.DrawingDoc, _
    ByRef targetView As SldWorks.View, _
    ByRef cutPoint As Variant, _
    ByRef normalVec As Variant, _
    ByVal destX As Double, _
    ByVal destY As Double) As SldWorks.View

    On Error GoTo ErrorHandler

    Dim swModel As SldWorks.ModelDoc2
    Set swModel = swDraw
    
    ' --- 1. Pre-flight Check (事前検証) ---
    If targetView Is Nothing Then
        Debug.Print "Error: Target view is null."
        Exit Function
    End If
    
    ' ベクトルのノルム（長さ）を計算し、正規化を確認
    Dim magnitude As Double
    magnitude = Sqr(normalVec(0) ^ 2 + normalVec(1) ^ 2 + normalVec(2) ^ 2)
    
    If magnitude < 0.000001 Then
        Debug.Print "Error: Normal vector is zero. Invalid direction."
        Exit Function
    End If

    ' --- 2. Execution (実行) ---
    ' CreateSectionViewAt4 を呼び出し
    ' 引数: View, X, Y, Z, DX, DY, DZ, TargetX, TargetY
    Dim swNewSectionView As SldWorks.View
    Set swNewSectionView = swDraw.CreateSectionViewAt4( _
        targetView, _
        cutPoint(0), cutPoint(1), cutPoint(2), _
        normalVec(0), normalVec(1), normalVec(2), _
        destX, destY)

    If swNewSectionView Is Nothing Then
        Debug.Print "Error: CreateSectionViewAt4 failed. Check coordinates/context."
        Exit Function
    End If

    ' --- 3. Post-processing (事後処理) ---
    ' 生成直後のビューは不安定な場合があるため、リビルドを検討
    swModel.ForceRebuild3 True
    
    Set CreateRobustSectionView = swNewSectionView
    Exit Function

ErrorHandler:
    Debug.Print "Critical Error in CreateRobustSectionView: " & Err.Description
    Set CreateRobustSectionView = Nothing
End Function

' --- 実装テスト用メインルーチン ---
Sub TestSectionViewAutomation()
    Dim swApp As SldWorks.SldWorks
    Dim swDraw As SldWorks.DrawingDoc
    Dim swView As SldWorks.View
    Dim swSectionView As SldWorks.View
    
    Set swApp = Application.SldWorks
    Set swDraw = swApp.ActiveDoc
    
    If swDraw Is Nothing Then Exit Sub
    
    ' 1. 対象ビューの取得 (例として、最初のビューを取得)
    ' 実務では、ビュー名や属性から特定するロジックが必要
    Set swView = swDraw.GetFirstView ' Sheet自体が最初のView
    Set swView = swView.GetNextView  ' 最初のモデルビューへ
    
    If swView Is Nothing Then
        MsgBox "No model view found."
        Exit Sub
    End If

    ' 2. パラメータの設定 (本来はExcel等から取得)
    Dim myCutPoint(2) As Double:     myCutPoint(0) = 0.1: myCutPoint(1) = 0.1: myCutPoint(2) = 0#
    Dim myNormal(2) As Double:       myNormal(0) = 1#: myNormal(1) = 0#: myNormal(2) = 0# ' X軸方向の法線（YZ平面で切断）
    Dim posX As Double: posX = 0.2
    Dim posY As Double: posY = 0.2

    ' 3. 関数呼び出し
    Set swSectionView = CreateRobustSectionView(swDraw, swView, myCutPoint, myNormal, posX, posY)

    ' 4. 結果確認
    If Not swSectionView Is Nothing Then
        MsgBox "Section View successfully created: " & swSectionView.Name
    Else
        MsgBox "Failed to create Section View."
    End If
End Sub

5. アーキテクトからの助言：保守性を高めるために

このコードをプロダクション環境に投入する際、以下の3点を忘れないでほしい。

1. エラーハンドリングの階層化:
上記コードでは `Debug.Print` を使っているが、実用ツールではログファイルへの書き出し、あるいはユーザーへのダイアログ通知を実装せよ。
2. 単位系の厳格な管理:
SolidWorks APIは内部的に メートル (m) を使用する。Excelからミリメートル (mm) でデータを受け取る場合、必ず `mm / 1000` の変換を挟むロジックを、データ取得層（Data Access Layer）に隠蔽して実装すること。
3. 冪等性（Idempotency）の確保:
「同じスクリプトを2回実行しても、2つ目の断面図が同じ位置に重なって作られない」設計にせよ。実行前に、既存の断面図（名前による判定など）を削除、あるいは更新するロジックを含めるのが、真のプロフェッショナルだ。

自動化とは、単に作業を早くすることではない。「誰が、いつ、どのような環境で実行しても、常に同じ品質の結果が得られる仕組み」を構築することだ。

君たちのコードが、現場の混乱を鎮め、エンジニアを単純作業から解放することを期待している。