AutoCAD VBAを掌握する極限の知見
【初心者向け】カラーインデックス(ACI)とTrueColorの使い分け：AcadAcCmColorオブジェクトの基本
業務自動化エンジニアの私のもとに、「VBAで図面の色を変えたいが、思い通りの色にならない」「RGB値で指定したはずなのに、なぜか別の色になる」という相談が後を絶たない。
AutoCADの色指定には、歴史的な背景を持つ「ACI（AutoCAD Color Index：255色）」と、現代のモダンな設計に不可欠な「TrueColor（RGB 1677万色）」の2つの世界が存在する。この2つを混同したままコードを書くと、クライアントの企業ブランドカラーを再現できず、図面の品質管理において致命的な手戻りを生むことになる。
今回は、この色指定のメカニズムを完全に見極め、堅牢で保守性の高いVBAマクロを構築するための極意を伝授しよう。
—
1. なぜ「カラーインデックス(ACI)」だけでは実務で破綻するのか？
AutoCADの黎明期から存在するACI（AutoCAD Color Index）は、1から255までの整数で色を表現する仕組みだ。メモリ消費が極めて少なく、処理速度も最速であるというメリットがある。
‘ 【古き良きACI指定の例】赤色を指定
objLine.Color = 1
しかし、実務においてこのアプローチには大きな限界がある。
企業のコーポレートカラーや、JIS規格に基づいた厳密な色彩管理、あるいは背景色（白・黒）に動的に適応させたい場合、255色という枠組みはあまりにも狭すぎる。ここで登場するのが、1,677万通りの色彩を表現できるTrueColorだ。
—
2. TrueColorを操る鍵：`AcadAcCmColor` オブジェクトの正体
VBAでTrueColorを扱う場合、単なる長整数（Long型）のRGB値を渡せばいいというものではない。ここが多くの初心者がハマる罠だ。
AutoCADのCOMインターフェースでは、色を管理するための専用オブジェクトである `AcadAcCmColor` を介して色情報を設定する必要がある。このオブジェクトをメモリ上に正しく生成し、適切なメソッドを叩くライフサイクル管理が、バグの起きないコードの生命線となる。
以下のステップバイステップの解説を通じて、実務に耐えうるコードの書き方を体に叩き込んでほしい。
—
3. 【実践】ACIとTrueColorを使い分ける堅牢なプロダクションコード
以下のコードは、選択した図面内のすべての線分（Line）に対し、ACIによる基本色と、`AcadAcCmColor`を用いたTrueColor（RGB指定）を条件に応じて安全に適用するプロシージャだ。エラーハンドリングとオブジェクトの解放（メモリ管理）まで考慮した、実戦投入可能なクオリティとなっている。
Option Explicit
” =================================================================
” 担当者必見：堅牢な色変更プロシージャ
” ACIとTrueColorを状況に応じて安全に使い分けるサンプル
” =================================================================
Sub ApplyColorsSafely()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim ent As AcadEntity
‘ TrueColor制御用オブジェクト
Dim trueColorObj As AcadAcCmColor
‘ 1. セーフティなアプリケーション・ドキュメントの取得
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
If Err.Number <> 0 Then
MsgBox “AutoCADが起動していません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set acadDoc = acadApp.ActiveDocument
On Error GoTo 0
‘ 図面が開かれているかチェック
If acadDoc Is Nothing Then
MsgBox “アクティブな図面が存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 2. AcadAcCmColorオブジェクトのインスタンス化
‘ ※これを怠るとCOM例外が発生するため注意
Set trueColorObj = New AcadAcCmColor
‘ トランザクション的な処理の開始（パフォーマンス維持のため画面描画を抑制）
acadApp.ZoomExtents
‘ モデル空間のエンティティを走査
For Each ent In acadDoc.ModelSpace
‘ 例として「線分 (Line)」オブジェクトのみを対象とする
If ent.ObjectName = “AcDbLine” Then
‘ 条件分岐：レイヤーや重要度に応じた色アプローチの選択
If ent.Layer = “0” Then
‘ 【パターンA】標準的なACI（カラーインデックス）の適用
‘ 速度が重視される基本レイヤーはACIで軽量に処理
ent.Color = acRed ‘ 標準定数(赤)
Else
‘ 【パターンB】TrueColor（RGB）の適用
‘ ブランドカラーや厳密な色彩指定が必要な場合
‘ RGBメソッドで色値を設定 (例: 深いネイビーブルー RGB(20, 40, 80))
trueColorObj.SetRGB 20, 40, 80
‘ オブジェクトのTrueColorプロパティにカラーオブジェクトをアサイン
ent.TrueColor = trueColorObj
End If
End If
Next ent
‘ 3. クリーンアップ（メモリリーク防止のためのオブジェクト解放）
Set trueColorObj = Nothing
Set acadDoc = Nothing
Set acadApp = Nothing
MsgBox “カラー適用処理が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常系の捕捉と確実なメモリ解放
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Set trueColorObj = Nothing
Set acadDoc = Nothing
Set acadApp = Nothing
End Sub
—
4. 開発現場で絶対に守るべき「設計の極意」
上記のコードを実装するにあたり、プロのアーキテクトとして以下の3点を強く推奨する。
1. `New AcadAcCmColor` のスコープと解放
`AcadAcCmColor` はCOMオブジェクトである。ループ内で何度も `New` するのはメモリフラグメンテーションの原因となり、パフォーマンスを著しく低下させる。必ずループの外側で一度だけインスタンス化し、プロシージャの最後で `Set … = Nothing` で解放すること。
2. 図面背景色（Dark/Light）への配慮
TrueColorで完全に固定された色を指定すると、ユーザーのAutoCAD環境（背景が黒か白か）によって視認性が最悪になるケースがある。重要な図面要素でTrueColorを使う場合は、コントラストが担保されるRGB値を算出するロジックを挟むか、重要な線はACIのペン番号（7番：白/黒自動反転など）をあえて選ぶ設計眼が求められる。
3. エラーハンドリングの徹底
AutoCAD VBAは外部プロセス（AutoCAD本体）を叩くため、図面のロック状態や予期せぬオブジェクトの削除によって容易にクラッシュする。`On Error GoTo` を用いた堅牢な出口戦略を必ず用意すること。
総括
ACIとTrueColorの特性を正しく理解し、`AcadAcCmColor` オブジェクトを正確に使いこなすことは、単なる「見た目の装飾」にとどまらず、自動化スクリプトのパフォーマンスとメンテナンス性を担保するプロの技術である。
この知見をあなたの開発環境に落とし込み、ワンランク上の堅牢なAutoCAD業務効率化ツールを構築してほしい。
