使用 VBA 以外的其它编程语言

Sub Example_AffectsGraphics()
    ' 该示例从文件相关静听读取信息
        
    ThisDrawing.Application.Documents.Open ("c:\program files\autocad\sample\city map.dwg")
    ThisDrawing.Application.ZoomAll
    
    Dim objFDLCol As AutoCAD.AcadFileDependencies
    Dim objFDL As AutoCAD.AcadFileDependency
    
    Set objFDLCol = ThisDrawing.FileDependencies
    MsgBox ("在文件相关表中的条目共有 " & objFDLCol.Count & "条。")
        
    Dim strTemp As String
    For Each objFDL In objFDLCol
        strTemp = "是否影响图形: " & vbTab & objFDL.AffectsGraphics
        strTemp = strTemp & vbCrLf & "特征名称: " & vbTab & objFDL.Feature
        strTemp = strTemp & vbCrLf & "文件名称: " & vbTab & objFDL.FileName
        strTemp = strTemp & vbCrLf & "文件大小: " & vbTab & objFDL.FileSize
        strTemp = strTemp & vbCrLf & "指纹 GUID: " & vbTab & objFDL.FingerprintGuid
        strTemp = strTemp & vbCrLf & "替换路径: " & vbTab & objFDL.FoundPath
        strTemp = strTemp & vbCrLf & "完整文件名: " & vbTab & objFDL.FullFileName
        strTemp = strTemp & vbCrLf & "条目索引: " & vbTab & objFDL.Index
        strTemp = strTemp & vbCrLf & "是否被修改: " & vbTab & objFDL.IsModified
        strTemp = strTemp & vbCrLf & "参照数目: " & vbTab & objFDL.ReferenceCount
        strTemp = strTemp & vbCrLf & "时间戳: " & vbTab & objFDL.TimeStamp
        strTemp = strTemp & vbCrLf & "GUID 版本: " & vbTab & objFDL.VersionGuid
        MsgBox strTemp
    Next
End Sub