【入門編】【中級者向け】部品図とアセンブリ図で表題欄の社内承認フロー署名（スタンプ）を動的に切り替えるVBA – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.02

マクロ記録の先へ。図面の「魂」を制御する——動的表題欄コントロールの極意

マクロ記録の先へ。図面の「魂」を制御する——動的表題欄コントロールの極意

こんにちは。設計自動化の世界へようこそ。

「マクロの記録」ボタンを押し、一生懸命に操作を記録して、できたコードを眺めて「……で、これをどう応用すればいいんだ？」と立ち尽くしたことはありませんか？もしそうなら、おめでとうございます。あなたは今、プログラミングの入り口を突破し、「自動化エンジニア」への第一歩を踏み出したところです。

今日、私たちが挑むのは、単なる「文字の書き換え」ではありません。
「部品図か、アセンブリ図か」「プロジェクトの承認ステータスは何か」といった「文脈（コンテキスト）」を読み取り、図面の表題欄（タイトルブロック）を、まるで生きているかのように動的に変化させるという、極めて実戦的な制御ロジックです。

ここをマスターすれば、あなたの作るツールは「ただの便利機能」から「設計プロセスを司るインテリジェントなシステム」へと昇華します。さあ、深呼吸して、コードの深淵へ踏み込んでいきましょう。

1. 思考のフレームワーク：オブジェクトの「階層」を支配する

SolidWorks VBAを扱う上で、最も重要なのは「今、自分がどの階層のオブジェクトを触っているのか」を完全に把握することです。

多くの初学者が陥るミスは、`ModelDoc2`（ドキュメント全体）に対して、いきなり「表題欄の文字を変えろ」と命令してしまうことです。SolidWorksは非常に厳格な階層構造を持っています。

図面（Drawing）における情報の流れを、図解的に整理してみましょう。

[SolidWorks Application]
    └── [ModelDoc2] (開いているファイル全体)
          └── [DrawingDoc] (図面特有の機能)
                └── [Sheet] (図面シート)
                      ├── [View] (図面ビュー)
                      └── [BlockInstance] (★ここが表題欄の正体)
                            └── [Note] (★書き換えたい文字の正体)

表題欄は通常、「Block（ブロック）」という塊として配置されています。このブロックの中には、複数の「Note（注釈）」が埋め込まれています。
「署名を書き換える」とは、「図面からブロックを探し出し、その中にある特定の名前を持つNoteを探して、そのテキストを書き換える」というプロセスなのです。

2. 実践：動的署名切り替えロジックの実装

では、具体的なコードを見ていきましょう。
今回は、以下のシナリオを想定したロジックを構築します。

1. 図面が「部品図」か「アセンブリ図」かを判定する。
2. ステータス（例：検図済み）に応じて、署名欄のテキストを切り替える。
3. 条件に応じて「承認スタンプ」の代わりとなる注釈を動的に挿入する。

【極限のコード例】

Option Explicit

''
' 図面のコンテキストに応じて表題欄の署名を動的に制御するメインルーチン
''
Sub DynamicTitleBlockControl()
    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 swBlockInst As SldWorks.BlockInstance
    Dim swNote As SldWorks.Note
    Dim swAnnotation As SldWorks.Annotation
    
    Dim docType As Long
    Dim isAssembly As Boolean
    Dim approvalStatus As String
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    ' --- [Step 1: 安全装置] ドキュメントが図面かチェック ---
    If swModel Is Nothing Then Exit Sub
    If swModel.GetType <> swDocDRAWING Then
        MsgBox "図面ファイルを開いた状態で実行してください。", vbCritical
        Exit Sub
    End If
    
    Set swDraw = swModel
    Set swSheet = swDraw.GetCurrentSheet
    
    ' --- [Step 2: 文脈の解析] 部品図かアセンブリ図かを判定 ---
    ' 図面が参照しているモデルを取得する
    Dim swRefModel As SldWorks.ModelDoc2
    Set swRefModel = swDraw.GetReferenceModel
    
    If swRefModel Is Nothing Then
        MsgBox "参照モデルが見つかりません。", vbExclamation
        Exit Sub
    End If
    
    isAssembly = (swRefModel.GetType = swDocASSEMBLY)
    
    ' 本来は外部データベースやプロパティから取得すべき値（今回はデモ用に固定）
    approvalStatus = "APPROVED" 
    
    ' --- [Step 3: 表題欄（ブロック）へのアクセス] ---
    ' 図面ビューを走査して、最初のブロックインスタンスを探す
    ' ※通常、表題欄は「Sheet」直下の最初のビュー（または特殊なビュー）に紐付いています
    Set swView = swDraw.GetFirstView ' これはシート自体を表すビュー
    Set swView = swView.GetNextView ' 次のビュー（通常は最初の図面ビュー）へ
    
    ' ブロックが見つかるまでループ（設計ルールにより適宜調整）
    Do While Not swView Is Nothing
        If swView.IsBlock Then
            Set swBlockInst = swView.GetBlockInstance
            
            ' --- [Step 4: ブロック内のNoteを特定して書き換え] ---
            ' ブロック内の全注釈をチェック
            Dim swAnn As SldWorks.Annotation
            Set swAnn = swView.GetFirstAnnotation2
            
            Do While Not swAnn Is Nothing
                If swAnn.GetType = swAnnotationType_e.swAnnotationType_e.swNote Then
                    Set swNote = swAnn.GetSpecificAnnotation
                    
                    ' 特定のキーワード（例："DESIGNER"）を含む注釈を探す
                    ' ※実務では、Noteに「カスタムプロパティ」を持たせておくと確実です
                    If InStr(swNote.GetText, "DESIGNER") > 0 Then
                        If isAssembly Then
                            swNote.SetText "LEAD ENGINEER" ' アセンブリなら主担当
                        Else
                            swNote.SetText "DESIGNER"      ' 部品図なら設計者
                        End If
                    End If
                    
                    ' 承認ステータスに応じたスタンプ（文字）の制御
                    If InStr(swNote.GetText, "STATUS") > 0 Then
                        swNote.SetText "STATUS: " & approvalStatus
                        ' 承認済みなら文字色を赤くするなどの演出も可能
                        swAnn.SetColor 255, 0, 0 
                    End If
                End If
                Set swAnn = swAnn.GetNext
            Loop
            
            ' ブロックが見つかったので処理終了
            Exit Do
        End If
        Set swView = swView.GetNextView
    Loop

    ' 画面を更新して変更を反映
    swModel.ForceRebuild3 True
    MsgBox "表題欄の更新が完了しました。", vbInformation

End Sub

3. 伝説のエンジニアが教える「陥りやすい落とし穴」

このコードを動かす際、あるいは自分で拡張する際に、絶対に避けて通れない「壁」が3つあります。

① 「SelectionManager」への依存しすぎ

マクロの記録を使うと、`swModel.Extension.SelectByID2` というコードが大量に出てきます。これは「今、マウスで選択しているもの」を操作する命令です。
しかし、自動化プログラムにおいて「ユーザーがどこを選択しているか」は制御不能な変数です。
「選択（Selection）」ではなく、「参照（Reference）」を使ってオブジェクトを特定してください。 上記コードのように、`GetFirstView` や `GetNextView` を使ってツリーを辿る手法が、プロフェッショナルへの道です。

② ブロック内のNote特定問題

「表題欄の特定の場所を書き換えたい」とき、単に「2番目のNote」のように指定するのは極めて危険です。設計者がブロックを編集してNoteの順番が変わった瞬間に、マクロは破壊されます。
対策： SolidWorksのブロック内で、書き換えたいNoteに「固有のテキスト（例：`$PRP:”DESIGNER”` や特定のタグ）」を入れておくか、Noteのプロパティにカスタム情報を埋め込んでおく設計思想を持ってください。

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

大規模なアセンブリ図面で大量のループを回すと、動作が重くなることがあります。
`swModel.ForceRebuild3`（再構築）は、必ず「すべての書き換えが終わった最後の一回」だけにしてください。ループの中で毎回再構築を呼ぶのは、ブレーキを踏みながらアクセルを全開にするようなものです。

4. まとめ：自動化の先にあるもの

今回学んだ「文脈に応じた動的な制御」は、設計業務のミスを劇的に減らし、図面の品質を一定に保つための強力な武器になります。

階層構造を理解すること
「選択」ではなく「参照」でオブジェクトを掴むこと
設計のルール（ブロックの作り方）とコードを同期させること

これらがクリアできれば、あなたのVBAはもはや単なるスクリプトではなく、「設計の意思を持ったシステム」へと進化します。

「ここまでは分かったけれど、自分の環境では動かない」ということがあっても、決して諦めないでください。エラーメッセージは、SolidWorksがあなたに送っている「もっと構造を深く理解してほしい」というラブレターなのですから。

次は、もっと複雑な「図面レイアウトの自動生成」に挑戦してみましょう。楽しみにしていますよ。