【実務・中級編】【初心者向け】図面シートの「プロパティ」から投影図のデフォルト尺度を一括変更するVBAマクロ – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.15

凡庸な自動化を脱却せよ：SolidWorks図面における「尺度制御」の設計思想

凡庸な自動化を脱却せよ：SolidWorks図面における「尺度制御」の設計思想

設計現場において、図面の「尺度（Scale）」のミスは単なる書き損じではない。それは製造工程における誤解を生み、最悪の場合、高額な廃棄コストを発生させる「設計品質の欠陥」である。

多くの初学者が作成するマクロは、「動けばいい」という思想で作られている。しかし、プロフェッショナルが求めるのは、例外的な状況下でも、あるいは大量のシートが存在する場合でも、一貫した挙動を示す「堅牢な（Robust）設計」だ。

本記事では、図面シートのプロパティを操作し、投影図の尺度を一括で制御するマクロを通じて、単なるコードの書き方ではなく、「バグを生まないためのオブジェクト制御」の極意を伝授する。

1. 階層構造を理解せよ：DrawingDoc / Sheet / View の責務

SolidWorks APIを扱う上で、最も致命的なミスは「オブジェクトの階層（Hierarchy）への理解不足」だ。図面操作において、我々は以下の3層構造を常に意識しなければならない。

1. DrawingDoc (図面ドキュメント): ファイル全体を統括するルート。
2. Sheet (シート): 図面用紙そのもの。ここには「シート尺度」という概念がある。
3. View (ビュー): 投影図。個別の「ビュー尺度」を持つ。

初心者は「シートの尺度を変えれば、全てのビューが変わる」と誤解しがちだが、これは半分正解で半分間違いだ。ビューが「シート尺度を使用」設定になっていれば連動するが、「カスタム尺度」に設定されているビューは、シートの尺度変更の影響を受けない。

プロフェッショナルの設計思想：
「シートの尺度を変える」だけでなく、「全てのビューの状態をスキャンし、意図した尺度に強制（Enforce）する」。これが、手動設定ミスを根絶するための正しいアプローチだ。

2. 堅牢なプロダクションコード：尺度一括制御マクロ

以下に、実務で使用することを想定した、エラーハンドリングとメモリ管理を徹底したコードを示す。単なるコピペで終わらせず、コメントを通じて「なぜこのように書くのか」を読み解いてほしい。

'**
' Module: DrawingScaleEnforcer
' Description: アクティブなシート内の全てのビューに対して、指定した尺度を強制適用する
' Author: Chief Architect
'**

Option Explicit

' 尺度の定義（実務では外部ファイルやExcelから取得するのが理想）
Private Const TARGET_NUMERATOR As Long = 1   ' 分子
Private Const TARGET_DENOMINATOR As Long = 2 ' 分母 (例: 1:2)

Sub Main()
    ' 1. オブジェクト変数の宣言
    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 swSelMgr As SldWorks.SelectionMgr
    
    ' エラーハンドリングの開始
    On Error GoTo ErrorHandler

    ' 2. SolidWorksへの接続
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    ' 3. ドキュメント型のバリデーション（極めて重要）
    ' 図面ファイルでない場合に処理を中断させ、ランタイムエラーを防ぐ
    If swModel Is Nothing Then
        MsgBox "ドキュメントが開かれていません。", vbCritical
        Exit Sub
    End If

    If swModel.GetType <> swDocDRAWING Then
        MsgBox "このマクロは図面ファイル専用です。", vbExclamation
        Exit Sub
    End If

    Set swDraw = swModel
    
    ' 4. アクティブなシートの取得
    Set swSheet = swDraw.GetCurrentSheet
    If swSheet Is Nothing Then
        MsgBox "有効なシートが見つかりません。", vbCritical
        Exit Sub
    End If

    ' 5. シート自体の尺度を設定
    ' これにより、新規ビュー作成時のデフォルト値を制御する
    swSheet.SetScale2 TARGET_NUMERATOR, TARGET_DENOMINATOR
    
    ' 6. シート内のビューを走査し、尺度を強制適用
    ' GetFirstViewは「シート自体」を指すため、次のViewからが実際の投影図となる
    Set swView = swDraw.GetFirstView ' シート(Sheet)オブジェクトを取得
    Set swView = swView.GetNextView  ' 最初の投影図(View)へ移動

    Dim viewCount As Integer
    viewCount = 0

    Do While Not swView Is Nothing
        ' ビューの尺度を設定
        ' 注意: ここではカスタム尺度として強制的に書き込む
        swView.Scale = TARGET_NUMERATOR / TARGET_DENOMINATOR
        
        viewCount = viewCount + 1
        Set swView = swView.GetNextView
    Loop

    ' 7. 画面の再描画（ユーザーへのフィードバック）
    swModel.ForceRebuild3 True
    
    MsgBox "処理完了: " & viewCount & " 個のビューの尺度を " & _
           TARGET_NUMERATOR & ":" & TARGET_DENOMINATOR & " に変更しました。", vbInformation

CleanUp:
    ' 8. オブジェクトの解放（メモリリーク防止）
    ' 大規模な自動化プロセスでは、明示的な解放がパフォーマンスを左右する
    Set swView = Nothing
    Set swSheet = Nothing
    Set swDraw = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
    Exit Sub

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

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

このコードを単なる「尺度変更ツール」として片付けてはいけない。設計の肝は以下の3点にある。

① 型チェック（Validation）による防御的プログラミング

`swModel.GetType <> swDocDRAWING` のチェックを忘れるな。もし部品（Part）ファイルを開いた状態でこのマクロを実行すれば、APIは即座にクラッシュし、ユーザーの作業内容は失われる。「不正な入力に対して、いかに優雅に（Gracefully）終了するか」が、プロのコードの境界線だ。

② `GetFirstView` と `GetNextView` の挙動の掌握

SolidWorks APIの罠の一つに、`GetFirstView` が「図面シートそのもの」を返すという仕様がある。これを知らずにループを回すと、シートに対してビューのプロパティを操作しようとしてエラーを吐く。この「オフセット」を理解しているかどうかが、API習熟度の分かれ目だ。

③ メモリ管理とリビルドのコスト

`swModel.ForceRebuild3 True` は強力だが、重い。大規模なアセンブリ図面でこれを多用すると、マクロの実行速度は著しく低下する。本コードでは、全ての処理が終わった最後に一度だけ実行している。計算量を最小限に抑える（Minimize Computational Complexity）ことは、自動化エンジニアの至上命題だ。

4. 実務への応用：データベース・連携への展望

このマクロをさらに進化させるなら、次は「ハードコード（直接記述）」を捨てることだ。

Excel連携: `TARGET_NUMERATOR` などの定数を、Excelの「設計標準リスト」から読み込むように変更する。
PDM連携: PDM（管理システム）の属性情報を参照し、図面のタイトルブロックの内容に応じて尺度を自動判定させる。

これらを実現したとき、君のマクロは単なる「便利ツール」から、「設計プロセスの一部を担うインフラ」へと昇華する。

まとめ

自動化とは、単に作業を速くすることではない。「人間がミスを犯す余地を、設計段階から排除すること」である。

今回の「尺度一括制御」は、その第一歩に過ぎない。常に「このコードは、想定外のファイルで動いても安全か？」「この処理は、1000枚の図面に対しても耐えられるか？」と自問自答し続けなさい。

幸運を。