AutoCAD开发5--批量修改dwg文件

    Dim files, path, filename
   
    path = ThisDrawing.Utility.GetString(True, "输入dwg文件所在路径:")
    'dwg文件路径
    
    If path = "" Then Return
    
    files = Dir(path & "*.dwg")

    
    Dim text As AcadText

    
    Do While files <> ""
    
        '打开dwg文件
      ThisDrawing.Application.Documents.Open (path & files)

        For Each e In ThisDrawing.ModelSpace
        
            '设置颜色为白色
         e.color = 7
            
            'Debug.Print e.ObjectName
             
            If e.ObjectName = "AcDbText" Then
                Set text = e
                If Left(text.TextString, 1) = "宗" Then
                    text.Delete
                End If
            End If
        Next

        ThisDrawing.Save
        ThisDrawing.Close
        files = Dir()
    Loop 

删除dwg文件中第一个字为“宗”的所有文字