使用VBA从CAD中提取明细表数据

Sub DBXTest(PathStr As String, filestr As String)
'On Error GoTo aaa
Dim Filename, OutText As String
Dim partcount
Dim tagStr As String
Dim mxStr As String
Dim errstr1, errstr2, errstr3 As String, errstr4 As String
Dim fname As String
Dim Tph As String
Dim xbl
Dim str1 As String
Dim tt() As String
Dim ss() As String
Dim Tstr1(5) As String
partcount = 0
OutText = ""
Dim mxnum As Integer
Dim objDbx As AxDbDocument
'Dim entobj As AcadBlockReference
Dim Btlstr As String
Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")  '创建对象，不同版本可能有点区别
'若是AutoCAD2002和AutoCAD2000i是”ObjectDBX.AxDbDocument.1
'objDbx = getintergaceobject
'getvar "acadver")
On Error Resume Next
fname = PathStr & filestr
objDbx.Open fname '要打开的文件名
 mxnum = 0
Yjg = False
TZerr = False

'
For Each EntObj In objDbx.ModelSpace  '遍历模型空间对象
    If EntObj.ObjectName = "AcDbBlockReference" Then
      ' List2.AddItem EntOBJ.Name
      
      
        If EntObj.Name = "PC_MXB_BLOCK" Then
'bbb:
'
     '      EntObj.typeof (Name)
           varattributes = EntObj.GetAttributes()
           mxnum = mxnum + 1
           TZerr = False
            errstr1 = ""
             errstr2 = ""
             errstr3 = ""
             errstr4 = ""
          For i = 0 To UBound(varattributes)
             tagStr = varattributes(i).TagString
             OutText = OutText & Trim(varattributes(i).TextString) & "?"
            
             
             If Trim(varattributes(i).TextString) = "" And varattributes(i).TagString = "名称" Then
                errstr1 = "缺少名称"
                
                
                TZerr = True
             End If
             
             If varattributes(i).TagString = "品号" Then