現場のエンジニア諸君、ようこそ。
AutoCADの深い森へ足を踏み入れた君たちなら、一度は「開いた図面で、見えないはずの何かが悪さをしている」と感じたことがあるはずだ。
図面を開いた瞬間に出る「プロキシ情報の警告」。あれを単なる「うざいポップアップ」として無視してはならない。あれは「この図面には、あなたの環境では制御できない『幽霊』が住んでいます」という、AutoCADからの切実なSOSなのだ。
今日は、VBAを使ってこの「プロキシ図形」をスマートに検出し、データ汚染を未然に防ぐ――そんなプロフェッショナルの入り口へ君たちを招待しよう。
—
1. プロキシ図形とは何か？――「幽霊」の正体
AutoCADは拡張性が高い。サードパーティ製のプラグイン（ObjectARX）が生成した独自図形は、そのプラグインがない環境では「何者か分からない図形（プロキシ）」として扱われる。
このプロキシ図形が厄介なのは、「見た目はそこにあるのに、VBAからは中身が制御不能」という点だ。不用意に触れば図面はクラッシュし、最悪の場合、図面データそのものが破損する。
マクロの記録から脱却し、真の自動化エンジニアを目指すなら、「図面の健康状態をコードで診断する」技術は必須教養と言える。
—
2. 診断の極意：Documentオブジェクトの深層を覗く
AutoCAD VBAにおいて、`AcadDocument`は図面の魂そのものだ。プロキシの存在を知るには、`Database`オブジェクトのプロパティを叩く必要がある。
以下のコードは、現在開いている図面にプロキシ図形が存在するかどうかを判定する「診断マクロ」だ。
Sub DetectProxyObjects()
‘ 現在のドキュメントを取得
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ プロキシ図形の数を取得するプロパティ: ProxyCount
‘ このプロパティはDatabaseオブジェクト内に存在する
Dim proxyCount As Long
proxyCount = doc.Database.ProxyCount
‘ 判定ロジック
If proxyCount > 0 Then
MsgBox “警告：この図面には ” & proxyCount & ” 個のプロキシ図形が含まれています。” & vbCrLf & _
“編集を続けるとデータ欠損やクラッシュのリスクがあります。”, vbCritical, “図面監査アラート”
Else
MsgBox “図面は健全です。プロキシ図形は検出されませんでした。”, vbInformation, “監査完了”
End If
End Sub
コードの解説
- `ThisDrawing`: 現在操作中のドキュメントを指す魔法のキーワードだ。
- `doc.Database.ProxyCount`: これが今回一番伝えたかった核心部分だ。図面データベースに直接アクセスし、登録されている「正体不明なオブジェクト」の数を瞬時に弾き出す。
- `vbCritical`: 警告は目立つアイコンで出すのがプロの作法。ユーザーに「手を止めるべき理由」を直感的に伝えよう。
—
3. なぜ「検知」だけでは不十分なのか？
「数を知る」だけでは、現場の事故は防げない。真のエンジニアは、この先の一歩を考える。
1. 図面を開く前のチェック: ファイルを開く（Open）前に、バッチ処理でこのチェックを走らせる仕組みを作るべきだ。
2. レイヤーや名前の特定: プロキシがどの画層にいるのか、どんなARXアプリを要求しているのか（`ProxyEntities`を参照）をログに残すことで、設計者にフィードバックできる。
3. パージの検討: もしそのプロキシが不要なゴミであれば、VBAからパージを自動実行させる判断も必要だ。
—
4. 陥りやすい罠：VBAとARXの「距離感」
初学者がよくやる失敗は、「プロキシ図形を普通の図形のようにループ（For Each）で回そうとすること」だ。
`AcadEntity`として取得しようとしても、プロキシ図形は制御不能なため、プログラムは高確率でエラーを吐くか、メモリリークを起こす。「見えないものは触らない」。これがAutoCADプログラミングの鉄則だ。
まずは今回紹介した「数を確認し、警告を出す」という安全な距離感から始めてほしい。ここをクリアすれば、君たちは「操作するだけの人」から「システムを管理するエンジニア」へ一歩近づいたことになる。
—
最後に：君たちへのメッセージ
AutoCAD VBAは古い言語かもしれない。だが、そのオブジェクトモデルの美しさは、今なお一級品のアーキテクチャだ。
プロキシ図形を恐れる必要はない。彼らの正体を知り、コードで先回りして警告を発する――それが君たちの仕事だ。今日書いたこの小さなコードが、明日、誰かの図面をデータ喪失の危機から救うかもしれない。
さあ、次はどんな機能を自動化しようか？ 質問があればいつでも歓迎する。エンジニア同士、共に高みを目指そう。
