AutoCAD VBAの深淵：図面範囲（Limits）を「最適化」し、現場の属人化を排除せよ
AutoCADの運用において、最も初歩的でありながら、最も「納品データの品格」を左右するのが図面範囲（Limits）の設定だ。
「とりあえず全選択してズームすればいい」――そんな考えは今すぐ捨てろ。図面範囲が物理的なオブジェクトと乖離している図面は、印刷プレビューの崩壊を招き、他部署やクライアントへの引き渡し時に「素人の仕事」という烙印を押される。
今回は、AutoCADのオブジェクトモデルを掌握し、全図形を走査して図面範囲を動的に最適化する、現場で「そのまま使える」堅牢なコードを授ける。
—
なぜ、単なる `ZoomExtents` では不十分なのか？
多くの初心者が `ThisDrawing.Application.ZoomExtents` を使うが、あれはあくまで「視界」を調整するだけのコマンドだ。`Limits`（図面範囲）そのものを書き換えるわけではない。
真のプロフェッショナルは、「図面範囲（Limits）こそが図面の境界線である」と定義する。これに合わせることで、Plot（印刷）時の「範囲」設定を `Limits` に固定し、どんな図面でもクリック一つで完璧な印刷出力を実現できるのだ。
堅牢な設計のための3つの鉄則
1. ModelSpaceの走査効率： `For Each` で全オブジェクトを回すのは基本だが、計算コストを意識せよ。非表示レイヤーやフリーズ中のオブジェクトをどう扱うか、要件定義で決めておく必要がある。
2. 誤差の許容と余白（マージン）： 境界ギリギリにLimitsを設定すると、印刷時に線が切れる。必ず「マージン」を設ける設計にせよ。
3. 例外処理の徹底： オブジェクトが一つも存在しない図面で実行すれば、当然エラーになる。`Err` オブジェクトによるガード節は必須だ。
—
プロダクションコード：最適化された Limits 算出ロジック
以下は、モデル空間内の全オブジェクトを走査し、バウンディングボックスの最小・最大座標を算出して `Limits` を再設定するコードだ。
Public Sub OptimizeDrawingLimits()
Dim obj As AcadEntity
Dim minPt As Variant, maxPt As Variant
Dim minX As Double, minY As Double, maxX As Double, maxY As Double
Dim margin As Double: margin = 100 ‘ マージン値（図面単位に合わせて調整せよ）
Dim hasEntity As Boolean: hasEntity = False
‘ 初期値を極端な値に設定
minX = 1E+20: minY = 1E+20
maxX = -1E+20: maxY = -1E+20
‘ モデル空間の全オブジェクトを走査
For Each obj In ThisDrawing.ModelSpace
‘ ブロック参照や非表示オブジェクトを考慮し、GetBoundingBoxを試行
On Error Resume Next
obj.GetBoundingBox minPt, maxPt
If Err.Number = 0 Then
hasEntity = True
If minPt(0) < minX Then minX = minPt(0)
If minPt(1) < minY Then minY = minPt(1)
If maxPt(0) > maxX Then maxX = maxPt(0)
If maxPt(1) > maxY Then maxY = maxPt(1)
End If
On Error GoTo 0
Next
‘ オブジェクトが一つもない場合は終了
If Not hasEntity Then
MsgBox “対象となるオブジェクトが見つかりません。”, vbExclamation
Exit Sub
End If
‘ Limitsを設定（マージンを考慮）
Dim newMin(0 To 1) As Double
Dim newMax(0 To 1) As Double
newMin(0) = minX – margin: newMin(1) = minY – margin
newMax(0) = maxX + margin: newMax(1) = maxY + margin
ThisDrawing.Limits = newMin
ThisDrawing.Limits = newMax
‘ 変更を反映させるための更新
ThisDrawing.Regen acActiveViewport
MsgBox “図面範囲を最適化しました。”
End Sub
—
開発者への提言：実務で生き残るために
このコードをただコピペするだけで終わらせるな。実務環境においては以下の点に注意すべきだ。
- ペーパー空間の扱い: 今回はモデル空間を対象としたが、レイアウトタブごとの `PaperSpace` にも同様のロジックが必要になる場合が多い。オブジェクトの属性（`OwnerID` や `Layer`）で対象をフィルタリングする拡張を検討せよ。
- データベース連携: もし図面情報が外部データベースと連動しているなら、この `Limits` を更新したタイミングで、図面の「最終更新日時」や「範囲データ」をDBへ書き戻す一連のフローを構築するのが、真の自動化エンジニアの仕事だ。
- パフォーマンスの罠: 数十万規模のオブジェクトがある図面では、`GetBoundingBox` の繰り返しがボトルネックになる。その場合は、`SelectionSet` を使い、描画に必要な要素のみを抽出してループを回す設計に切り替える判断力を持て。
自動化とは、単に楽をすることではない。「人間が手作業で行う際の判断基準をコードに置き換え、誰がやっても同じ品質の成果物を出す」ことこそが本質だ。
このコードが、君の現場の「品質」を一段階引き上げることを期待している。健闘を祈る。
