[编程交流] VBScript块属性错误

Dim fso
Dim oFolder
Dim colFiles
Dim oFile
Dim oAcad
Dim pSpace
Dim i
Dim c
Dim ent
Dim varAtt
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(WScript.Arguments(0)) Then
Set oFolder = fso.GetFolder(WScript.Arguments(0))
Set oAcad = CreateObject("AutoCAD.Application")
oAcad.Visible = True
Set colFiles = oFolder.Files
   For each oFile in colFiles
           if Right(oFile.Name, 3) = "dwg" Then
       oAcad.Documents.Open oFile
           Set doc = oAcad.ActiveDocument
           Set pSpace = doc.PaperSpace
           
               For c = 0 To pSpace.Count -1
               Set ent = pSpace.Item(c)
                   If ent.EntityName = "AcDbBlockReference" Then  'LINE 30======
                       If ent.HasAttributes Then
                           varAtt = ent.GetAttributes    
                               For i = LBound(varAtt) To UBound(varAtt)
                                   If varAtt.Item(i).TagString = "TITLE1" Then
                                       MsgBox varAtt.TegxtString
                                   End If
                               Next
                       End If
           
                   End If
               
               Next
       End If
   Next
End If