AutoCAD VBAで3Dを操る！ソリッド・サーフェス・メッシュを制する設計者の極意
こんにちは。AutoCADの自動化という深淵な世界へようこそ。
「マクロの記録」ボタンを押して終わる日々は今日で卒業です。AutoCAD VBAの真の力は、2次元の作図を自動化することではありません。数学的空間をプログラムで支配し、3次元の幾何学モデルを自在に構築する力にあります。
今回は、AutoCADの3Dオブジェクト（ソリッド、サーフェス、メッシュ）をコードから操作するための「核心」をお伝えします。
—
1. 3D空間の正体：座標系とオブジェクトのライフサイクル
AutoCADで3Dを扱う際、最も重要なのは「座標系」です。VBAで扱う `Variant` 型の配列（3要素）は、常に世界座標系（WCS）に基づいています。
初心者が最も陥りやすい罠は、「オブジェクトを作成しただけで、データベース（ModelSpace）に反映されたと思い込む」ことです。VBAにおいてオブジェクトは `Addxxx` メソッドでインスタンス化されますが、その後の `Update` メソッドや、トランザクション的な視点（再描画の管理）を意識しないと、画面上は空っぽのまま、メモリだけが圧迫されるという悲劇が起こります。
—
2. 実践：ソリッド、サーフェス、メッシュの生成
まずは、箱を作る基本コードを見てみましょう。VBAにおいて、3Dモデルを生成する際は「閉じた領域の境界」を明確にするのが鉄則です。
3Dソリッド（直方体）の作成例
Sub CreateBoxExample()
Dim boxObj As Acad3DSolid
Dim center(0 To 2) As Double
Dim length As Double, width As Double, height As Double
‘ 中心座標を設定
center(0) = 0#: center(1) = 0#: center(2) = 0#
length = 10#: width = 10#: height = 10#
‘ ModelSpaceに3Dソリッドを追加
‘ AddBoxは中心点ではなく、コーナ点指定であることに注意
Set boxObj = ThisDrawing.ModelSpace.AddBox(center, length, width, height)
‘ 描画の更新を明示的に指示（これがないと再描画が遅れる）
boxObj.Update
MsgBox “3Dソリッドが生成されました”
End Sub
【プロの知見】なぜ「メッシュ」を使うのか？
ソリッド（`Acad3DSolid`）は質量特性を持ちますが、計算コストが高い。一方で、メッシュ（`AcadSubDMesh`）は頂点と面の集合体であり、複雑な自由曲面を軽量に扱うのに適しています。
開発現場では、「解析にはソリッド、ビジュアライゼーションにはメッシュ」という使い分けが定石です。
—
3. 初心者が必ずハマる「3つの落とし穴」
現場のエンジニアが血涙を流しながら学んだ、避けるべきエラーの回避術です。
① 座標配列の渡し方
VBAの座標は `Double` 型の配列です。`Dim pt(0 To 2) As Double` と宣言することを忘れないでください。型が不一致だと、AutoCADのAPIは沈黙したままエラーを吐きます。
② 単位系の不一致
AutoCADの内部単位は「単位なし」です。ミリメートルで作図するのか、メートルで作図するのか、常にコード内で「1.0」が何を意味するのかをコメントで明記しましょう。
③ オブジェクトの解放（メモリリーク対策）
大規模なモデルを生成する際は、使用後のオブジェクト変数に `Set obj = Nothing` を明示してください。AutoCADのプロセスは非常に重いため、放置するとメモリが枯渇し、AutoCAD自体がクラッシュします。
—
4. 次のステップへ：自動生成の真髄
ここをクリアしたあなたなら、次は「円筒」「円錐」「押し出し（Extrude）」といったメソッドを組み合わせることで、複雑な機械部品すら自動生成できるようになります。
コードを書くときは、「もし私がCADオペレーターなら、どうやって手動でこの図形を描くか？」という手順を、そのまま命令文に翻訳する感覚を持ってください。
- 線を描く（AddLine）
- 面を貼る（AddRegion）
- 押し出す（AddExtrudedSolid）
このプロセスを自動化の論理に落とし込むことができれば、もはやあなたは「CADを使っている人」ではなく「CADを設計している人」です。
—
まとめ：自動化エンジニアへの道
3D操作は、数学的思考とプログラミングの交差点です。最初は難解に見えるかもしれませんが、一度モデルをコードから構築できれば、その先には「数千個のバリエーションを数秒で生成する」というエンジニアの夢のような世界が待っています。
まずは上記のコードをコピーし、自分のAutoCAD環境で動かしてみてください。画面上に立方体が現れた瞬間、あなたのVBAエンジニアとしてのキャリアが本格的に始まります。
何か詰まったら、いつでも聞いてください。応援していますよ！
