【実務中級】SolidWorks VBAでアセンブリのカスタムプロパティを一括監査！製造データ連携を完璧にするバリデーションツール開発
製造現場へのデータ連携、それは設計者の腕の見せ所であり、同時に多くの落とし穴が潜む領域です。特に、アセンブリを構成する個々のパーツに設定されたカスタムプロパティ（材料、仕上げ、担当者など）が、製造工程で要求される仕様を満たしているかどうかの確認は、手作業では膨大な時間と労力を要し、ヒューマンエラーのリスクも避けられません。
「このアセンブリ、必要な情報が全部揃ってるか、一目で確認したい…」
「未入力のカスタムプロパティがあるパーツだけ、パッと見つけたい…」
そんな悩みを抱えるあなたへ。本稿では、SolidWorks VBAを駆使して、アセンブリ内のパーツごとに異なるカスタムプロパティが一括設定されているかを自動監査し、未入力項目がある場合は該当部品をハイライトする、実務で即戦力となるバリデーションツール開発の極意を伝授します。
なぜ、このバリデーションが重要なのか？
製造業におけるデータ連携の不備は、手戻り、コスト増、納期遅延といった深刻な問題を引き起こします。特に、カスタムプロパティは、材料調達、加工指示、品質管理など、後工程の意思決定に不可欠な情報源です。これらの情報が欠落していたり、誤っていたりすると、製造ラインは混乱し、最悪の場合、不良品を生み出す原因となります。
従来の課題とVBAによる解決策
- 手作業での確認:
- 膨大な時間と労力
- ヒューマンエラー（見落とし、入力ミス）のリスク
- 担当者やプロジェクトによって確認基準が曖昧になりがち
- VBAによる自動化:
- 高速かつ正確な監査: 人間の目では追えないスピードと精度で全パーツをチェック。
- 標準化された確認プロセス: 事前に定義したルールに基づき、客観的な判断が可能。
- 可視化による迅速な問題特定: 未入力項目のあるパーツをハイライトし、修正箇所を明確化。
- データ連携の信頼性向上: 製造工程へのデータ受け渡し前に、品質を担保。
設計思想：堅牢性と保守性を両立させる
プロダクションコードとして、単に動けば良いという考え方は禁物です。バグの温床となり、将来的な改修コストを跳ね上げます。ここで、我々が目指すべきは、「堅牢性」と「保守性」を両立させた設計です。
1. オブジェクトのライフサイクルを理解する
SolidWorks APIを扱う上で、オブジェクトの生成、参照、解放といったライフサイクル管理は極めて重要です。特に、ループ処理で多数のオブジェクトを生成・参照する場合、メモリリークや予期せぬエラーの原因となり得ます。
- `Nothing` による解放: 使用し終わったオブジェクト変数には、明示的に `Nothing` を代入し、メモリを解放することを習慣づけましょう。これは、特に大きなアセンブリや多数のパーツを処理する際に、パフォーマンスへの影響を最小限に抑えるための基本中の基本です。
- `Set` ステートメントの適切な使用: オブジェクト変数を代入する際には、`Set` ステートメントを必ず使用します。これを使わないと、単なる値のコピーとみなされ、期待通りのオブジェクト参照が得られません。
2. エラーハンドリングは「最初から」組み込む
「エラーなんて、後からでも直せる」という考えは、開発プロジェクトを破綻させる典型的なパターンです。SolidWorks APIは、予期せぬ状態（ファイルが開かれていない、必要なカスタムプロパティが存在しないなど）でエラーを発生させやすい特性があります。
- `On Error Resume Next` の濫用は避ける: このステートメントは、エラー発生時にコードの実行を継続させますが、問題の原因特定を困難にし、バグを見つけにくくします。
- `On Error GoTo Handler` による構造化: エラー発生時に特定のラベルへ処理を移し、エラー内容をログに記録したり、ユーザーに分かりやすく通知したりする、構造化されたエラーハンドリングを実装しましょう。これにより、問題発生時のデバッグが格段に容易になります。
3. 外部連携における注意点
データベースやファイルシステムとの連携は、SolidWorks APIだけでは完結しない、より複雑な要素を含みます。
- ファイルパスの絶対パス/相対パス: ツールを配布する環境を考慮し、ファイルパスの扱いは慎重に。可能であれば、相対パスを使用し、ツールの配置場所による依存性を低減させるのが賢明です。
- データベーストランザクション: データベースへの書き込みは、トランザクションを適切に管理し、データの整合性を保つことが最重要です。エラー発生時には、ロールバック処理を確実に実行しましょう。
- ロック機構: 複数のプロセスやユーザーが同時にファイルやデータベースにアクセスする場合、ロック機構の導入は必須です。競合状態を防ぎ、データ破壊を防ぎます。
実践！カスタムプロパティ監査ツールのVBAコード例
それでは、具体的なコードを見ていきましょう。このコードは、指定されたアセンブリファイルを開き、その構成パーツのカスタムプロパティをチェックし、未入力の項目をログに出力するものです。
準備：カスタムプロパティ定義の確認
まず、監査対象となるカスタムプロパティの「名前」を明確に定義しておく必要があります。例えば、「材料」「仕上げ」「製造工程」などです。これらの名前は、アセンブリファイルやパーツファイルで、大文字・小文字を含めて完全に一致している必要があります。
‘===============================================================================
‘ Subroutine: ValidateAssemblyCustomProperties
‘ Description: アセンブリ内のパーツのカスタムプロパティを一括監査する
‘ Author: Your Name
‘ Date: YYYY-MM-DD
‘===============================================================================
Option Explicit
‘—– 定数定義 —–
‘ 監査対象とするカスタムプロパティの名前を配列で定義します。
‘ これらの名前は、SolidWorksファイル内のカスタムプロパティ名と完全に一致させる必要があります。
‘ (大文字・小文字も区別されます)
Private Const REQUIRED_PROPERTIES As String = “材料,仕上げ,製造工程,担当者”
‘—– グローバル変数 —–
‘ SolidWorksアプリケーションオブジェクト
Private swApp As SldWorks.SldWorks
‘ アクティブなドキュメント（アセンブリ）
Private swModel As SldWorks.ModelDoc2
‘ アクティブなアセンブリドキュメント
Private swAssembly As SldWorks.AssemblyDoc
‘ エラーハンドラー用ラベル
Private Const ERR_HANDLER As Long = 1000
Sub main()
Dim swSelMgr As SldWorks.SelectionMgr
Dim swPart As SldWorks.ModelDoc2
Dim swComp As SldWorks.Component2
Dim vComponents As Variant
Dim i As Long
Dim sComponentName As String
Dim sFileName As String
Dim sLogMessage As String
Dim sMissingProperties As String
Dim arrRequiredProps() As String
Dim bPropertyExists As Boolean
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim vCustomPropNames As Variant
Dim j As Long
‘——— 初期化 ———
On Error GoTo ErrorHandler ‘ エラーハンドラーを設定
‘ SolidWorksアプリケーションオブジェクトを取得
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox “SolidWorksが起動していません。”, vbCritical
Exit Sub
End If
‘ アクティブなドキュメントを取得
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “開いているドキュメントがありません。”, vbCritical
Exit Sub
End If
‘ アクティブドキュメントがアセンブリか確認
If swModel.GetType <> swDocumentTypes_e.swDocASSEMBLY Then
MsgBox “アクティブなドキュメントはアセンブリではありません。”, vbCritical
Exit Sub
End If
Set swAssembly = swModel ‘ アセンブリオブジェクトとしてキャスト
‘—– 監査処理開始 —–
Debug.Print “— カスタムプロパティ監査開始 —”
‘ 必須プロパティの配列を分割
arrRequiredProps = Split(REQUIRED_PROPERTIES, “,”)
‘ アセンブリ内の全コンポーネントを取得
vComponents = swAssembly.GetComponents(True) ‘ True: 再帰的に取得
If IsEmpty(vComponents) Then
Debug.Print “アセンブリ内にコンポーネントが見つかりませんでした。”
GoTo Cleanup
End If
‘ 各コンポーネントをループ処理
For i = LBound(vComponents) To UBound(vComponents)
Set swComp = vComponents(i)
sComponentName = swComp.Name2 ‘ コンポーネント名（例: “Part1@Assembly1/1″）
‘ コンポーネントのモデルドキュメントを取得
Set swPart = swComp.GetModelDoc2
If Not swPart Is Nothing Then
sFileName = swPart.GetPathName ‘ ファイルパスを取得
‘ コンポーネント名とファイル名を出力
Debug.Print “[” & sComponentName & “] (” & sFileName & “)”
‘ カスタムプロパティマネージャーを取得
‘ パーツファイル自体のカスタムプロパティを対象とする（コンフィギュレーション特有ではない）
Set swCustPropMgr = swPart.Extension.CustomPropertyManager(“”) ‘ “” はデフォルトコンフィギュレーション
‘ 必須カスタムプロパティの存在と値を確認
sMissingProperties = “” ‘ 今回のパーツで不足しているプロパティを格納
For j = LBound(arrRequiredProps) To UBound(arrRequiredProps)
Dim sPropName As String
sPropName = Trim(arrRequiredProps(j)) ‘ 前後の空白を除去
‘ プロパティが存在するかどうかを確認
‘ Get() メソッドは、プロパティが存在しない場合、第二引数にエラーコードを返す
Dim sPropValue As String
Dim lPropType As Long
swCustPropMgr.Get sPropName, sPropValue, lPropType
‘ SolidWorks APIの慣例として、プロパティが存在しない場合はエラーコードとして1が返る場合がある
‘ より確実なのは、Get()で値を取得してみて、空文字列かどうかで判断すること
‘ ただし、空文字列が許容される場合もあるので、要件に応じて調整が必要
If sPropValue = “” Then
‘ プロパティが存在しない、または値が空の場合
sMissingProperties = sMissingProperties & sPropName & “, ”
End If
Next j
‘ 不足しているプロパティがあればログに出力
If sMissingProperties <> “” Then
sMissingProperties = Left(sMissingProperties, Len(sMissingProperties) – 2) ‘ 末尾の “, ” を削除
sLogMessage = ” -> 不足カスタムプロパティ: [” & sMissingProperties & “]”
Debug.Print sLogMessage
‘ — ここで、該当パーツをハイライトする処理を実装 —
‘ 例: 選択セットに追加する
‘ swComp.Select True, Nothing ‘ コンポーネントを選択 (モデルツリー上の表示)
‘ または、カスタムプロパティにフラグを設定するなど、より高度な処理も可能
Else
‘ 全ての必須プロパティが入力されている場合
Debug.Print ” -> 全ての必須カスタムプロパティが入力されています。”
End If
Else
‘ モデルドキュメントが取得できない場合（例: リンク切れ）
Debug.Print ” -> Warning: モデルドキュメントを取得できませんでした (リンク切れの可能性)。”
End If
‘ オブジェクトの解放 (ループ内で不要になったオブジェクト)
Set swPart = Nothing
Set swCustPropMgr = Nothing
Set swComp = Nothing
Next i
Debug.Print “— カスタムプロパティ監査完了 —”
Cleanup:
‘——— クリーンアップ ———
‘ オブジェクト変数を解放
Set swCustPropMgr = Nothing
Set swAssembly = Nothing
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
‘——— エラーハンドリング ———
Dim sErrorDescription As String
sErrorDescription = “エラー発生: ” & Err.Number & ” – ” & Err.Description
‘ エラーメッセージをログに出力
Debug.Print sErrorDescription
‘ ユーザーにエラーを通知
MsgBox sErrorDescription & vbCrLf & “処理を中断しました。”, vbCritical
‘ クリーンアップ処理を呼び出す
GoTo Cleanup
End Sub
コード解説と「なぜそう書くのか」
1. `Option Explicit`:
- 理由: 変数宣言を強制し、タイプミスによる意図しない変数の生成を防ぎます。これは、バグを早期に発見するための最も基本的な、しかし強力な手段です。
2. 定数 `REQUIRED_PROPERTIES`:
- 理由: 監査対象のカスタムプロパティ名を、コードの冒頭で一元管理します。これにより、プロパティ名が変更された場合でも、この定数部分だけを修正すればよくなり、保守性が劇的に向上します。カンマ区切りは、後で `Split` 関数で簡単に配列に変換するためです。
3. `swApp`, `swModel`, `swAssembly` オブジェクト:
- 理由: SolidWorksアプリケーション、アクティブなドキュメント、そしてアセンブリドキュメントへの参照を保持します。これらのオブジェクトは、SolidWorks APIの操作の起点となります。`Set` を使って明示的に代入している点に注目してください。
4. `swModel.GetType` によるドキュメントタイプチェック:
- 理由: コードがアセンブリドキュメントに対して実行されていることを確認します。これにより、意図しないドキュメントタイプでの実行によるエラーを防ぎます。
5. `swAssembly.GetComponents(True)`:
- 理由: `True` を指定することで、サブアセンブリ内のコンポーネントも再帰的に取得します。これにより、アセンブリの階層構造に関わらず、全てのパーツを網羅的にチェックできます。
6. `swComp.GetModelDoc2`:
- 理由: 各コンポーネント（パーツまたはサブアセンブリ）の `ModelDoc2` オブジェクトを取得します。これを通じて、そのパーツファイル自体のカスタムプロパティにアクセスできるようになります。
7. `swPart.Extension.CustomPropertyManager(“”)`:
- 理由: `CustomPropertyManager` オブジェクトは、カスタムプロパティの管理（取得・設定）を行うためのインターフェースです。引数 `””` は、デフォルトのコンフィギュレーションのプロパティを指します。もし特定のコンフィギュレーションのプロパティを対象にする場合は、そのコンフィギュレーション名を指定します。
8. `swCustPropMgr.Get sPropName, sPropValue, lPropType`:
- 理由: 指定したプロパティ名 (`sPropName`) を持つカスタムプロパティの値 (`sPropValue`) を取得します。プロパティが存在しない場合、`sPropValue` は空文字列になることを利用して、プロパティの有無（または値の入力有無）を判定しています。APIによっては、エラーコードを返す場合もありますが、値が空であるかのチェックは、より汎用的で安全な方法です。
9. `sMissingProperties` の構築と `Left()` による末尾削除:
- 理由: 複数の不足プロパティがある場合、それらをカンマ区切りでリストアップします。ループの最後に付いてしまう余分なカンマとスペースを `Left()` 関数で取り除くことで、整形されたログメッセージを作成しています。
10. エラーハンドリング (`On Error GoTo ErrorHandler` と `ErrorHandler` ラベル):
- 理由: SolidWorks APIは、ファイルが見つからなかったり、権限がない場合など、様々な状況でエラーを発生させます。`On Error GoTo ErrorHandler` でエラー発生時のジャンプ先を指定し、`ErrorHandler` ラベル以下で、エラー番号と説明を取得してログに出力し、ユーザーに通知しています。これにより、予期せぬエラーでマクロが突然終了するのを防ぎ、問題の特定と解決を容易にします。
11. オブジェクトの明示的な解放 (`Set … = Nothing`):
- 理由: ループ内で生成・参照されたオブジェクト（`swComp`, `swPart`, `swCustPropMgr` など）は、不要になった時点で `Nothing` を代入して解放します。これにより、メモリ使用量を抑え、パフォーマンスの低下やメモリリークを防ぎます。特に、大規模なアセンブリを処理する際には、この習慣が極めて重要になります。
ハイライト処理の実装について
上記のコード例では、不足プロパティが見つかった場合の「ハイライト」処理はコメントアウトしています。実際の業務でどのように「ハイライト」したいかに応じて、以下のいずれかの方法を検討してください。
- モデルツリーでの選択: `swComp.Select True, Nothing` のようなコードで、該当コンポーネントを一時的に選択状態にする。
- カスタムプロパティへのフラグ追加: 不足プロパティがあることを示すカスタムプロパティ（例: `監査結果 = “NG”`) をパーツに追加する。
- 外部ログファイルへの詳細記録: 不足プロパティのあるパーツ名、ファイルパス、不足プロパティ名などを、テキストファイルやCSVファイルに詳細に記録する。
データベース連携の落とし穴と回避策
もし、カスタムプロパティの情報をデータベースで管理している場合、VBAからデータベースにアクセスすることになります。この際、いくつかの注意点があります。
- ODBC/OLE DB: SolidWorks VBAからデータベースにアクセスするには、ODBC (Open Database Connectivity) または OLE DB (Object Linking and Embedding Database) といった技術を利用します。
- 接続文字列の管理: データベースへの接続文字列は、パスワードなどの機密情報を含むため、ハードコーディングは避けるべきです。設定ファイルや、Windowsの認証機能を利用することを検討してください。
- トランザクション管理: 複数のレコードを更新する場合、必ずトランザクションを明示的に開始し、コミットまたはロールバックする必要があります。エラーが発生した場合に、データの一貫性を保つためにロールバックは不可欠です。
- パフォーマンス: 大量のデータを一度に取得・更新しようとすると、パフォーマンスが著しく低下する可能性があります。バッチ処理や、必要なデータだけを取得するようなクエリの最適化が必要です。
vb.netによる拡張性
SolidWorks APIはVBAだけでなく、VB.NETからも利用可能です。VB.NETを使用すると、より高度なUI（ユーザーフォーム）、非同期処理、豊富なクラスライブラリを活用でき、ツールの機能拡張や保守性がさらに向上します。
例えば、以下のような機能拡張が考えられます。
- GUI（ユーザーフォーム）の作成: 監査対象のカスタムプロパティをGUI上で選択できるようにしたり、結果をリスト表示したりする。
- Excel/CSVエクスポート: 監査結果をExcelやCSVファイルにエクスポートする機能。
- 設定ファイル: 監査ルールやデータベース接続情報などを外部の設定ファイルで管理する。
- SOLIDWORKS PDM連携: PDMシステムと連携し、チェックイン前のバリデーションを自動化する。
VB.NETでの開発は、VBAに比べて学習コストは高くなりますが、長期的に見れば、より堅牢で高機能なツールを開発するための強力な基盤となります。
まとめ：堅牢なツールの力で、製造プロセスを加速する
本稿では、SolidWorks VBAを用いたアセンブリのカスタムプロパティ一括監査ツールの開発について、その重要性、設計思想、そして実践的なコード例を解説しました。
- 堅牢な設計: オブジェクトのライフサイクル管理、構造化されたエラーハンドリング、そして明確な定数定義。これらは、バグを防ぎ、保守性を高めるための必須要素です。
- 実用的なコード: コピペで動作し、かつ理解しやすいコード例を提供しました。これをベースに、あなたの現場のニーズに合わせてカスタマイズしてください。
- 拡張性: VB.NETへの移行や、データベース連携といった、より高度な開発への道筋も示しました。
このバリデーションツールは、単なる「自動化」を超え、「品質保証」という側面を持ちます。設計データに信頼性を持たせることで、製造工程の混乱を防ぎ、ひいては製品全体の品質向上に貢献します。
SolidWorks VBAを使いこなし、あなたの設計・製造プロセスを、よりスマートに、より効率的に進化させていきましょう。
