こんにちは！AutoCADの自動化の世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身がさっぱりわからない……」というステージから、そろそろ自分の手でCADを自在に操る「真のエンジニア」へステップアップしたい頃ですね。
今回は、実務で本当によくある「図面内の全オブジェクトの、現在の画層（レイヤ）名を保持したまま、色や線種、線幅を一括で上書き変更する」というテーマを深掘りします。
ここをクリアすれば、AutoCAD VBAのオブジェクトモデルの心臓部が手に取るようにわかるようになりますよ。しっかりついてきてくださいね！
—
1. なぜ「画層を維持したまま一括変更」が実務で重要なの？
図面を描くとき、私たちは通常「画層（Layer）」を使ってオブジェクトを管理します。
「寸法線は黄色の細線」「中心線は赤の鎖線」といったルールですね。これらはオブジェクト自体のプロパティを個別にいじるのではなく、「画層に従う（ByLayer）」状態にしておくのがCADの黄金律です。
しかし、実務ではこんな絶望的な状況に直面することがあります。
- 「外部から受け取った図面が、めちゃくちゃな個別プロパティ（直接色や線種がハードコーディングされている）で汚染されている！」
- 「プレゼン用に、図面全体の配色を一時的にグレートーンに統一したい！」
こんなとき、手動でオブジェクトを一つずつ選んでプロパティを変更していたら、定時までに終わらないどころか発狂してしまいますよね。
だからこそ、「画層の構造（グループ分け）は死守しつつ、視覚的なプロパティだけをプログラムで一網打尽にする」というスキルが、実務エンジニアの必須武器になるのです。
—
2. AutoCAD VBAの基本構造：A交差点とモデル空間
AutoCAD VBAを動かすとき、私たちは常に「ピラミッドの頂点」から命令を伝えていきます。
[AcadApplication] （AutoCAD本体）
↓
[AcadDocument] （現在開いている図面）
↓
[ModelSpace] （図面の中のキャンバス・空間）
↓
[AcadEntity] （線、円、文字などの個々の図形たち）
↓
[プロパティ] （色、線種、画層など）
この階層構造を意識するだけで、VBAのエラーの8割は防げるようになります。
「今、自分はどの階層のオブジェクトをいじっているのか？」を常に頭に置いておきましょう。
—
3. 実装コード：一括プロパティ変更マクロ
それでは、実務でそのまま使えるコピペ可能なコードを公開します。
今回は例として、「モデル空間にあるすべての図形の色を『赤（aciRed）』に強制変更し、かつ画層は元のまま維持する」という処理を実装します。
VBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてください。
Sub ChangePropertiesKeepLayer()
‘ 変数の宣言（AutoCADの型を明確に指定するのがプロの作法です）
Dim acadDoc As AcadDocument
Dim acadEntity As AcadEntity
Dim targetColor As AcadAcCmColor
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ 1. 現在アクティブな図面を取得
Set acadDoc = ThisDrawing
‘ 2. 処理開始のメッセージ（ステータスバーに表示）
acadDoc.Utility.Prompt “-> 図面内オブジェクトのプロパティ一括変更を開始します…” & vbCrLf
‘ 3. モデル空間の全オブジェクトをループで総舐めする
For Each acadEntity In acadDoc.ModelSpace
‘ 【重要】ここで画層（Layer）プロパティには一切触れません！
‘ これにより、オブジェクトが所属する画層は完全に温存されます。
‘ 例：色を「赤（ColorIndex = 1）」に変更する場合
‘ ※真のAutoCAD VBA使いは、RGBColorオブジェクトやAcadAcCmColorを使いますが、
‘ 今回は分かりやすさ重視でACI（AutoCAD Color Index）を直接叩きます。
acadEntity.Color = acRed
‘ 例：線種を「ByLayer」以外に強制変更したい場合はここで指定（コメントアウト解除して使用）
‘ acadEntity.Linetype = “Continuous”
‘ 例：線幅を強制変更したい場合（コメントアウト解除して使用）
‘ acadEntity.Lineweight = acLnWt050 ‘ 0.5mm
Next acadEntity
‘ 4. 完了通知
MsgBox “処理が完了しました！画層を維持したままプロパティが更新されています。”, vbInformation, “自動化完了”
Exit Sub
ErrorHandler:
‘ 万が一エラーが起きた場合の安全装置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
—
4. コードの深掘り解説：ここがエンジニアの急所
この短いコードの中には、AutoCAD VBAを極めるための重要な知見が詰まっています。いくつかポイントを解説しましょう。
① `For Each … In ModelSpace` の威力
C言語や古いBASICのように「何番から何番まで」と数える必要はありません。`ModelSpace`というコレクション（集合体）に対して `For Each` を回すだけで、AutoCADが勝手に中身を順番に取り出してくれます。これは非常に高速で安全なイテレーション（反復処理）です。
② なぜ画層が変わらないのか？
コードの中を見ると、`acadEntity.Layer = …` という記述が一切ないことが分かりますよね。
AutoCADのオブジェクトモデルにおいて、`Layer` プロパティと `Color` や `Linetype` プロパティは完全に独立した別の記憶領域に保持されています。そのため、色だけを書き換えても、画層の所属情報は1ミリも変動しないのです。ここが今回の仕組みの核心です。
—
5. 陥りやすい罠と実務での注意点
初心者がこのコード（あるいは類似の応用コード）を書くとき、必ずと言っていいほどハマる「罠」があります。
罠1：ブロック（BlockReference）の中身が変わらない！
今回のコードは `ModelSpace` を直接ループしていますが、図面内に「ブロック（部品化された図形）」がある場合、ブロック内部のオブジェクトの色までは変わりません。
もしブロックの内部までメスを入たい場合は、`AcadBlockReference` を検知した際に再帰処理（自分自身を呼び出す関数）でブロック定義の中身まで潜っていく高度なロジックが必要になります。まずは今回の基本形をマスターしてから挑戦してください。
罠2：画層自体のプロパティを変えたい場合との混同
「オブジェクト個別の色」ではなく、「画層そのものの色」を一括で変えたい場合は、アプローチが全く異なります。その場合は `ModelSpace` ではなく、`acadDoc.Layers` コレクションをループ処理する必要があります。目的によって操作するオブジェクトの階層を間違えないようにしましょう。
—
まとめ：自動化の扉は開かれた
いかがでしたでしょうか？
「画層構造を死守したまま、属性だけをプログラムの力で一瞬にして書き換える」。この手法を身につけただけで、日々の図面修正作業のストレスは劇的に軽減されるはずです。
AutoCAD VBAは、覚えるべきオブジェクトの階層さえ見失わなければ、あなたの最強の右腕になってくれます。
ここをクリアできれば、もうあなたは「マクロの記録」に頼る初心者ではありません。自信を持って、次の自動化の領域へ進んでください！
それでは、快適なCADライフを！
