AutoCAD VBAを掌握する：システム変数「PDMODE/PDSIZE」の制御と「見えない設計」の最適化
AutoCADのオートメーションにおいて、システム変数の操作は「単なる設定変更」ではない。それは、CADという巨大なドキュメントオブジェクトモデル（DOM）のコンテキストを、瞬時に書き換える儀式である。
今回は、初心者がまずぶつかる「点（Point）が見えない」という問題を、シニアエンジニアの視点で「システム整合性を保ちながら一括制御する」手法として昇華させる。単に数値を代入して終わるコードは書くな。CADのメモリ状態を意識し、堅牢な運用基盤を構築せよ。
—
1. なぜ「PDMODE」と「PDSIZE」をVBAで制御すべきか
現場の図面には、前任者が設定した「負の遺産」が眠っている。`PDMODE`が0（点のみ）のままでは、どれほど重要な基点であっても、ズームレベルや出力条件によって視認性が消失する。
シニアエンジニアとして意識すべきは、「現在の図面状態を破壊せず、必要な時だけ環境を最適化し、安全に復元する」というトランザクション的な思考だ。
2. 堅牢な実装：SetVariableの深淵
`ThisDrawing.SetVariable` は一見単純だが、エラーハンドリングを怠ればドキュメント全体の整合性を損なう。以下のコードは、単なる設定変更ではなく、運用保守を考慮したプロフェッショナルな設計パターンである。
‘ @brief 点オブジェクトの表示形式を最適化するプロシージャ
‘ @description 既存のシステム変数を退避させ、処理後に確実に復元する
Public Sub OptimizePointDisplay()
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ エラーハンドリング：CADの状態異常を局所化する
On Error GoTo ErrorHandler
‘ 現在の値を退避（保守性の確保）
Dim oldMode As Integer, oldSize As Double
oldMode = doc.GetVariable(“PDMODE”)
oldSize = doc.GetVariable(“PDSIZE”)
‘ PDMODE: 3は「×」印、PDSIZE: 0は画面上の相対サイズ5%
‘ 負の値を設定することで、表示サイズを絶対単位にする手法も有効
doc.SetVariable “PDMODE”, 3
doc.SetVariable “PDSIZE”, 2.0
‘ 再描画の強制（表示の即時反映）
doc.Regen acActiveViewport
MsgBox “点表示の最適化が完了しました。”, vbInformation
ExitProc:
‘ オブジェクト参照の解放（VBAにおいてはNothing代入が美学）
Set doc = Nothing
Exit Sub
ErrorHandler:
MsgBox “システム変数の更新に失敗しました: ” & Err.Description, vbCritical
Resume ExitProc
End Sub
3. シニアエンジニアが意識すべき「メモリとパフォーマンスの極致」
オブジェクトの明示的解放
VBAのガベージコレクションを信用するな。`AcadDocument`や`AcadApplication`への参照を保持し続けると、COMサーバーのメモリリークを招き、大規模図面でのクラッシュリスクが増大する。`Set doc = Nothing` は単なる作法ではなく、生存戦略だ。
RegGen（再描画）の重み
`doc.Regen` は重い。もしこの処理を数千個の図面に対してバッチ処理で実行する場合、`Regen`を全ループで行うのは自殺行為だ。処理の最後で一括実行するか、あるいはシステム変数 `REGENMODE` を一時的にOFFにして描画負荷を抑える設計が求められる。
Windows APIによる「強制介入」の可能性
もし、AutoCADの標準APIでシステム変数が正しく書き換わらない極限状況（稀にあるCOMのスタック破損など）に陥った場合、`user32.dll` を通じたメモリ操作を検討することになる。しかし、それは「最後の手段」だ。CADの内部APIで解決できる間は、絶対にAPIの直接操作へ逃げてはならない。保守性が崩壊するからだ。
4. 運用管理への提言：標準化の罠
このコードを各個人のマクロとして配布するのではなく、「スタートアップスイート」または「共有ネットワーク上のDVBファイル」として配置せよ。
- 集中管理: `PDMODE` を会社標準の「3」に固定するイニシャライザを構築する。
- イベント駆動: `AcadDocument.Activate` イベントをフックし、図面を開いた瞬間に最適な表示環境を強制適用するアーキテクチャを組むのが、真のシステム管理者だ。
結論
点が見えないという些細な問題は、実は「環境の不確実性」を物語っている。VBAエンジニアの役割は、単にコードを書くことではない。「誰もが同じ環境で、迷いなく図面を扱える基盤を設計すること」にある。
PDMODEの制御一つとっても、その背後にはメモリ管理、エラー処理、そして運用フローという技術者の矜持が隠されている。次にコードを書くとき、その背後に流れる「CADの魂」を感じ取ってほしい。それができる者だけが、このレガシーな荒野を生き抜くことができる。
