AutoCADを自在に操ることは、単なる「作業の自動化」ではありません。それは、CADという巨大なエンジンの内部に、あなたの思考を直接組み込むことを意味します。
「マクロの記録」から卒業し、真のエンジニアへの第一歩を踏み出そうとしているあなたへ。今日は、AutoCAD VBAの心臓部である`AcadApplication`オブジェクトについて、その本質を伝授します。
—
1. 頂点に君臨する「AcadApplication」とは？
AutoCADの世界において、すべてはヒエラルキー（階層構造）で成り立っています。その頂点に立つのが`AcadApplication`です。
- Application: AutoCADそのもの（ソフト全体）
- Documents: 開かれている図面の集合体
- Document: 個別の図面（モデル空間やレイアウトを持つ）
まず、ここを理解してください。「図面を操作する」のではなく、「AutoCADというソフトを通して、図面というデータを扱う」という感覚です。
—
2. AutoCADを「目覚めさせる」：起動と終了の作法
VBAからAutoCADを操作する場合、大きく分けて「AutoCAD内で実行する」場合と、「Excel等の外部から操作する」場合があります。まずは外部からAutoCADを制御する、最も汎用的なコードを見てみましょう。
AutoCADを起動・接続するコード
Sub ConnectToAutoCAD()
Dim acadApp As Object
‘ すでに起動している場合は取得し、なければ新しく起動する（重要！）
On Error Resume Next
Set acadApp = GetObject(, “AutoCAD.Application”)
If Err.Number <> 0 Then
Err.Clear
Set acadApp = CreateObject(“AutoCAD.Application”)
End If
On Error GoTo 0
‘ AutoCADを可視化する（これがないとバックグラウンドで動くだけになる）
acadApp.Visible = True
MsgBox “AutoCADが起動しました: ” & acadApp.Version
End Sub
なぜ `GetObject` と `CreateObject` を使い分けるのか？
初心者が陥る罠は、毎回 `CreateObject` で新しいAutoCADを立ち上げようとすることです。メモリを大量に消費し、PCが悲鳴を上げます。「すでに開いているならそれを使う」。この配慮ができるかどうかが、プロとアマの境界線です。
—
3. 図面を開かずに情報を「覗き見る」極意
さて、ここからが本題です。多くの人が「図面を開かなければ情報は取れない」と思い込んでいますが、実はアクティブな図面（現在開いている図面）の情報であれば、`ActiveDocument` プロパティを通じて即座にアクセスできます。
現在開いている図面から情報を取得する
Sub GetCurrentDrawingInfo()
Dim acadApp As Object
Dim acadDoc As Object
‘ AutoCAD本体を取得
Set acadApp = GetObject(, “AutoCAD.Application”)
‘ 現在アクティブな図面を取得
Set acadDoc = acadApp.ActiveDocument
‘ 図面情報を取得してイミディエイトウィンドウに表示
Debug.Print “ファイル名: ” & acadDoc.Name
Debug.Print “フルパス: ” & acadDoc.FullName
Debug.Print “単位系(LUNITS): ” & acadDoc.GetVariable(“LUNITS”)
‘ 図面が読み取り専用か確認
If acadDoc.ReadOnly Then
MsgBox “この図面は読み取り専用です。”
End If
End Sub
なぜ「図面を開かずに」とは言いつつ、ActiveDocumentを使うのか？
`ActiveDocument`は、「今、画面上であなたが操作している図面」を即座に特定する魔法の入り口です。
もし「開いてもいない図面ファイル」の中身を読み取りたいのであれば、それは「オブジェクトモデル」の領域を超えて「ObjectDBX（AxDbDocument）」という高度な技術が必要になります。まずはこの`ActiveDocument`を使いこなし、現在見えている図面を制御できるようになることが、自動化への最短ルートです。
—
4. 初心者が必ずハマる「罠」と対策
1. `Nothing` の恐怖
`Set acadApp = Nothing` を忘れると、バックグラウンドにAutoCADのプロセスが残り続け、PCがどんどん重くなります。コードの最後には必ず解放の儀式を行いましょう。
Set acadDoc = Nothing
Set acadApp = Nothing
2. インターフェースの非同期
VBAがAutoCADに命令を出しても、AutoCAD側の処理が追いつかないことがあります。特に重い図面を操作する際は、コードの合間に `DoEvents` を入れるなどして、OSに処理の隙間を与えてあげてください。
—
最後に：エンジニアとしてのマインドセット
AutoCAD VBAは、単なる事務作業の自動化ではありません。あなたの設計意図を、寸分狂わず、何度でも再現可能な「アルゴリズム」へと昇華させるための道具です。
まずはこの`AcadApplication`と`ActiveDocument`をいじり倒してみてください。エラーが出たら、それはPCがあなたに「ここを直せ」と教えてくれているサインです。怖がらず、一歩ずつコードを書き換えていきましょう。
ここをクリアしたあなたは、もう初心者ではありません。次回の記事では、いよいよ図面内の「線」や「文字」を自在に操るオブジェクト操作の世界へご案内します。お楽しみに！
