マクロ記録の「壁」を越えろ。図面中心線を自在に操る、オブジェクト指向への第一歩
こんにちは。自動化の世界へようこそ。
「マクロの記録」ボタンを押して、自分の操作をコードに変換する。これは、SolidWorks VBAという広大な海へ漕ぎ出すための、最初の一歩として素晴らしい方法です。しかし、多くの人がある時、必ずと言っていいほど「壁」にぶつかります。
「記録したはずなのに、別の図面では動かない」
「エラーが出て止まってしまう」
「もっと効率的に、全てのビューに対して一括で処理したいのに、どう書けばいいのか分からない」
もしあなたが今、そんな風に感じているなら、おめでとうございます。あなたは「単なる操作の録画」から、「プログラムによる制御」へと進化する境界線に立っています。
今日は、図面作成において避けては通れない「中心線（Center Line）」の自動挿入をテーマに、プログラミング初学者が「マクロ記録の呪縛」を解き放ち、SolidWorks APIの本質を掴むための極意を伝授しましょう。
1. なぜ「マクロ記録」だけでは足りないのか？
マクロ記録は、いわば「ビデオカメラ」です。あなたがクリックした瞬間を記録しますが、「なぜそこをクリックしたのか」という意図（ロジック）は理解していません。
例えば、中心線を引く操作を記録すると、コードには「特定のIDを持つエッジを選択して、中心線を挿入する」という、非常に限定的な命令が書き込まれます。しかし、モデルの形状が少しでも変われば、その「ID」は無効になり、マクロは沈黙します。
私たちが目指すべきは、ビデオカメラではなく、「地図とコンパス」です。
「図面の中にビューがある」「ビューの中に円筒形の形状がある」「それに対して中心線を引く」という、オブジェクトの階層構造（オブジェクトモデル）を理解して命令を下すのです。
2. 図面の「階層構造」を理解する：マトリョーシカの法則
SolidWorksの図面を操作する際、最も重要なのが「オブジェクトの親子関係」です。これを理解していないと、コードは迷子になります。図面は、まるでマトリョーシカのように入れ子構造になっています。
[SldWorks] (アプリケーション全体)
└── [DrawingDoc] (図面ファイル)
└── [Sheet] (シート：A3やA4などの紙面)
└── [View] (図面ビュー：正面図、平面図など)
└── [Annotation] (中心線や寸法などの注釈)ここで、初心者が陥る「伝説的な罠」が一つあります。
それは、「`GetFirstView` で取得できる最初のビューは、実は『シート自体』である」という事実です。
多くの初学者は、最初のビューが「正面図」だと思い込みますが、実際には「紙面（シート）」が最初に現れます。これを理解せずに「ビューに対して中心線を入れろ」と命令すると、エラーの嵐に見舞われることになります。この「型」を意識することが、エンジニアへの第一歩です。
3. 実践：中心線を一括制御するスマート・マクロ
それでは、実際に「図面内のすべてのビューを巡回し、中心線を自動挿入する」コードを見ていきましょう。単に挿入するだけでなく、エラーを防ぎ、パフォーマンスを考慮した「プロの書き方」をコメントと共に解説します。
Option Explicit
''
' テーマ：図面内の全ビューに対し、中心線を自動挿入する
' ターゲット：プログラミング初学者〜中級者
''
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 status As Boolean
' --- 2. SolidWorksへの接続 ---
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' エラーチェック：開いているファイルが図面かどうか？
If swModel Is Nothing Then
MsgBox "図面ファイルを開いてから実行してください。", vbCritical
Exit Sub
End If
If swModel.GetType <> swDocDRAWING Then
MsgBox "このマクロは図面ファイル専用です。", vbCritical
Exit Sub
End If
' 図面ドキュメントとしてセット
Set swDraw = swModel
' --- 3. パフォーマンス最適化 (画面更新の停止) ---
' 大量の処理を行う際、画面の再描画を止めると劇的に速くなります
swApp.UserControl = False ' ユーザー操作を一時的にロック（必要に応じて）
' --- 4. ビューの巡回 (ここが核心！) ---
' GetFirstViewは「シート」を返す。そのため、まず最初のビューを取得。
Set swView = swDraw.GetFirstView
' シート（最初のビュー）の次から、実際のモデルビューが始まる
Set swView = swView.GetNextView
' ビューが存在する限りループを回す
Do While Not swView Is Nothing
' --- 5. 中心線の挿入命令 ---
' InsertCenterLines メソッドは、ビュー内の円筒形状などを自動判別して中心線を引きます
' 引数なしで呼び出すことで、ビュー全体の自動中心線機能を実行します
status = swView.InsertCenterLines
If status = False Then
' 中心線が引けなかった場合も、エラーで止めずに次のビューへ進むのが「堅牢なコード」
Debug.Print "ビュー [" & swView.Name & "] に中心線を挿入できませんでした。"
Else
Debug.Print "ビュー [" & swView.Name & "] に中心線を挿入しました。"
End If
' 次のビューへ移動
Set swView = swView.GetNextView
Loop
' --- 6. 後処理 ---
' 画面を再描画して、結果を見せる
swModel.ForceRebuild3 True
MsgBox "処理が完了しました！", vbInformation
End Sub4. コードの深掘り：何が「プロ」の仕事なのか？
このコードには、単なる「記録」には含まれない、3つの重要な知見が詰まっています。
① エラーハンドリング（堅牢性）
`If swModel.GetType <> swDocDRAWING Then` の部分です。
プロのコードは、「もし間違ったファイルで実行されたらどうするか？」を常に考えています。いきなりエラーで落ちるマクロは、現場では「使い物にならない」と判断されてしまいます。
② オブジェクトのループ（汎用性）
`Do While Not swView Is Nothing`。
これが「マクロ記録」と「プログラミング」の最大の差です。記録されたコードは「正面図に引く」という特定の命令ですが、このループ構造を使えば、ビューが1つでも100個でも、同じコードで対応できます。これが「自動化」の真髄です。
③ パフォーマンスへの配慮
大量のビューがある図面で、一つ一つ描画しながら処理すると、SolidWorksは非常に重くなります。実務レベルでは、処理の開始前に描画を制御し、最後に `ForceRebuild3` でまとめて更新するという、「一括処理の美学」が求められます。
5. 次のステップへ：さらに高みを目指すために
このマクロをマスターしたら、次は以下のようなカスタマイズに挑戦してみてください。
- ON/OFFの切り替え: `InsertCenterLines` は「追加」ですが、既存のものを消したい場合は、注釈（Annotation）をループで回して、種類が `swCenterLine` のものを削除するロジックを書くことになります。
- 条件付き挿入: 「特定のレイヤーにあるビューだけ中心線を引く」といった、条件分岐（If文）の追加。
最後に
プログラミングは、魔法ではありません。一つ一つのオブジェクトを理解し、それらを繋ぎ合わせていく、非常に論理的な作業です。
最初はエラーが出て当たり前です。エラーメッセージは、あなたを拒絶しているのではなく、「ここを直せばもっと良くなるよ」というSolidWorksからのアドバイスなのです。
ここをクリアすれば、SolidWorks VBAの基本はバッチリですよ。
さあ、次の自動化へ向けて、一歩踏み出しましょう！
