AutoCAD VBAを掌握する極限の知見：カラーインデックス(ACI)とTrueColorの境界線
AutoCADのカスタマイズにおいて、図面の色を制御することは単なる「見た目の装飾」ではない。それはレイヤ管理、干渉チェック、そして外部システム（BIM/CIMやGIS）とのデータ連携における情報の伝達そのものである。
多くの初学者は、`Entity.Color = acRed` といったレガシーな記述で満足する。しかし、大規模プラントの図面や、数万オブジェクトを抱えるインフラ設計データを扱うシニアエンジニアにとって、カラーインデックス（ACI：AutoCAD Color Index）とTrueColor（RGB）の選択、そしてそれらを背後で支えるオブジェクトモデルのライフサイクル管理は、システムのパフォーマンスとメモリ効率を左右する重大な関心事だ。
本稿では、AcadAcCmColorオブジェクトの深層に迫り、実務で即座に使える堅牢なコードとともに、その極限の知見を授ける。
—
1. ACIの限界とTrueColorの本質
カラーインデックス（ACI）とは何か
ACIは、AutoCADの黎明期から存在する1〜255の整数値によるカラーマッピングシステムである。
- メリット: メモリフットプリントが極めて小さく、処理が高速。古いDXF/DWGフォーマットとの完全な下位互換性。
- デメリット: 表現力が255色に制限されており、グラデーションや厳密な企業ブランドカラー（コーポレートカラーのRGB指定など）の再現が不可能。
TrueColor（RGB指定）のアーキテクチャ
近代的なCAD運用において、RGB値（0〜255の3成分）によるTrueColor指定は必須要件である。AutoCAD VBAでは、このTrueColorを単なる数値ではなく、独立したCOMオブジェクトとして扱う。
ここで多くの開発者が陥る罠が、オブジェクトのライフサイクル管理の欠如である。
—
2. AcadAcCmColorオブジェクトとメモリの最適化
TrueColorを操作するためには、`AcadAcCmColor` オブジェクトを明示的に生成し、操作した後に適切に破棄（メモリ解放）しなければならない。VBAのガベージコレクションに全幅の信頼を置くコードは、数千回のエレメント走査で確実にメモリリークを引き起こし、AutoCAD本体を不安定にする。
以下の実用コードは、TrueColorを安全かつ高速に生成・適用するためのパターンを示している。
Option Explicit
” =================================================================ウィ
” 概要: 指定したRGB値を持つTrueColorオブジェクトを生成し、対象画層に適用する
” 備考: COMオブジェクトの明示的なインスタンス化と解放を行う実務レベルのサンプル
” =================================================================ウィ
Public Sub ApplyTrueColorToLayerExample()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim targetLayer As AcadLayer
‘ 1. アプリケーションとアクティブドキュメントの取得
‘ ※GetObjectによるバインドは環境依存リスクがあるため、WorkWithEvents等を考慮した設計が望ましい
On Error GoTo ErrorHandler
Set acadApp = ThisDrawing.Application
Set acadDoc = acadApp.ActiveDocument
‘ トランザクション的な処理の開始（パフォーマンス向上のため画面更新を停止）
acadApp.ActiveDocument.Utility.Prompt “TrueColor適用処理を開始します…” & vbCrLf
‘ 2. 対象画層の取得（存在しない場合は新規作成）
Dim layerName As String
layerName = “EX_TRUECOLOR_PIPE”
Set targetLayer = GetOrCreateLayer(acadDoc, layerName)
‘ 3. AcadAcCmColor オブジェクトの生成
‘ ※このオブジェクトは明示的にメモリ管理を行う必要がある
Dim cmColor As AcadAcCmColor
Set cmColor = acadApp.GetInterfaceObject(“AutoCAD.AcCmColor.24”) ‘ バージョンに応じ調整（例: 24はAutoCAD 2023-2025世代）
If cmColor Is Nothing Then
Err.Raise vbObjectError + 1000, “ApplyTrueColorToLayer”, “AcadAcCmColorオブジェクトの生成に失敗しました。”
End If
‘ 4. RGB値の設定 (例: 深みのあるエンジニアリング・ブルー R:0, G:102, B:204)
cmColor.SetRGB 0, 102, 204
‘ 5. 画層への適用
targetLayer.TrueColor = cmColor
‘ 6. 正常終了時のクリーンアップ
acadApp.ActiveDocument.Utility.Prompt “画層 [” & layerName & “] へのTrueColor適用が完了しました。” & vbCrLf
CleanUp:
‘ 【重要】COMオブジェクトの参照を確実に解放しメモリリークを防ぐ
If Not cmColor Is Nothing Then Set cmColor = Nothing
If Not targetLayer Is Nothing Then Set targetLayer = Nothing
If Not acadDoc Is Nothing Then Set acadDoc = Nothing
If Not acadApp Is Nothing Then Set acadApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
” =================================================================ウィ
” 補助関数: 画層の存在チェックと自動生成
” =================================================================ウィ
Private Function GetOrCreateLayer(doc As AcadDocument, lName As String) As AcadLayer
Dim lyr As AcadLayer
On Error Resume Next
Set lyr = doc.Layers.Item(lName)
On Error GoTo 0
If lyr Is Nothing Then
Set lyr = doc.Layers.Add(lName)
End If
Set GetOrCreateLayer = lyr
End Function
—
3. シニアエンジニアが知るべき実装上の極意
オブジェクトのバージョン差異（ProgIDの罠）
コード内で使用している `”AutoCAD.AcCmColor.24″` というProgIDは、AutoCADのバージョン（世代）によって末尾の数字が変動する。完全にバージョン非依存のコードを書く場合や、複数バージョンのAutoCADが混在するレガシー環境を保守する場合、`ThisDrawing.Application.GetInterfaceObject` ではなく、レジストリや早期バインド（参照設定）を適切に選択するアーキテクチャ設計が求められる。
しかし、VBAの参照設定はバージョンアップ時にパス切れを起こすため、実務では `CreateObject` や `GetInterfaceObject` による遅延バインド（Late Binding）を安全にラップするユーティリティ層を作るのが定石だ。
パフォーマンスの最適化：一括処理とグラフィック更新の抑制
数千個のエンティティに対して個別にTrueColorを適用する場合、オブジェクトを1つ変更するたびにAutoCADの画面再描画（Regen/Display Update）が走ると、処理が数分単位でフリーズする。
膨大なデータを操作する際は、以下の最適化手法を必ずコードに組み込むこと。
‘ 処理前の描画ロック
acadApp.Preferences.Display.TextFrameInFirst = … ‘ 略
‘ 実務ではレイヤ単位での制御、またはSelectionSetを用いた一括プロパティ変更を行うべきである。
個々の図形（`AcadEntity`）に直接 TrueColor を持たせることは、DXFファイルの肥大化を招く。原則として色は画層（Layer）で制御し、例外的な強調表示のみエンティティ単位のTrueColorを適用するという設計思想を貫くべきだ。
—
総括
AutoCAD VBAにおけるカラー制御は、単に「色が変わる」という表面的な事象にとどまらない。背後にあるCOMオブジェクトのライフサイクルを把握し、メモリリークを排除し、画層とエンティティの責務を分離してこそ、破綻のない堅牢な自動化システムが構築できる。
小手先のテクニックに頼らず、メモリとオブジェクトの挙動を完全に支配する者だけが、AutoCAD VBAを真に「掌握」したと言えるのだ。
