仅从后台视图搜索和删除项目

Question

我正在编写代码，以删除VB.NET中的起草工作台中后台视图中的所有内容。但是当我尝试搜索并选择它时，它会选择所有内容，其中包括不在背景视图中的其他工作表中的元素。

我正在使用的代码如下：

    oSheet = odrawing.Sheets
    Dim sheet1 As DrawingSheet
    sheet1 = oSheet.ActiveSheet


    Dim oView As DrawingView
    oView = sheet1.Views.Item("Background View")
    oView.Activate()


    Dim selection1 As Selection
    selection1 = odrawing.Selection()
    selection1.Search("Drafting.-Drafting.Sheet.Name=* +Drafting.View.Name=* + Name=Drawing+Drafting..Name=DrwDressUp*,all")


    Dim objcount As Integer
    objcount = selection1.Count
    selection1.Delete()