【テクニカル・上級編】【初心者向け】図面作成時の単位系（ミリメートル/インチ）を強制適用する初期設定VBAマクロ – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.10.30

精度への規律：SolidWorks 図面自動生成における単位系強制制御の極致

精度への規律：SolidWorks 図面自動生成における単位系強制制御の極致

設計自動化のパイプラインを構築する際、我々エンジニアが最も忌むべきは「曖昧さ」である。

新規図面を生成する際、ユーザーのローカル環境やテンプレートの設定に依存して単位系（ミリメートルかインチか）が揺らぐことは、単なる操作ミスではない。それは、後続のCAM工程やPLMシステム、あるいは製造現場における致命的な欠陥（Fatal Defect）へのトリガーとなる。

本稿では、単に「単位を変えるコード」を提示するのではない。プロフェッショナルとして、いかにして決定論的（Deterministic）な図面生成を実現し、メモリ管理とオブジェクトのライフサイクルを制御して、堅牢な自動化システムを構築するか。その真髄を解説する。

1. 概念的設計：System Options vs Document Properties

設計者が陥りやすい罠がある。それは「System Options（システムオプション）」と「Document Properties（ドキュメントプロパティ）」の混同だ。

System Options: SolidWorksアプリケーション全体の動作設定。ユーザーのPC環境に依存する。
Document Properties: ファイルそのものに紐付く属性。ファイルが他者に渡っても維持される。

自動化エンジニアが目指すべきは、後者である。テンプレートが万が一、インチ設定で作られていたとしても、VBAによってドキュメントプロパティを直接上書きし、ISO規格（ミリメートル）を強制する。これが、システム間の整合性を担保する唯一の手段である。

2. 実装：堅牢な単位系強制制御スクリプト

以下に、実戦投入に耐えうるコード構造を示す。単なる手続き型ではなく、エラーハンドリングとリソース解放を徹底したアーキテクチャである。

''**
'' Module: DrawingAutomationCore
'' Author: Chief Architect
'' Description: 図面生成時の単位系強制適用およびメモリ最適化の実装
''**

Option Explicit

' SolidWorks API Constants (必要に応じて定義)
Private Const swDocDRAWING As Long = 3
Private Const swUnitSystem_MMGS As Long = 1 ' Millimeter, Gram, Second

''' <summary>
''' 新規図面を作成し、単位系をミリメートル(MMGS)に強制設定する
''' </summary>
Public Sub CreateStandardizedDrawing()
    ' オブジェクト宣言（明示的な型定義）
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDrawing As SldWorks.DrawingDoc
    Dim swExt As SldWorks.ModelDocExtension
    Dim boolstatus As Boolean
    
    ' エラーハンドリングの開始
    On Error GoTo ErrorHandler

    ' 1. SolidWorks インスタンスへの接続
    ' 既に起動しているインスタンスを取得する、あるいは新規に立ち上げる
    Set swApp = GetSolidWorksApplication()
    If swApp Is Nothing Then
        MsgBox "SolidWorks インスタンスへの接続に失敗しました。", vbCritical
        Exit Sub
    End If

    ' 2. 新規図面ドキュメントの生成
    ' テンプレートパスは環境に合わせて動的に管理すべきだが、ここでは標準を使用
    ' ※本来は、社内標準のテンプレートパスを引数で渡す設計が望ましい
    Set swModel = swApp.NewDocument("", 0, 0, 0)
    
    If swModel Is Nothing Then
        Err.Raise vbObjectError + 513, "CreateStandardizedDrawing", "図面ドキュメントの生成に失敗しました。"
    End If

    ' 型のキャスト
    Set swDrawing = swModel
    Set swExt = swModel.Extension

    ' 3. 単位系の強制適用 (Document Propertiesの操作)
    ' ここで System Options ではなく、ドキュメント固有のプロパティを書き換える
    ' swUnitSystem_MMGS を指定することで、ISO規格に基づいたミリメートル系を確定させる
    boolstatus = swExt.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, swUnitSystem_MMGS)

    If Not boolstatus Then
        Err.Raise vbObjectError + 514, "CreateStandardizedDrawing", "単位系の設定に失敗しました。"
    End If

    ' 4. 完了通知と保存処理（デモ用）
    Debug.Print "Drawing created successfully with MMGS units."
    
    ' -------------------------------------------------------------------------
    ' 正常終了時のクリーンアップ
    ' -------------------------------------------------------------------------
CleanUp:
    ' オブジェクトの明示的な解放
    ' VBAのガベージコレクションに頼らず、COMオブジェクトの参照カウントを確実に減らす
    Set swDrawing = Nothing
    Set swExt = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
    Exit Sub

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

''' <summary>
''' SolidWorks インスタンスを取得するヘルパー関数
''' </summary>
Private Function GetSolidWorksApplication() As SldWorks.SldWorks
    Dim swApp As Object
    On Error Resume Next
    ' 実行中のSolidWorksを取得
    Set swApp = GetObject(, "SldWorks.Application")
    If Err.Number <> 0 Then
        ' 起動していなければ新規に作成
        Set swApp = CreateObject("SldWorks.Application")
        swApp.Visible = True
    End If
    On Error GoTo 0
    Set GetSolidWorksApplication = swApp
End Function

3. アーキテクトの視点：極限の安定性を実現するための知見

このコードを単なる「動くスクリプト」から「信頼できるシステム」へと昇華させるには、以下の3点に留意せよ。

A. オブジェクトのライフサイクル管理（Memory Management）

VBAはCOM（Component Object Model）を介してSolidWorksと通信する。大規模な自動化処理（例：数千枚の図面を連続生成するバッチ処理）において、`Set swModel = Nothing` を怠れば、メモリリークが発生し、最終的にSolidWorksはプロセスのハングアップ、あるいはOSのメモリ枯渇を引き起こす。
「使い終わったオブジェクトは、即座に、かつ明示的に破棄する」。これは、レガシーなVBA環境において、モダンなアプリケーションと同等の安定性を確保するための鉄則である。

B. 決定論的なエラーハンドリング

`On Error Resume Next` を安易に使用してはならない。それはエンジニアの敗北を意味する。エラーが発生した際、それが「ファイルアクセス権限の問題」なのか「APIの引数エラー」なのか「メモリ不足」なのかを切り分け、適切に `Err.Raise` でスローし、`CleanUp` ラベルへ誘導する構造（Try-Catch-Finallyパターン）を維持せよ。

C. テンプレート依存からの脱却

シニアエンジニアであれば、テンプレートの品質に依存しない設計を心がけるべきだ。テンプレートが正しく設定されていることを前提とするのではなく、「テンプレートがどうあれ、スクリプトが最終的な真実（Single Source of Truth）を定義する」。今回の `SetUserPreferenceInteger` による強制書き換えは、まさにその思想に基づいている。

結語

図面自動化の真価は、見た目の華やかさではなく、その「再現性」と「堅牢性」に宿る。
単位系一つを制御すること。その微細な規律の積み重ねが、大規模な製造システムにおける信頼の礎となるのである。