【テクニカル・上級編】【実務中級者向け】図面内の「特定ブロックの属性値」をファイル名に採用して自動リネーム保存するツール開発 – AutoCAD VBA解析バイブル

図面属性のデータ駆動型リネーム：オブジェクト・ライフサイクルとファイルシステムへの極限的アプローチ

業務自動化の現場において、「図面内の情報をファイル名に反映させる」という要件は、一見すると初歩的なタスクに見える。しかし、これを数千、数万の図面に対して、エラー停止なく、メモリリークを起こさず、かつレガシーな環境下でも堅牢に実行しようとすると、話は全く別次元になる。

多くのエンジニアが陥る罠は、単なる「ループ処理」と「SaveAsメソッドの呼び出し」で済ませようとすることだ。それは自動化ではなく、単なる「不安定なスクリプト」に過ぎない。

本稿では、AutoCADのデータベース・アーキテクチャを深く理解し、Windows APIとオブジェクトのライフサイクル管理を徹底することで、真にプロフェッショナルな「属性値ベースの自動リネーム・セーブツール」を構築するための知見を共有する。

1. 図面データベースの探索：効率的な属性抽出の戦略

図面枠（Title Block）の属性値を取得する際、最も非効率な手法は `ModelSpace` 全体を全スキャンすることだ。図面が大規模化し、数万のエンティティが含まれる場合、この走査コストは致命的なパフォーマンス低下を招く。

ブロック参照の特定と属性へのアクセス

我々が狙うべきは `AcadBlockReference` オブジェクトである。特定の名前を持つブロックを特定し、その `AttributeCollection` を走査する。ここで重要なのは、属性値が「属性参照（`AcadAttributeReference`）」として存在することを確認するプロセスだ。

2. メモリ管理の真髄：COMオブジェクトの解放とリソース競合

VBAはCOM（Component Object Model）に基づいている。大量の図面を連続して開閉する場合、適切にオブジェクトを解放しなければ、AutoCADのメモリ消費量は指数関数的に増大し、最終的には `Out of Memory` または不可解なクラッシュを引き起こす。

`Set obj = Nothing` は基本中の基本だが、それだけでは不十分な場合がある。特に、図面を閉じる（`Close`）際、その図面を参照していたすべての変数（`Document`, `ModelSpace`, `BlockReference`, `AttributeReference`）を完全に `Nothing` に落とし、さらに `DoEvents` を挟むことで、OSレベルでのリソース解放を促す必要がある。

3. 実装：堅牢なリネーム・セーブ・エンジン

以下に、実務に耐えうる設計思想に基づいたコード例を示す。単なる実装ではなく、エラーハンドリングとパスのサニタイズ、そしてメモリ管理を統合している。

Option Explicit

' Windows API: ファイルの存在確認や属性取得に使用（必要に応じて拡張）
Private Declare PtrSafe Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Const INVALID_FILE_ATTRIBUTES As Long = -1

''' <summary>
''' 図面内の特定ブロックから属性値を抽出し、新しい名前で保存するメインルーチン
''' </summary>
Public Sub ExecuteAttributeBasedSave()
    Dim acadApp As AcadApplication
    Dim doc As AcadDocument
    Dim targetBlockName As String
    Dim targetTag As String
    Dim newFileName As String
    Dim savePath As String
    
    ' --- 設定領域 ---
    targetBlockName = "TITLE_BLOCK_A" ' 対象とする図面枠ブロック名
    targetTag = "DWG_NO"             ' 抽出したい属性タグ名
    savePath = "C:\Output_Drawings\"  ' 保存先ディレクトリ
    ' ----------------
    
    On Error GoTo ErrorHandler
    
    Set acadApp = ThisDrawing.Application
    Set doc = acadApp.ActiveDocument
    
    ' 1. 属性値の抽出
    Dim attrValue As String
    attrValue = GetAttributeValue(doc, targetBlockName, targetTag)
    
    If attrValue = "" Then
        MsgBox "指定された属性が見つかりません。", vbExclamation
        Exit Sub
    End If
    
    ' 2. ファイル名のサニタイズ（Windowsの禁止文字を除去）
    newFileName = SanitizeFileName(attrValue) & ".dwg"
    
    ' 3. 保存実行
    ' 注意: SaveAsは現在のドキュメントのコンテキストを変更するため、
    ' 大量処理を行う場合は、新しいドキュメントとして開く設計を推奨する。
    doc.SaveAs savePath & newFileName
    
    MsgBox "保存完了: " & newFileName, vbInformation

CleanUp:
    ' オブジェクトの明示的解放（メモリリーク防止の要）
    Set doc = Nothing
    Set acadApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

''' <summary>
''' 図面内を走査し、指定されたブロックの属性値を取得する
''' </summary>
Private Function GetAttributeValue(doc As AcadDocument, blockName As String, tag As String) As String
    Dim ent As AcadEntity
    Dim blkRef As AcadBlockReference
    Dim attRef As AcadAttributeReference
    Dim attColl As AcadAttributeCollection
    Dim i As Integer
    
    ' ModelSpaceを走査（大規模図面ではレイヤー等によるフィルタリングを検討せよ）
    For Each ent In doc.ModelSpace
        If TypeOf ent Is AcadBlockReference Then
            Set blkRef = ent
            
            ' ブロック名の一致を確認
            If StrComp(blkRef.Name, blockName, vbTextCompare) = 0 Then
                Set attColl = blkRef.GetAttributes
                
                ' 属性コレクションの走査
                For i = 0 To attColl.Count - 1
                    Set attRef = attColl.Item(i)
                    If StrComp(attRef.TagString, tag, vbTextCompare) = 0 Then
                        GetAttributeValue = attRef.TextString
                        Exit Function
                    End If
                Next i
            End If
        End If
    Next ent
    
    GetAttributeValue = ""
End Function

''' <summary>
''' Windowsファイルシステムにおける禁止文字を置換・除去する
''' </summary>
Private Function SanitizeFileName(ByVal fileName As String) As String
    Dim invalidChars As Variant
    Dim i As Integer
    
    ' Windowsでファイル名に使用できない文字のリスト
    invalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    
    For i = LBound(invalidChars) To UBound(invalidChars)
        fileName = Replace(fileName, invalidChars(i), "_")
    Next i
    
    ' 前後の空白除去
    SanitizeFileName = Trim(fileName)
End Function

4. システム間連携とレガシー環境への配慮

このツールを社内システム（ERPやPDM）と連携させる場合、単一のAutoCADインスタンスで処理を完結させるのではなく、「AutoCADをヘッドレス（画面非表示）に近い状態で制御する」 または 「外部プロセスとして独立させる」 視点が不可欠だ。

堅牢性を高めるためのアドバイス

1. パスの正規化:
`SaveAs` を実行する際、パスの区切り文字や末尾のバックスラッシュの有無でエラーが発生しやすい。Windows APIの `PathCanonicalize` 等を意識し、常に一貫したパス形式を維持せよ。
2. ファイルロックの回避:
保存先のファイルが既に別のプロセス（エクスプローラーのプレビューウィンドウや、他のユーザーによる開閉）によってロックされている場合、`SaveAs` は即座に失敗する。`GetFileAttributes` を用いて、書き込み権限や属性を事前にチェックするロジックを組み込むのがプロの流儀だ。
3. 例外処理の階層化:
「属性が見つからない」「ファイル名が不正」「保存先への書き込み権限がない」「AutoCADが応答不能」といったエラーを、それぞれ異なるレベルでキャッチし、ログに記録する仕組みを持たせよ。

結論

図面自動化の真価は、単に「作業を速くすること」ではなく、「人間が介在することによるエラー（ヒューマンエラー）をゼロにすること」にある。

属性値からファイル名を生成するプロセスにおいて、メモリ管理、OSの制約、オブジェクトのライフサイクルを完全に掌握することは、単なるプログラミング技術を超えた、エンジニアリングの真髄である。この知見を武器に、堅牢で揺るぎない自動化アーキテクチャを構築してほしい。