【AutoCAD VBAマスターへの道】第1回：プロが教える「線種・色・画層」の動的制御と堅牢な設計
こんにちは。チーフアーキテクトの私だ。
今日から君は、AutoCADの退屈な手作業から解放される。手始めに「線種・色・画層（レイヤ）」の制御を学ぶわけだが、ネットによくある「とりあえず動くコード」をそのまま現場の図面に貼り付けるのはやめてもらいたい。
あんなものをプロダクション環境で使えば、図面データが破損するか、他の設計者のマシンでエラーを吐いて沈黙するのがオチだ。
なぜ初心者の書くコードはバグるのか？
そして、プロは何を考えてオブジェクトを操作しているのか？
今回は、AutoCAD VBAの根幹であるオブジェクトモデルのライフサイクルと、実務で即戦力となる堅牢な自動化コードを叩き込む。心してついてきなさい。
—
1. なぜ「直接プロパティをいじるな」と言われるのか？
多くの入門書やブログでは、図形を描画したあとに `objLine.Color = acRed` とか `objLine.Layer = “C-ANOT-TEXT”` のように直接プロパティを変更するコードが紹介されている。
あれは悪手だ。実務の巨大な図面において、生成した後にプロパティを書き換えるアプローチは以下の致命的な問題を引き起こす。
1. パフォーマンスの著しい低下: 図形が生成されるたびにデータベース（DWG）のインデックスが再構築され、描画処理が重くなる。
2. デフォルト値の混入: 画層の初期設定が「画層0」のままオブジェクトが生成される瞬間があり、意図しない属性を引き継ぐ原因になる。
3. トランザクション的破綻: 途中でエラーが起きた際、中途半端に色や画層が変わったゴミ図形が残る。
プロの鉄則：「アクティブ設定」または「生成時指定」
AutoCAD VBAにおいて、オブジェクトを描画する際は、「あらかじめ描画環境（画層・色・線種）を整えてから生み出す」のが鉄則である。この思想をコードに落とし込めるかどうかが、プロとアマの分かれ道だ。
—
2. 実務仕様：堅牢な画層・線種・色自動設定プログラム
今回は、以下の要件を満たす実用的なプロシージャを作成する。
- 依存関係の安全な解決: 指定した画層や線種が図面に存在しない場合、自動で新規作成・ロードしてから図形を描画する。
- エラーハンドリング: 予期せぬCADの状態変化（図面が閉じられている等）に耐えうる構造。
- 可読性と保守性: マジックナンバーを排除し、定数（Enum）を活用する。
コピペで使えるプロダクションコード
以下のコードをAutoCADのVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けて実行してほしい。
Option Explicit
‘ ==============================================================================
指定した画層・色・線種で確実にラインを描画するプロシージャ
‘ ==============================================================================
Public Sub CreateControlledLine()
On Error GoTo ErrorHandler
‘ 1. アプリケーションとドキュメントの参照を取得
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Set acadApp = ThisDrawing.Application
Set acadDoc = ThisDrawing.ActiveDocument
‘ 2. 設定値の定義（実務では外部ファイルやダイアログから取得しても良い）
Const TARGET_LAYER As String = “M-PIPE-HIGH”
Const TARGET_LINETYPE As String = “HIDDEN”
Const TARGET_COLOR As Long = acRed ‘ AutoCAD標準の色定数
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 0#: startPoint(1) = 0#: startPoint(2) = 0#
endPoint(0) = 100#: endPoint(1) = 100#: endPoint(2) = 0#
‘ 3. 【重要】画層が存在しなければ作成する
Call EnsureLayerExists(acadDoc, TARGET_LAYER, TARGET_COLOR)
‘ 4. 【重要】線種がロードされていなければロードする
Call EnsureLinetypeLoaded(acadDoc, TARGET_LINETYPE)
‘ 5. 描画環境（アクティブ画層・線種）を事前にセット
acadDoc.ActiveLayer = acadDoc.Layers(TARGET_LAYER)
acadDoc.LinetypeScale = 1# ‘ 必要に応じてLTSを制御
‘ 6. 図形の生成（アクティブ設定を引き継いで一撃で生成する）
Dim objLine As AcadLine
Set objLine = acadDoc.ModelSpace.AddLine(startPoint, endPoint)
‘ ※線種を個別に強制適用したい場合はここで指定
objLine.Linetype = TARGET_LINETYPE
‘ 7. ビューポートの更新
acadApp.Update
MsgBox “精度の高い図形生成が完了しました。”, vbInformation, “自動化システム”
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ ==============================================================================
‘ サブルーチン：画層の存在確認と自動生成
‘ ==============================================================================
Private Sub EnsureLayerExists(doc As AcadDocument, layerName As String, layerColor As Long)
Dim targetLayerObj As AcadLayer
Dim isExist As Boolean
isExist = False
Dim lyr As AcadLayer
For Each lyr In doc.Layers
If StrComp(lyr.Name, layerName, vbTextCompare) = 0 Then
isExist = True
Exit For
End If
Next lyr
‘ 存在しない場合は新規作成
If Not isExist Then
Set targetLayerObj = doc.Layers.Add(layerName)
targetLayerObj.Color = layerColor
End If
End Sub
‘ ==============================================================================
‘ サブルーチン：線種のロード確認と自動読込
‘ ==============================================================================
Private Sub EnsureLinetypeLoaded(doc As AcadDocument, linetypeName As String)
Dim isLoaded As Boolean
isLoaded = False
Dim lt As AcadLineType
For Each lt In doc.Linetypes
If StrComp(lt.Name, linetypeName, vbTextCompare) = 0 Then
isLoaded = True
Exit For
End If
Next lt
‘ ロードされていない場合はacad.linから読み込む
If Not isLoaded Then
On Error Resume Next
doc.Linetypes.Load linetypeName, “acad.lin”
If Err.Number <> 0 Then
MsgBox “線種ファイルが見つかりません。デフォルト線種で代替します。”, vbExclamation
End If
On Error GoTo 0
End If
End Sub
—
3. コードのアーキテクチャ解説：なぜこの書き方なのか？
上記のコードには、現場で生き残るための知見が凝縮されている。ポイントを3つに絞って解説しよう。
① `StrComp` による大文字小文字を区別しない比較
AutoCADの画層名や線種名は、大文字と小文字を厳密に区別しない（例：`Hidden`も`HIDDEN`も同じ扱い）。
VBAの通常比較 (`=`) だと環境によってバグるリスクがあるため、`StrComp(…, vbTextCompare)` を用いて安全に存在チェックを行っている。
② 依存関係の先回り解決（防御的プログラミング）
「指定した画層がないからエラー」「指定した線種がロードされていないからクラッシュ」――これが初心者の書くマクロによくある敗因だ。
プロのコードは、「処理を実行する前に、必要な前提条件をコード側で自動構築（あるいは修復）する」。これがバグをゼロにする秘訣だ。
③ オブジェクトのスコープと解放
VBAは自動ガベージコレクションを持つが、AutoCADのCOMオブジェクト（`AcadLine` や `AcadLayer`）を大量にループ内で生成・破棄するとメモリリークの原因になる。今回はローカル変数を適切にスコープ内に閉じ込め、無駄な参照を残さない設計にしている。
—
4. チーフからの実践アドバイス：ここからどう拡張すべきか？
この基本コードをマスターした君は、すでに「ただの初心者」ではない。
実務でこれをさらにスケールさせるためには、以下のステップに進むといい。
1. Excel / CSV 連携:
外部のExcelマスタから「画層名」「色」「線種」「座標」の一覧を読み込み、このVBAに流し込む。これで「1万本の配管を一瞬で自動作図するシステム」が完成する。
2. トランザクションの概念（VB.NETへの移行への布石）:
もし図面が数万オブジェクトを超えるような極めて重いものであるなら、VBAではなく `.NET API (C# / VB.NET)` によるトランザクション制御（`Transaction`オブジェクト）へステップアップすべきだ。VBAはそのためのプロトタイピングに最適な環境である。
自動化の本質は、「手作業の置き換え」ではなく、「ヒューマンエラーの完全排除」にある。
今日のコードをベースに、君の現場のワークフローを爆速化させてくれたまえ。健闘を祈る。
