【SolidWorks VBA入門】図面の「レイヤー構造」を支配せよ：シートフォーマット編集モードの安全な制御術
こんにちは。設計自動化の世界へようこそ。
「マクロの記録」ボタンを押し、マウスでカチカチと操作して、生成されたコードを見て「……うわ、何これ？」と頭を抱えたことはありませんか？ 記録されたコードは、いわば「操作の足跡」に過ぎません。そこには「なぜその命令が必要なのか」という設計思想が欠けています。
今日、皆さんにマスターしてほしいのは、単なるコマンドの書き方ではありません。SolidWorksの図面データが持つ「二層のレイヤー構造」という概念を理解し、それをVBAからスマートに、そして「安全に」操作する技術です。
ここをクリアすれば、あなたの作るマクロは「ただ動くもの」から「プロが使う道具」へと進化しますよ。
1. 図面には「二つの世界」がある
SolidWorksの図面（Drawing）を開いたとき、私たちは一つの画面を見ています。しかし、API（プログラム）の視点から見ると、そこには明確な「レイヤーの境界線」が存在します。
これを理解せずにコードを書くと、「表題欄の文字を変えたいのに、図面ビューの部品が選択されてしまう！」といったエラーに直面することになります。
図面レイヤーの二層構造
1. 図面ビュー層 (Drawing View Layer)
- モデル（部品やアセンブリ）を投影した図面本体。
- 通常の作業モードでは、こちらが「主役」です。
2. シートフォーマット層 (Sheet Format Layer)
- 図面の枠線、表題欄（タイトルブロック）、注記など。
- これらは「背景」として扱われ、通常のモードでは選択や編集ができません。
この二つの世界を行き来するために必要なのが、「シートフォーマット編集モード」の切り替えなのです。
2. 核心となるAPI：EditSheetFormat
シートフォーマット層にある文字を書き換えたり、枠線を動かしたりするには、SolidWorksに対して「今から背景レイヤーを編集しますよ！」という宣言をする必要があります。
使う命令は非常にシンプルです。
- `EditSheetFormat` ： 背景レイヤー（フォーマット）の編集を開始する。
- `StopEditSheetFormat` ： 編集を終了し、通常の図面ビュー層に戻る。
「えっ、それだけ？」と思うかもしれません。しかし、ここにはプロフェッショナルとしての作法が求められます。
3. 実践：安全なトグル制御のテンプレート
単に命令を並べるだけでは不十分です。もし、編集モードに入った直後にエラーが起きてプログラムが止まってしまったらどうなるでしょう？ SolidWorksは「編集モード」のまま固まり、ユーザーは手動でモードを抜けるまで操作が困難になります。
これを防ぐために、「エラーハンドリング（例外処理）」を組み込んだ、堅牢なコードを書きましょう。
'**
' プログラム名：SafeSheetFormatEditor
' 概要：シートフォーマット編集モードを安全に制御し、表題欄のテキストを更新する
'**
Sub SafeSheetFormatEditor()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swNote As SldWorks.Note
Dim status As Boolean
' 1. SolidWorksへの接続
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' 図面ファイルが開かれているかチェック
If swModel Is Nothing Then
MsgBox "図面ファイルを開いてから実行してください。", vbCritical
Exit Sub
End If
' DrawingDocとして扱うための型変換
If swModel.GetType <> swDocDRAWING Then
MsgBox "このマクロは図面ファイル専用です。", vbCritical
Exit Sub
End If
Set swDraw = swModel
' --- エラーハンドリングの開始 ---
' 万が一エラーが起きても、必ず「編集モード終了」へ飛ばすための仕組み
On Error GoTo ErrorHandler
' 2. 【重要】シートフォーマット編集モードに入る
' これにより、図面ビュー層からフォーマット層へと「レイヤー」が切り替わります
swDraw.EditSheetFormat
Debug.Print "シートフォーマット編集モードに入りました。"
' 3. フォーマット層内の操作（例：特定の注記を探して書き換える）
' ここでは簡単のため、図面上の最初の注記(Note)を取得する例を示します
' 本来は名前や位置で特定するのがベストです
Set swNote = swModel.SelectionManager.GetSelectedObject6(1, -1)
' もし選択されているものがあれば、テキストを書き換える
If Not swNote Is Nothing Then
swNote.SetText "自動更新完了: " & Now
Debug.Print "テキストを更新しました。"
Else
' 選択されていない場合のデバッグ用メッセージ
Debug.Print "注記が選択されていません。操作対象を指定してください。"
End If
' 4. 【重要】編集モードを終了する
' これを忘れると、SolidWorksが「フォーマット編集モード」のままになってしまいます
swDraw.StopEditSheetFormat
Debug.Print "編集モードを正常に終了しました。"
' 完了通知
MsgBox "処理が完了しました。", vbInformation
Exit Sub
' --- エラー発生時の処理 ---
ErrorHandler:
' エラーが起きた場合でも、確実に編集モードを抜けるための保険
Debug.Print "エラーが発生しました: " & Err.Description
' 現在のモードが編集モードである可能性が高いため、念のため終了命令を出す
' (StopEditSheetFormatを呼んでも、モード中でなければ無視されるので安全です)
swDraw.StopEditSheetFormat
MsgBox "エラーが発生したため、安全にモードを終了して中断しました。" & vbCrLf & _
"Error: " & Err.Description, vbExclamation
End Sub4. 伝説のエンジニアが教える「ハマりポイント」
このコードを使いこなすために、以下の3点を心に刻んでおいてください。
① 「選択」の状態を意識せよ
`EditSheetFormat` を実行した直後は、操作の対象が「図面ビュー」から「シートフォーマット」に移っています。もし、マクロの中で「図面ビューの部品」を操作しようとしても、フォーマット編集モード中では正しく選択できないことがあります。
「レイヤーを切り替えたら、操作対象もそのレイヤーのものに変える」。これが鉄則です。
② `StopEditSheetFormat` は「義務」である
コードの書き手として、最も避けるべきは「中途半端な状態でプログラムを終わらせること」です。前述の通り、`On Error GoTo` を使って、エラーが起きても必ず `StopEditSheetFormat` を通るルート（パス）を確保してください。これが、ユーザーにストレスを与えない「優しいツール」を作る秘訣です。
③ パフォーマンスの重み
実は、`EditSheetFormat` は画面の再描画を伴う重い操作です。ループの中で何百回も呼び出すような設計は避けてください。「編集モードに入る」→「一気に全部書き換える」→「編集モードを抜ける」という、一括処理のスタイルが最も高速で安定します。
まとめ：一歩先へ
お疲れ様でした。これであなたは、単にマクロを記録する人から、「SolidWorksの内部構造を理解し、制御するエンジニア」への第一歩を踏み出しました。
- 図面には「ビュー層」と「フォーマット層」がある。
- その間を移動するには `EditSheetFormat` と `StopEditSheetFormat` が必要。
- エラーが起きてもユーザーを迷わせないよう、エラーハンドリングを必ずセットにする。
この基礎があれば、表題欄に自動で設計者名を入れたり、日付を更新したり、複雑な図面管理システムを構築したりすることが、驚くほどスムーズになります。
次は、このフォーマット層にある「カスタムプロパティ」を操作する方法に挑戦してみるのもいいでしょう。道は続いています。楽しんでコードを書いていきましょう！
