2020以后版本CAD中怎么用VBA语言查询参照文件列表中 参照文件的详细信息？如“未找到”“已孤立”等信息？ 查询VBA中支持AcadBlockReference，请用AcadBlockReference相关函数示例。

在 AutoCAD (CAD) 2020 及后续版本中，要使用 VBA (Visual Basic for Applications) 来查询参照文件列表中的详细信息，包括"未找到"或"已孤立"状态，你需要利用 AutoLISP 或 VBA 对 AutoCAD API 的访问。AutoCAD 提供了一些用于操作块引用（AcadBlockReference）的函数和属性。

以下是一个简单的示例代码片段，展示如何使用 VBA 来获取块引用的信息：

Sub GetReferencedFileInfo()
    Dim acadApp As Acad.Application
    Dim doc As Acad.Document
    Dim blockRef As Acad.BlockReference
    Dim refPath As String
    Dim isIsolated As Boolean

    ' 创建 AutoCAD 应用程序实例
    Set acadApp = New Acad.Application
    
    ' 打开当前文档
    Set doc = acadApp.ActiveDocument

    ' 遍历所有块引用
    For Each blockRef In doc.BlockReferences
        ' 获取块引用的路径
        refPath = blockRef.Name
        
        ' 判断是否孤立
        isIsolated = blockRef.IsolationMode = acIsolateAll
        If isIsolated Then
            MsgBox "块引用 '" & refPath & "' 已孤立"
        Else
            ' 判断是否找到
            If Not blockRef.Exists Then
                MsgBox "块引用 '" & refPath & "' 未找到"
            End If
        End If
    Next blockRef

    ' 释放资源
    acadApp.Quit
End Sub

这个例子创建了一个宏 `GetReferencedFileInfo`，该宏会检查文档中的每个块引用，并显示其名称、孤立模式以及是否存在（即是否能找到）。如果块引用不存在或者被隔离，相应的消息会被弹出窗口显示。

请注意，实际运行此代码时可能需要在 CAD 中启用 Visual Basic for Applications 并设置适当的权限。