AutoCAD VBAを掌握せよ：全レイアウトの「ページ設定」を瞬時に統一する極意
こんにちは。AutoCADの自動化の世界へようこそ。
「マクロの記録」ボタンを押して生成される、あの冗長で不安定なコードに頼るのは今日で終わりにしましょう。
AutoCADのAPIを操るということは、単なる「操作の自動化」ではなく、「図面というデータベースを自在に再構築する」という特権を得ることを意味します。今日は、業務効率化の第一歩として、図面内の全レイアウトに対して「ページ設定（Page Setup）」を一括適用する、実務直結のテクニックを伝授します。
—
1. AutoCADオブジェクトモデルの「心臓部」を理解する
まず、AutoCAD VBAを操る上で避けて通れないのが「オブジェクトの階層構造」です。
- Application: AutoCADそのもの。
- Document: 現在開いている図面ファイル。
- Layout: モデル空間やペーパー空間の各タブ。
これらは、マトリョーシカのように入れ子になっています。`Application`から入り、`ActiveDocument`を経て、`Layouts`コレクションへ辿り着く。この道筋を脳内に地図として持っておくことが、脱・初心者への最短ルートです。
—
2. 【実務コード】全レイアウトのページ設定を自動適用する
現場では、「A3・PDF出力用」や「社内チェック用」など、あらかじめテンプレート図面で設定した「ページ設定名」を使い回すのが鉄則です。以下のコードは、指定したページ設定を全てのレイアウトに強制適用します。
Sub ApplyPageSetupToAllLayouts()
Dim acadDoc As AcadDocument
Dim layoutObj As AcadLayout
Dim pageSetupName As String
‘ 適用したいページ設定名を指定（※事前にテンプレート等に登録しておくこと）
pageSetupName = “A3_PDF_Output”
Set acadDoc = ThisDrawing
‘ エラーハンドリング：設定が存在しない場合の暴走を防ぐ
On Error Resume Next
‘ 全レイアウトをループ処理
For Each layoutObj In acadDoc.Layouts
‘ “Model”空間は除く等の条件分岐が必要ならここで行う
If layoutObj.Name <> “Model” Then
‘ CopyFromメソッドでページ設定を適用
‘ これが一番確実で、パフォーマンスも高い手法です
layoutObj.CopyFrom acadDoc.Layouts(pageSetupName)
Debug.Print “適用完了: ” & layoutObj.Name
End If
Next
‘ 最後に再描画して変更を反映
acadDoc.Regen acAllViewports
MsgBox “全レイアウトへのページ設定適用が完了しました。”
End Sub
—
3. コードの「ここが重要！」ポイントを解説
① `CopyFrom` メソッドの優位性
初心者はよく「プリンタ名を指定し、用紙サイズを指定し…」と一つずつプロパティを書き換えようとしますが、それは悪手です。`CopyFrom`メソッドを使えば、ページ設定一式（プリンタ、用紙サイズ、印刷スタイルテーブルなど）を丸ごとコピーできます。これが「プロのやり方」です。
② `On Error Resume Next` の正しい使い方
VBAにおいてエラーを握りつぶすのは危険ですが、ループ処理では「特定のレイアウトで設定が見つからない」という理由で処理が止まるのを防ぐために有効です。ただし、必ず処理の区切りでエラー判定を行うのが、大人のエンジニアの嗜みです。
③ コレクションの列挙
`For Each`構文は、AutoCADのコレクション操作において最も洗練された書き方です。配列のインデックス（0, 1, 2…）を管理する必要がないため、コードの可読性が格段に上がります。
—
4. 陥りやすい罠と解決策
- 「モデル空間」への適用:
モデル空間はそもそも印刷設定が異なる場合があります。上記コードのように `If layoutObj.Name <> “Model”` で除外するか、モデル空間用のページ設定を別途用意して条件分岐させるのが現場の定石です。
- 名前の一致:
`pageSetupName` は、現在開いている図面に存在するページ設定名と完全に一致していなければなりません。存在しない名前を指定すると`CopyFrom`が失敗します。運用前に必ず「テンプレート図面」で名前を統一しておくルールをチームに浸透させてください。
—
最後に：自動化は「あなたの時間」を買い戻す行為
AutoCAD VBAは、使いこなせば「1時間かかっていた修正作業」を「1秒」に短縮できます。今回学んだ「全レイアウトの走査」と「設定のコピー」という型を覚えれば、次は「印刷の一括実行」や「レイヤーの自動クリーニング」へと応用が効くはずです。
まずはこのコードをVBE（Visual Basic Editor）に貼り付けて、お手元の図面で動かしてみてください。
「動いた！」というその瞬間、あなたはもう、単なるCADユーザーではなく、CADを操るエンジニアの領域に足を踏み入れています。
次はどんな自動化に挑戦しますか？ 応援していますよ。
