【AutoCAD VBAの真髄】FullNameプロパティを飼い慣らせ：文字列操作の極意とメモリ管理の深淵
AutoCADのオートメーションにおいて、`AcadDocument.FullName`は単なる文字列ではない。それは、その図面がシステム上のどこに位置し、どのようなライフサイクルを辿っているかを示す「アイデンティティ」そのものだ。
多くの初学者は`FullName`を単に`Split`関数で切り刻んで満足する。しかし、システム開発の最前線に身を置く者にとって、それは「脆弱性の種」に過ぎない。パス区切り文字のOS間差異、ロングパス問題、そしてVBA特有のガベージコレクションの甘さを考慮しなければ、真の堅牢なツールは構築できない。
本稿では、レガシー環境を生き抜くための「パス分離の極意」と、その背後にあるメモリ最適化の哲学を伝授する。
—
1. なぜ「単純なSplit」では不十分なのか
`FullName`からフォルダ名とファイル名を抽出する際、多くのエンジニアが犯す過ちは、`InStrRev`や`Split`の結果を盲信することだ。
もしユーザーがネットワークドライブの深い階層で作業していたら？ あるいは、パスの中に不自然な特殊文字が含まれていたら？ 現場の環境は、常に我々の予測を裏切る。ここで重要なのは、「Windows APIによる正規化」と「オブジェクトの明示的解放」をセットで行うことだ。
実践：堅牢なパス解析ルーチン
以下は、単なる文字列操作を超え、エラーハンドリングを内包した設計指針を示すコードである。
Option Explicit
”’
”’
Public Sub ParseDrawingPath()
Dim acadDoc As AcadDocument
Set acadDoc = ThisDrawing ‘ 現在のドキュメントにアクセス
‘ 1. オブジェクトの有効性チェック
If acadDoc Is Nothing Then Exit Sub
‘ 2. FullNameの取得とバリデーション
Dim fullPath As String
fullPath = acadDoc.FullName
If fullPath = “” Then
MsgBox “この図面はまだ保存されていません。”, vbExclamation
GoTo Cleanup
End If
‘ 3. 解析処理
Dim folderPath As String
Dim fileName As String
Dim fileExt As String
Call SplitPath(fullPath, folderPath, fileName, fileExt)
Debug.Print “Folder: ” & folderPath
Debug.Print “Name : ” & fileName
Debug.Print “Ext : ” & fileExt
Cleanup:
‘ 4. 明示的なメモリ解放（VBAの鉄則）
‘ AutoCADオブジェクトは参照カウンタが強固なため、明示的なNothing化が重要
Set acadDoc = Nothing
End Sub
Private Sub SplitPath(ByVal fullPath As String, ByRef folder As String, ByRef name As String, ByRef ext As String)
Dim lastSep As Long
Dim lastDot As Long
‘ パス内の最後の “\” の位置を特定
lastSep = InStrRev(fullPath, “\”)
‘ 拡張子の “.” の位置を特定
lastDot = InStrRev(fullPath, “.”)
folder = Left(fullPath, lastSep – 1)
name = Mid(fullPath, lastSep + 1, lastDot – lastSep – 1)
ext = Mid(fullPath, lastDot + 1)
End Sub
—
2. アーキテクトの視点：メモリ最適化とシステム管理
このコードを見て「なぜこんなに慎重なのか」と思っただろうか。それこそが、大規模システムと小規模スクリプトを分かつ境界線だ。
オブジェクトのライフサイクル管理
VBAはCOMベースの言語であり、`AcadDocument`のような重いオブジェクトは、参照を保持し続けることでメモリリークの温床となる。特にバックグラウンドで複数の図面を操るツールを開発する場合、`Set acadDoc = Nothing`を省略することは、エンジニアとしての怠慢に近い。
なぜWindows APIを推奨するのか
上記の例では標準の文字列関数を使用したが、実務で「パスの最大長（MAX_PATH）」が懸念される環境や、UNCパス（`\\Server\Share\…`）が頻出する環境では、`PathGetArgs`や`PathFindFileName`といった`Shlwapi.dll`のAPIを呼び出すのが正攻法だ。
VBAから`Declare PtrSafe Function`を用いてこれらのAPIを叩くことで、OSレベルでの安全なパス解析が可能になる。これができるかどうかで、社内システム管理者の信頼度は劇的に変わる。
—
3. 次のステージへ：システム間連携の布石
この「パス分離」は、単なる情報の切り出しではない。これは、「図面管理システム(EDMS)との連携」、「自動バックアップスクリプトへのパス渡し」、「図面名に基づいた属性情報の自動抽出」といった、より高度な自動化へ繋がるゲートウェイだ。
- 拡張子を判定する: DWGかDWTか、あるいはDXFか。拡張子一つで後の処理（`Application.Documents.Open`なのか`Import`なのか）を変える必要がある。
- フォルダ名を判定する: プロジェクトコードをフォルダ名から取得し、DBの検索キーとして利用する。
これら全ては、この最初の「Fullnameの解体」を完璧に行うことから始まる。
結びに代えて
AutoCAD VBAはレガシーと言われることもある。しかし、そのAPIの深淵を理解し、メモリの挙動を制御し、OSの作法に従ってコードを書くとき、それは「時代遅れのツール」ではなく「堅牢な工業用ソリューション」へと変貌する。
今日から、ただ動くコードを書くのはやめよう。「誰が保守しても壊れない、計算されたコード」を書くこと。それが、この過酷な開発現場を生き残る唯一の術だ。
