こんにちは、現場の最前線で数多の自動化ツールを構築してきたチーフアーキテクトです。
AutoCAD VBAの世界へようこそ。マクロの記録を卒業し、「自分の思い通りに図面を操りたい」と考え始めたあなた。素晴らしい一歩です。しかし、初心者が最初にぶつかる高い壁があります。それが「実行時エラー」です。
特に多いのが、「指定した画層（Layer）が存在しないためにプログラムが止まってしまう」というトラブル。
「昨日動いたコードが、別の図面では動かない……」
そんな悩みを解決し、どんな環境でもタフに動き続ける「プロの初期化ロジック」を伝授しましょう。ここをマスターすれば、あなたのVBAスキルは「お遊び」から「実用ツール」へと進化します。
—
1. なぜ「画層の確認」が必要なのか？
AutoCAD VBAで「特定の画層に線を描きたい」とき、私たちは通常、`AcadDocument.ActiveLayer` プロパティを書き換えます。
しかし、VBAは非常に正直です。コードの中で「”配管レイヤー” をアクティブにせよ」と命じたとき、その図面に “配管レイヤー” が存在しなければ、VBAはパニックを起こして「実行時エラー ‘5’: 引数が無効です」と叫んで止まってしまいます。
「なければ作る、あればそれを使う」
このシンプルながら強力な「安全装置」をコードに組み込むことが、プロへの第一歩です。
—
2. オブジェクトモデルを俯瞰する：Layersコレクション
コードを書く前に、AutoCADの構造（オブジェクトモデル）をイメージしましょう。
1. AcadApplication: AutoCADそのもの。
2. AcadDocument (ThisDrawing): 今開いている図面。
3. Layers: 図面の中にある「画層のリスト（コレクション）」。
4. Layer: 個別の画層。
私たちがやりたいのは、「Layersコレクションの中に、お目当てのLayerがあるか探し、なければAdd（追加）する」という作業です。
—
3. 実践：画層を安全に取得・作成する「黄金のロジック」
それでは、実用的なコードを見ていきましょう。
単にエラーを回避するだけでなく、「再利用可能な関数（Function）」として切り出すのがプロの書き方です。
サンプルコード：GetOrAddLayer 関数
”’
”’
”’ 画層名
”’ 新規作成時の色番号 (1:赤, 2:黄, etc…)
”’
Function GetOrAddLayer(ByVal layerName As String, Optional ByVal colorIndex As Integer = 7) As AcadLayer
Dim objLayer As AcadLayer
On Error Resume Next ‘ エラーが起きても次の行へ（画層がない場合への備え）
‘ 1. Layersコレクションから指定した名前の画層を探す
Set objLayer = ThisDrawing.Layers.Item(layerName)
‘ 2. 見つからなかった（エラーが出た）場合の処理
If Err.Number <> 0 Then
Err.Clear ‘ エラー情報をクリア
‘ 画層を新規作成
Set objLayer = ThisDrawing.Layers.Add(layerName)
‘ 色などの基本プロパティを設定（任意）
objLayer.color = colorIndex
Debug.Print “画層 [” & layerName & “] を作成しました。”
End If
On Error GoTo 0 ‘ エラーハンドリングを通常に戻す
‘ 呼び出し元に画層オブジェクトを返す
Set GetOrAddLayer = objLayer
End Function
—
4. このコードの「極限の知見」ポイント
なぜこの書き方が「正解」なのか、3つの理由を解説します。
① `On Error Resume Next` の正しい使い方
初心者はエラーを嫌いますが、プロはエラーを「分岐のフラグ」として利用します。`Item(layerName)` でエラーが出るということは「存在しない」という証拠です。それを利用して `Add` 処理へ繋いでいます。
② `Optional` 引数による柔軟性
`colorIndex` を `Optional`（省略可能）にすることで、色を指定したい時も、デフォルト（白/黒）でいい時も、一つの関数で対応できます。
③ オブジェクトを直接返す
「画層名（String）」を確認して終わりではなく、「画層オブジェクト（AcadLayer）」そのものを返しています。これにより、呼び出し側ですぐに `ActiveLayer` へセットしたり、色を変えたりといった操作が可能になります。
—
5. 実際に使ってみよう（メインルーチン）
作成した関数を使って、実際に作図を開始する流れは以下のようになります。
Sub StartDrawing()
Dim targetLayer As AcadLayer
Dim layerName As String: layerName = “PROJECT_CENTER_LINE”
‘ — 初期化セクション —
‘ 安全に画層を取得（なければ赤色で作成）
Set targetLayer = GetOrAddLayer(layerName, acRed)
‘ 画層を「現在の層（ActiveLayer）」に設定
‘ ※注意: 画層オブジェクトをそのまま代入します
ThisDrawing.ActiveLayer = targetLayer
‘ — 作図セクション —
Dim startPt(0 To 2) As Double: startPt(0) = 0: startPt(1) = 0: startPt(2) = 0
Dim endPt(0 To 2) As Double: endPt(0) = 100: endPt(1) = 100: endPt(2) = 0
‘ 指定した画層で線が描かれる
ThisDrawing.ModelSpace.AddLine startPt, endPt
MsgBox “画層 [” & layerName & “] で作図が完了しました！”
End Sub
—
6. 陥りやすい罠：ActiveLayer への代入
ここで一つ、初心者が最もハマりやすいミスを共有します。
- 間違い: `ThisDrawing.ActiveLayer = “MyLayer”` （文字列を入れようとする）
- 正解: `ThisDrawing.ActiveLayer = objLayer` （オブジェクトを代入する）
`ActiveLayer` プロパティは、画層の「名前（String）」ではなく、画層という「モノ（Object）」を求めています。ここを間違えると、どんなに画層チェックが完璧でもエラーになります。今回の `GetOrAddLayer` 関数を使えば、常に「モノ」が手に入るので安心ですね。
—
結びに代えて
いかがでしたでしょうか。
「画層があるかどうかを確認し、なければ作る」という処理は、一見地味ですが、「止まらないツール」を作るための必須装備です。
このロジックを一つ覚えるだけで、あなたの作るマクロの信頼性は飛躍的に向上します。ユーザー（あるいは未来のあなた）が画層を消してしまっていても、あなたのプログラムは涼しい顔をして仕事を完遂するでしょう。
ここをクリアすれば、AutoCAD VBAの基本はバッチリですよ。次は「線種（Linetype）」のロードや、「ブロック属性」の操作にも挑戦してみてください。
あなたのエンジニアライフが、よりクリエイティブなものになることを願っています。また次の講義でお会いしましょう。
