こんにちは。AutoCADの自動化という深淵な世界へようこそ。
「マクロの記録」という安全な港を離れ、コードで図面を支配する領域へ足を踏み入れた君を歓迎する。AutoCAD VBAにおいて、最もエキサイティングであり、同時に多くのエンジニアが挫折する壁――それが「動的ブロック（Dynamic Block）の制御」だ。
今日は、ただ図形を描くだけではない、「生きている図形」を操るための極意を伝授しよう。
—
1. なぜ「動的プロパティ」は一筋縄ではいかないのか
AutoCADのオブジェクトモデルにおいて、ブロック参照（`AcadBlockReference`）は単なる図形の塊ではない。動的ブロックには、通常のプロパティ（層、色、座標）とは別に、`GetDynamicBlockProperties`という特殊なメソッドの先にしか存在しない「隠れたデータ」がある。
初心者が陥りやすい罠は、`BlockReference.Name` を書き換えようとしてエラーを吐くことだ。名前を変えるのは「定義」であって「参照」ではない。我々が制御すべきは、その内側にある「パラメータ」である。
—
2. 動的プロパティを掌握するアルゴリズム
動的プロパティは `Variant` 型の配列として返される。これらを一つずつ巡回（ループ）し、目的のラベル（例: “距離1”, “角度1″）を持つプロパティを見つけ出し、値を書き込む。これがVBAにおける基本戦術だ。
実践コード：動的ブロックの値を書き換える
以下のコードは、選択したブロックの特定のプロパティ値を変更する汎用的な関数だ。
Sub UpdateDynamicProperty()
Dim objEnt As AcadEntity
Dim objBlockRef As AcadBlockReference
Dim dynProps As Variant
Dim i As Integer
‘ ユーザーにブロックを選択させる
ThisDrawing.Utility.GetEntity objEnt, basePnt, “ブロックを選択してください”
‘ 選択したのがブロック参照か確認
If TypeOf objEnt Is AcadBlockReference Then
Set objBlockRef = objEnt
‘ 動的ブロックかどうか確認
If objBlockRef.IsDynamicBlock Then
‘ 動的プロパティの配列を取得
dynProps = objBlockRef.GetDynamicBlockProperties
‘ プロパティを走査
For i = LBound(dynProps) To UBound(dynProps)
‘ プロパティ名を確認（例: “距離1” という名前のパラメータを探す）
If dynProps(i).PropertyName = “距離1” Then
‘ 値を書き込む（型には注意。Doubleで渡すのが基本）
dynProps(i).Value = 500.0
MsgBox “値を500に変更しました。”
End If
Next i
‘ 更新を反映させる
objBlockRef.Update
Else
MsgBox “これは動的ブロックではありません。”
End If
End If
End Sub
—
3. ここをクリアすればプロの仲間入り：注意すべき3つのポイント
① プロパティ名の正確性
`PropertyName` は、AutoCADのプロパティパレットに表示されているラベルと完全に一致しなければならない。全角・半角の違いや、スペースの有無すら許されない。開発時は `Debug.Print` を使って、取得したプロパティ名一覧をイミディエイトウィンドウに出力し、確認する癖をつけよう。
② データ型の厳密さ
動的プロパティの `Value` は `Variant` 型だが、中身の型（Double, String, Long等）は定義に依存する。例えば、回転パラメータに整数を渡してエラーになる場合は、明示的に `CDbl()` で型変換を行うこと。
③ ライフサイクルとパフォーマンス
ループ内で `Update` メソッドを何度も呼ぶのは避けるべきだ。全ての変更を終えた最後に一度だけ呼ぶ。これが大規模図面を扱う際の「エンジニアの作法」である。
—
4. 最後に：君が次に目指すべき場所
動的ブロックの制御ができるようになると、君は単なる「作図担当」から「ツール開発者」へと昇華する。
- 自動化のヒント: ExcelからCSVを読み込み、数千個のブロックの伸縮値を一括で変更する。
- 発展: `GetDynamicBlockProperties` で取得した値を配列に格納し、JSONやデータベースと連携させる。
AutoCAD VBAは古臭い言語だと言われることもあるが、APIの堅牢さと、図面という複雑な空間をプログラムで制御する快感は、他の何物にも代えがたい。
「マクロの記録」が教えてくれなかった深い海へようこそ。何か分からないことがあれば、いつでもまた聞きに来なさい。君のコードが、設計の現場を加速させることを期待しているよ。
