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 = 

            'Debug.Print e.ObjectName

            If e.ObjectName = "AcDbText" Then
                Set text = e
                If Left(text.TextString, ) = "宗" Then
                    text.Delete
                End If
            End If
        Next

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

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