4、DefineRules for Selection Filters定義選擇集過濾器規則

You can limit which objects are selectedand added to a selection set by using a selection filter. A selection filterlist can be used to filter selected objects by properties or type. For example,you might want to select only blue objects or objects on a certain layer. Youcan also combine selection criteria. For example, you can create a selectionfilter that limits selection to blue circles on the layer named Pattern.Selection filters can be specified as a parameter for the different selectionmethods in?SelectObjects in the Drawing Area.

我們可以通過使用選擇過濾器來限制哪些對象被選中并添加到選擇集。選擇過濾器列表用來通過屬性或類型過濾所選對象，例如，我們可能想只選擇藍色的對象或某一圖層上的對象。我們還可以使用選擇條件組合，例如，我們可以創建一個選擇過濾器將選擇對象限定于Pattern圖層上的藍色的圓。可以為“在圖形區域選擇對象”一節中的各種不同選擇方法指定選擇過濾器作為參數。

?

Note?Filtering recognizes values explicitly assigned toobjects, not those inherited by the layer. For example, if an object’s linetypeproperty is set to ByLayer and the layer it is assigned is set to the Hiddenlinetype; filtering for objects assigned the Hidden linetype will not selectthese objects since their linetype property is set to ByLayer.

注意：使用過濾只能識別顯式賦給對象的值，而不能識別繼承自圖層的那些值。比如，如果對象的線型屬性設置為隨圖層（ByLayer）而該圖層線型為Hidden，那么要過濾線型為Hidden的對象將不會選擇那些線型屬性為隨圖層（ByLayer）的對象。

?

Topics in this section本小節內容

·??????Use Selection Filters to Define Selection Set Rules?使用選擇過濾器定義選擇集規則

·??????Specify Multiple Criteria in a Selection Filter?多個過濾條件

·??????Add Complexity to Your Filter List Conditions?復雜的過濾條件

·??????Use Wild-Card Patterns in Selection Set Filter Criteria?在過濾條件里使用通配符

·??????Filter for Extended Data?過濾擴展數據

?

4.1、UseSelection Filters to Define Selection Set Rules使用選擇過濾器定義選擇集規則

Selection filters are composed of pairs ofarguments in the form of TypedValues. The first argument of a TypedValueidentifies the type of filter (for example, an object), and the second argumentspecifies the value you are filtering on (for example, circles). The filtertype is a DXF group code that specifies which filter to use. A few of the mostcommon filter types are listed here.

選擇過濾器由TypedValue形式的一對參數構成。TypedValue的第一個參數表明過濾器的類型（例如對象），第二個參數為要過濾的值（例如圓）。過濾器類型是一個DXF組碼，用來指定使用哪種過濾器。一些常用過濾器類型列表如下。

?

?

For a complete list of DXF group codes,see Group Code Value Types in the?DXF Reference.

DXF組碼的完整列表，見DXF參考手冊中組碼值類型一節

Specify a single selection criterion fora selection set 指定單個選擇條件

The following code prompts users to selectobjects to be included in a selection set, and filters out all objects exceptfor circles.

下面程序提示用戶選擇對象放到選擇集內，然后過濾掉圓以外的其他所有對象。

VB.NET

ImportsAutodesk.AutoCAD.Runtime

ImportsAutodesk.AutoCAD.ApplicationServices

ImportsAutodesk.AutoCAD.DatabaseServices

ImportsAutodesk.AutoCAD.EditorInput

?

<CommandMethod("FilterSelectionSet")>_

Public SubFilterSelectionSet()

? '' Get the current document editor

? Dim acDocEd As Editor =Application.DocumentManager.MdiActiveDocument.Editor

?

? '' Create a TypedValue array to define thefilter criteria

? Dim acTypValAr(0) As TypedValue

? acTypValAr.SetValue(NewTypedValue(DxfCode.Start, "CIRCLE"), 0)

?

? '' Assign the filter criteria to aSelectionFilter object

? Dim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)

?

? '' Request for objects to be selected in thedrawing area

? Dim acSSPrompt As PromptSelectionResult

? acSSPrompt = acDocEd.GetSelection(acSelFtr)

?

? '' If the prompt status is OK, objects wereselected

? If acSSPrompt.Status = PromptStatus.OK Then

????? Dim acSSet As SelectionSet =acSSPrompt.Value

?

?? ???Application.ShowAlertDialog("Number ofobjects selected: " & _

?????????????????????????????????acSSet.Count.ToString())

? Else

????? Application.ShowAlertDialog("Numberof objects selected: 0")

? End If

End Sub

C#

usingAutodesk.AutoCAD.Runtime;

usingAutodesk.AutoCAD.ApplicationServices;

usingAutodesk.AutoCAD.DatabaseServices;

usingAutodesk.AutoCAD.EditorInput;

?

[CommandMethod("FilterSelectionSet")]

public static voidFilterSelectionSet()

{

? // Get the current document editor獲取當前文檔編輯器

? Editor acDocEd =Application.DocumentManager.MdiActiveDocument.Editor;

?

? // Create a TypedValue array to define thefilter criteria

? // 創建一個TypedValue數組來定義過濾器條件

? TypedValue[] acTypValAr = new TypedValue[1];

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Start, "CIRCLE"), 0);

?

? // Assign the filter criteria to aSelectionFilter object

? // 將過濾器條件賦值給SelectionFilter對象

? SelectionFilter acSelFtr = newSelectionFilter(acTypValAr);

?

? // Request for objects to be selected in thedrawing area

? // 請求用戶在圖形區域選擇對象

??PromptSelectionResult acSSPrompt;

? acSSPrompt = acDocEd.GetSelection(acSelFtr);

?

? // If the prompt status is OK, objects wereselected

? // 提示狀態OK，表示用戶已選完

? if (acSSPrompt.Status == PromptStatus.OK)

? {

????? SelectionSet acSSet = acSSPrompt.Value;

?

?????Application.ShowAlertDialog("Number of objects selected: " +

?????????????????????????????????acSSet.Count.ToString());

? }

? else

? {

????? Application.ShowAlertDialog("Numberof objects selected: 0");

? }

}

VBA/ActiveX CodeReference

Sub FilterSelectionSet()

??? ' Create a new selection set

??? Dim sset As AcadSelectionSet

??? Set sset =ThisDrawing.SelectionSets.Add("SS1")

?

??? ' Define the filter list, only Circleobjects

??? ' will be selectable

??? Dim FilterType(0) As Integer

??? Dim FilterData(0) As Variant

??? FilterType(0) = 0

??? FilterData(0) = "Circle"

?

??? ' Prompt the user to select objects

??? ' and add them to the selection set

??? sset.SelectOnScreen FilterType, FilterData

?

??? MsgBox "Number of objects selected:" & sset.Count

?

??? ' Remove the selection set at the end

??? sset.Delete

End Sub

?

4.2、SpecifyMultiple Criteria in a Selection Filter多個過濾條件

A selection filter can contain filteringcriteria for more than just one property or object. You define the total numberof conditions to filter on by declaring an array containing enough elements torepresent each of the filter criterion.

選擇過濾器可以包含過濾多個屬性或對象的條件。可以通過聲明一個包含足夠數量元素的數組來定義總的過濾條件，數組的每個元素代表一個過濾條件。

Select objects that meet two criterion 選擇滿足兩個條件的對象

The following example specifies twocriterion to filter selected objects by: the object must be a circle and itmust reside on layer 0.

下面示例指定兩個條件過濾所選對象：對象為圓且在0層上。

VB.NET

ImportsAutodesk.AutoCAD.Runtime

ImportsAutodesk.AutoCAD.ApplicationServices

ImportsAutodesk.AutoCAD.DatabaseServices

ImportsAutodesk.AutoCAD.EditorInput

?

<CommandMethod("FilterBlueCircleOnLayer0")>_

Public SubFilterBlueCircleOnLayer0()

? '' Get the current document editor

? Dim acDocEd As Editor =Application.DocumentManager.MdiActiveDocument.Editor

?

? '' Create a TypedValue array to define thefilter criteria

? Dim acTypValAr(2) As TypedValue

? acTypValAr.SetValue(NewTypedValue(DxfCode.Color, 5), 0)

? acTypValAr.SetValue(NewTypedValue(DxfCode.Start, "CIRCLE"), 1)

? acTypValAr.SetValue(NewTypedValue(DxfCode.LayerName, "0"), 2)

?

? '' Assign the filter criteria to a SelectionFilterobject

? Dim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)

?

? '' Request for objects to be selected in thedrawing area

? Dim acSSPrompt As PromptSelectionResult

? acSSPrompt = acDocEd.GetSelection(acSelFtr)

?

? '' If the prompt status is OK, objects wereselected

? If acSSPrompt.Status = PromptStatus.OK Then

????? Dim acSSet As SelectionSet =acSSPrompt.Value

?

????? Application.ShowAlertDialog("Numberof objects selected: " & _

?????????????????????????????????acSSet.Count.ToString())

? Else

????? Application.ShowAlertDialog("Numberof objects selected: 0")

? End If

End Sub

C#

usingAutodesk.AutoCAD.Runtime;

usingAutodesk.AutoCAD.ApplicationServices;

usingAutodesk.AutoCAD.DatabaseServices;

usingAutodesk.AutoCAD.EditorInput;

?

[CommandMethod("FilterBlueCircleOnLayer0")]

public static voidFilterBlueCircleOnLayer0()

{

? // Get the current document editor獲取當前文檔編輯器

? Editor acDocEd =Application.DocumentManager.MdiActiveDocument.Editor;

?

? // Create a TypedValue array to define thefilter criteria

? // 創建TypedValue數組定義過濾條件

? TypedValue[] acTypValAr = new TypedValue[3];

? acTypValAr.SetValue(new TypedValue((int)DxfCode.Color,5), 0);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Start, "CIRCLE"), 1);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.LayerName, "0"), 2);

?

? // Assign the filter criteria to aSelectionFilter object

? // 將過濾條件賦值給SelectionFilter對象

? SelectionFilter acSelFtr = newSelectionFilter(acTypValAr);

?

? // Request for objects to be selected in thedrawing area

? // 請求在圖形區域選擇對象

? PromptSelectionResult acSSPrompt;

? acSSPrompt = acDocEd.GetSelection(acSelFtr);

?

? // If the prompt status is OK, objects wereselected

? // 如果提示狀態OK，表示對象已選

? if (acSSPrompt.Status == PromptStatus.OK)

? {

????? SelectionSet acSSet = acSSPrompt.Value;

?

????? Application.ShowAlertDialog("Numberof objects selected: " +

????????????????????????????????? acSSet.Count.ToString());

? }

? else

? {

????? Application.ShowAlertDialog("Numberof objects selected: 0");

? }

}

VBA/ActiveX CodeReference

SubFilterBlueCircleOnLayer0()

??? Dim sset As AcadSelectionSet

??? Set sset =ThisDrawing.SelectionSets.Add("SS1")

?

??? ' Define the filter list, only blue Circleobjects

??? ' on layer 0

??? Dim FilterType(2) As Integer

??? Dim FilterData(2) As Variant

?

??? FilterType(0) = 62: FilterData(0) = 3

??? FilterType(1) = 0: FilterData(1) ="Circle"

??? FilterType(2) = 8: FilterData(2) ="0"

?

??? ' Prompt the user to select objects

??? ' and add them to the selection set

??? sset.SelectOnScreen FilterType, FilterData

?

??? MsgBox "Number of objects selected:" & sset.Count

?

??? ' Remove the selection set at the end

??? sset.Delete

End Sub

?

?

4.3、AddComplexity to Your Filter List Conditions復雜的過濾條件

When you specify multiple selectioncriteria, AutoCAD assumes the selected object must meet each criterion. You canqualify your criteria in other ways. For numeric items, you can specifyrelational operations (for example, the radius of a circle must be?greaterthan or equal?to 5.0). And for all items, you can specify logicaloperations (for example, Text?or?MText).

當指定多個選擇條件時，AutoCAD假設所選對象必須滿足每個條件。我們還可以以別的方式搞定過濾條件。對于數值項，可以使用關系運算（比如，遠的半徑必須大于等于5.0）。對于所有項，可以使用邏輯運算（比如單行文字或多行文字）。

Use a -4 DXF code or the constantDxfCode.Operator to indicate a relational operator in a selection filter. Theoperator is expressed as a string. The allowable relational operators are shownin the following table.

使用DXF組碼-4或常量DxfCode.Operator表示選擇過濾器中的關系預算符類型。運算符本身用字符串表示。可用的關系運算符列表如下：

?

Relational operators for selection set filter lists關系運算符列表
Operator運算符	Description描述
"*"	Anything goes (always true)任何情況（總為True）
"="	Equals等于
"!="	Not equal to不等于
"/="	Not equal to不等于
"<>"	Not equal to不等于
"<"	Less than小于
"<="	Less than or equal to小于等于
">"	Greater than大于
">="	Greater than or equal to大于等于
"&"	Bitwise AND (integer groups only)位與（僅限整數組）
"&="	Bitwise masked equals (integer groups only)位屏蔽等于（僅限整數組）

?

Logical operators in a selection filterare also indicated by a -4 group code or the constant DxfCode.Operator, and theoperator is a string, but the operators must be paired. The opening operator ispreceded by a less-than symbol (<), and the closing operator is followed bya greater-than symbol (>). The following table lists the logical operatorsallowed in selection set filtering.

選擇過濾器中的邏輯操作符同樣用-4組碼或常量DxfCode.Operator表示，邏輯操作符為字符串，且必須成對出現。操作符開始于小于號（<）,結束于大于號（>）。下表；列出了用于選擇集過濾器的邏輯操作符。

?

Logical grouping operators for selection set filter lists
Starting operator起始操作符	Encloses包括：	Ending operator結束操作符
"<AND"	One or more operands一個以上操作數	"AND>"
"<OR"	One or more operands一個以上操作數	"OR>"
"<XOR"	Two operands兩個操作數	"XOR>"
"<NOT"	One operand一個操作數	"NOT>"

?

Select a circle whose radius is greaterthan or equal to 5.0 選擇半徑大于等于5.0的圓

The following example selects circleswhose radius is greater than or equal to 5.0.

下面例子選擇半徑大于等于5.0的圓。

VB.NET

ImportsAutodesk.AutoCAD.Runtime

ImportsAutodesk.AutoCAD.ApplicationServices

ImportsAutodesk.AutoCAD.DatabaseServices

ImportsAutodesk.AutoCAD.EditorInput

?

<CommandMethod("FilterRelational")>_

Public SubFilterRelational()

? '' Get the current document editor

? Dim acDocEd As Editor =Application.DocumentManager.MdiActiveDocument.Editor

?

? '' Create a TypedValue array to define thefilter criteria

? Dim acTypValAr(2) As TypedValue

? acTypValAr.SetValue(NewTypedValue(DxfCode.Start, "CIRCLE"), 0)

? acTypValAr.SetValue(NewTypedValue(DxfCode.Operator, ">="), 1)

? acTypValAr.SetValue(New TypedValue(40, 5), 2)

?

? '' Assign the filter criteria to a SelectionFilterobject

? Dim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)

?

? '' Request for objects to be selected in thedrawing area

? Dim acSSPrompt As PromptSelectionResult

? acSSPrompt = acDocEd.GetSelection(acSelFtr)

?

? '' If the prompt status is OK, objects wereselected

? If acSSPrompt.Status = PromptStatus.OK Then

????? Dim acSSet As SelectionSet =acSSPrompt.Value

?

????? Application.ShowAlertDialog("Numberof objects selected: " & _

?????????????????????????????????acSSet.Count.ToString())

? Else

????? Application.ShowAlertDialog("Numberof objects selected: 0")

? End If

End Sub

C#

usingAutodesk.AutoCAD.Runtime;

usingAutodesk.AutoCAD.ApplicationServices;

usingAutodesk.AutoCAD.DatabaseServices;

usingAutodesk.AutoCAD.EditorInput;

?

[CommandMethod("FilterRelational")]

public static voidFilterRelational()

{

? // Get the current document editor獲取當前文檔編輯器

? Editor acDocEd =Application.DocumentManager.MdiActiveDocument.Editor;

?

? // Create a TypedValue array to define thefilter criteria

? // 創建TypedValue來定義過濾條件

? TypedValue[] acTypValAr = new TypedValue[3];

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Start, "CIRCLE"), 0);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Operator, ">="), 1);

? acTypValAr.SetValue(new TypedValue(40, 5),2);

?

? // Assign the filter criteria to aSelectionFilter object

? // 將過濾條件復制給SelectionFilter對象

? SelectionFilter acSelFtr = newSelectionFilter(acTypValAr);

?

? // Request for objects to be selected in thedrawing area

? // 請求在圖形區域選擇對象

? PromptSelectionResult acSSPrompt;

? acSSPrompt = acDocEd.GetSelection(acSelFtr);

?

? // If the prompt status is OK, objects wereselected

? // 提示欄OK，表示對象已選

? if (acSSPrompt.Status == PromptStatus.OK)

? {

????? SelectionSet acSSet = acSSPrompt.Value;

?

????? Application.ShowAlertDialog("Numberof objects selected: " +

?????????????????????????????????acSSet.Count.ToString());

? }

? else

? {

????? Application.ShowAlertDialog("Numberof objects selected: 0");

? }

}

VBA/ActiveX Code Reference

SubFilterRelational()

??? Dim sset As AcadSelectionSet

??? Dim FilterType(2) As Integer

??? Dim FilterData(2) As Variant

??? Set sset =ThisDrawing.SelectionSets.Add("SS1")

??? FilterType(0) = 0: FilterData(0) ="Circle"

??? FilterType(1) = -4: FilterData(1) =">="

??? FilterType(2) = 40: FilterData(2) = 5#

?

??? sset.SelectOnScreen FilterType, FilterData

?

??? MsgBox "Number of objects selected:" & sset.Count

?

??? ' Remove the selection set at the end

??? sset.Delete

End Sub

Select either Text or MText 選擇單行文字或多行文字

The following example specifies thateither Text or MText objects can be selected.

下面例子演示可以選擇Text（單行文字）或者MText（多行文字）。

VB.NET

ImportsAutodesk.AutoCAD.Runtime

ImportsAutodesk.AutoCAD.ApplicationServices

ImportsAutodesk.AutoCAD.DatabaseServices

ImportsAutodesk.AutoCAD.EditorInput

?

<CommandMethod("FilterForText")>_

Public SubFilterForText()

? '' Get the current document editor

? Dim acDocEd As Editor =Application.DocumentManager.MdiActiveDocument.Editor

?

? '' Create a TypedValue array to define thefilter criteria

? Dim acTypValAr(3) As TypedValue

? acTypValAr.SetValue(NewTypedValue(DxfCode.Operator, "<or"), 0)

? acTypValAr.SetValue(New TypedValue(DxfCode.Start,"TEXT"), 1)

? acTypValAr.SetValue(NewTypedValue(DxfCode.Start, "MTEXT"), 2)

? acTypValAr.SetValue(NewTypedValue(DxfCode.Operator, "or>"), 3)

?

? '' Assign the filter criteria to aSelectionFilter object

? Dim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)

?

? '' Request for objects to be selected in thedrawing area

? Dim acSSPrompt As PromptSelectionResult

? acSSPrompt = acDocEd.GetSelection(acSelFtr)

?

? '' If the prompt status is OK, objects wereselected

? If acSSPrompt.Status = PromptStatus.OK Then

????? Dim acSSet As SelectionSet =acSSPrompt.Value

?

????? Application.ShowAlertDialog("Numberof objects selected: " & _

?????????????????????????????????acSSet.Count.ToString())

? Else

????? Application.ShowAlertDialog("Numberof objects selected: 0")

? End If

End Sub

C#

usingAutodesk.AutoCAD.Runtime;

usingAutodesk.AutoCAD.ApplicationServices;

usingAutodesk.AutoCAD.DatabaseServices;

usingAutodesk.AutoCAD.EditorInput;

?

[CommandMethod("FilterForText")]

public static voidFilterForText()

{

? // Get the current document editor

? Editor acDocEd =Application.DocumentManager.MdiActiveDocument.Editor;

?

? // Create a TypedValue array to define thefilter criteria

? TypedValue[] acTypValAr = new TypedValue[4];

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Operator, "<or"), 0);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Start, "TEXT"), 1);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Start, "MTEXT"), 2);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Operator, "or>"), 3);

?

? // Assign the filter criteria to aSelectionFilter object

? SelectionFilter acSelFtr = newSelectionFilter(acTypValAr);

?

? // Request for objects to be selected in thedrawing area

? PromptSelectionResult acSSPrompt;

? acSSPrompt = acDocEd.GetSelection(acSelFtr);

?

? // If the prompt status is OK, objects wereselected

? if (acSSPrompt.Status == PromptStatus.OK)

? {

????? SelectionSet acSSet = acSSPrompt.Value;

?

????? Application.ShowAlertDialog("Numberof objects selected: " +

??????? ??????????????????????????acSSet.Count.ToString());

? }

? else

? {

????? Application.ShowAlertDialog("Numberof objects selected: 0");

? }

}

VBA/ActiveX CodeReference

Sub FilterForText()

??? Dim sset As AcadSelectionSet

??? Dim FilterType(3) As Integer

??? Dim FilterData(3) As Variant

??? Set sset =ThisDrawing.SelectionSets.Add("SS1")

?

??? FilterType(0) = -4: FilterData(0) ="<or"

??? FilterType(1) = 0: FilterData(1) ="TEXT"

??? FilterType(2) = 0: FilterData(2) ="MTEXT"

??? FilterType(3) = -4: FilterData(3) ="or>"

?

??? sset.SelectOnScreen FilterType, FilterData

?

??? MsgBox "Number of objects selected:" & sset.Count

?

??? ' Remove the selection set at the end

??? sset.Delete

End Sub

?

4.4、UseWild-Card Patterns in Selection Set Filter Criteria在過濾條件里使用通配符

Symbol names and strings in selectionfilters can include wild-card patterns.

選擇過濾器中的符號名字和字符串可以包含通配符。

The following table identifies thewild-card characters recognized by AutoCAD, and what each means in the contextof a string:

下表為AutoCAD能夠識別的通配字符，及其在字符串上下文所代表的意義：

?

?

Use a reverse quote (`) to indicate that acharacter is not a wildcard, but is to be taken literally. For example, tospecify that only an anonymous block named “*U2” be included in the selectionset, use the value“`*U2”.

使用轉義引號（’）表示一個字符不是通配符，應逐個字符使用。例如，要指定只將名為“*U2”的匿名塊包含在選擇集中，應使用值“’*U2”。

Select MText where a specific wordappears in the text 選擇包含指定文字的MText

The following example defines a selectionfilter that selects MText objects that contain the text string of “The”.

下例定義一個選擇過濾器，選擇包含文字串“The”的MText對象。

VB.NET

ImportsAutodesk.AutoCAD.Runtime

ImportsAutodesk.AutoCAD.ApplicationServices

ImportsAutodesk.AutoCAD.DatabaseServices

ImportsAutodesk.AutoCAD.EditorInput

?

<CommandMethod("FilterMtextWildcard")>_

Public SubFilterMtextWildcard()

? '' Get the current document editor

? Dim acDocEd As Editor =Application.DocumentManager.MdiActiveDocument.Editor

?

? '' Create a TypedValue array to define thefilter criteria

? Dim acTypValAr(1) As TypedValue

? acTypValAr.SetValue(NewTypedValue(DxfCode.Start, "MTEXT"), 0)

? acTypValAr.SetValue(New TypedValue(DxfCode.Text,"*The*"), 1)

?

? '' Assign the filter criteria to aSelectionFilter object

? Dim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)

?

? '' Request for objects to be selected in thedrawing area

? Dim acSSPrompt As PromptSelectionResult

? acSSPrompt = acDocEd.GetSelection(acSelFtr)

?

? '' If the prompt status is OK, objects wereselected

? If acSSPrompt.Status = PromptStatus.OK Then

????? Dim acSSet As SelectionSet =acSSPrompt.Value

?

????? Application.ShowAlertDialog("Numberof objects selected: " & _

?????????????????????????????????acSSet.Count.ToString())

? Else

????? Application.ShowAlertDialog("Numberof objects selected: 0")

? End If

End Sub

C#

usingAutodesk.AutoCAD.Runtime;

usingAutodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.DatabaseServices;

usingAutodesk.AutoCAD.EditorInput;

?

[CommandMethod("FilterMtextWildcard")]

public static voidFilterMtextWildcard()

{

? // Get the current document editor

? Editor acDocEd =Application.DocumentManager.MdiActiveDocument.Editor;

?

? // Create a TypedValue array to define thefilter criteria

? TypedValue[] acTypValAr = new TypedValue[2];

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Start, "MTEXT"), 0);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.Text, "*The*"), 1);

?

? // Assign the filter criteria to aSelectionFilter object

? SelectionFilter acSelFtr = newSelectionFilter(acTypValAr);

?

? // Request for objects to be selected in thedrawing area

? PromptSelectionResult acSSPrompt;

? acSSPrompt = acDocEd.GetSelection(acSelFtr);

?

? // If the prompt status is OK, objects wereselected

? if (acSSPrompt.Status == PromptStatus.OK)

? {

????? SelectionSet acSSet = acSSPrompt.Value;

?

????? Application.ShowAlertDialog("Numberof objects selected: " +

??????????????????? ??????????????acSSet.Count.ToString());

? }

? else

? {

????? Application.ShowAlertDialog("Numberof objects selected: 0");

? }

}

VBA/ActiveX Code Reference

SubFilterMtextWildcard()

??? Dim sset As AcadSelectionSet

??? Dim FilterType(1) As Integer

??? Dim FilterData(1) As Variant

??? Set sset =ThisDrawing.SelectionSets.Add("SS1")

?

??? FilterType(0) = 0

??? FilterData(0) = "MTEXT"

??? FilterType(1) = 1

??? FilterData(1) = "*The*"

?

??? sset.SelectOnScreen FilterType, FilterData

?

??? MsgBox "Number of objects selected:" & sset.Count

?

??? ' Remove the selection set at the end

??? sset.Delete

End Sub

?

4.5、Filterfor Extended Data過濾擴展數據

External applications can attach data suchas text strings, numeric values, 3D points, distances, and layer names to AutoCADobjects. This data is referred to as extended data, or xdata. You can filterentities containing extended data for a specified application.

外部應用程序可以向AutoCAD對象提供諸如文本串、數值、3D點、距離、圖層名等數據。這些數據我們稱之為擴展數據，或叫xdata。我們可以過濾含有指定外部程序擴展數據的實體。

Select circles that contain xdata 選擇含有擴展數據的圓

The following example filters for circlescontaining xdata added by the “MY_APP” application:

下例多慮含有由程序“MY_APP”添加了擴展數據的圓。

VB.NET

ImportsAutodesk.AutoCAD.Runtime

ImportsAutodesk.AutoCAD.ApplicationServices

ImportsAutodesk.AutoCAD.DatabaseServices

ImportsAutodesk.AutoCAD.EditorInput

?

<CommandMethod("FilterXdata")>_

Public SubFilterXdata()

? '' Get the current document editor

? Dim acDocEd As Editor =Application.DocumentManager.MdiActiveDocument.Editor

?

? '' Create a TypedValue array to define thefilter criteria

? Dim acTypValAr(1) As TypedValue

? acTypValAr.SetValue(NewTypedValue(DxfCode.Start, "Circle"), 0)

? acTypValAr.SetValue(NewTypedValue(DxfCode.ExtendedDataRegAppName, _

????????????????????????????????????"MY_APP"), 1)

?

? '' Assign the filter criteria to aSelectionFilter object

? Dim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)

?

? '' Request for objects to be selected in thedrawing area

? Dim acSSPrompt As PromptSelectionResult

? acSSPrompt = acDocEd.GetSelection(acSelFtr)

?

? '' If the prompt status is OK, objects wereselected

? If acSSPrompt.Status = PromptStatus.OK Then

????? Dim acSSet As SelectionSet =acSSPrompt.Value

?

????? Application.ShowAlertDialog("Numberof objects selected: " & _

?????????????????????????????????acSSet.Count.ToString())

? Else

????? Application.ShowAlertDialog("Numberof objects selected: 0")

? End If

End Sub

C#

usingAutodesk.AutoCAD.Runtime;

usingAutodesk.AutoCAD.ApplicationServices;

usingAutodesk.AutoCAD.DatabaseServices;

usingAutodesk.AutoCAD.EditorInput;

?

[CommandMethod("FilterXdata")]

public static voidFilterXdata()

{

? // Get the current document editor

? Editor acDocEd =Application.DocumentManager.MdiActiveDocument.Editor;

?

? // Create a TypedValue array to define thefilter criteria

? TypedValue[] acTypValAr = new TypedValue[2];

? acTypValAr.SetValue(new TypedValue((int)DxfCode.Start,"Circle"), 0);

? acTypValAr.SetValue(newTypedValue((int)DxfCode.ExtendedDataRegAppName,

????????????????????????????????????"MY_APP"), 1);

?

? // Assign the filter criteria to aSelectionFilter object

? SelectionFilter acSelFtr = new SelectionFilter(acTypValAr);

?

? // Request for objects to be selected in thedrawing area

? PromptSelectionResult acSSPrompt;

? acSSPrompt = acDocEd.GetSelection(acSelFtr);

?

? // If the prompt status is OK, objects wereselected

? if (acSSPrompt.Status == PromptStatus.OK)

? {

????? SelectionSet acSSet = acSSPrompt.Value;

?

????? Application.ShowAlertDialog("Numberof objects selected: " +

?????????????????????????????????acSSet.Count.ToString());

? }

? else

? {

????? Application.ShowAlertDialog("Numberof objects selected: 0");

? }

}

VBA/ActiveX Code Reference

Sub FilterXdata()

??? Dim sset As AcadSelectionSet

??? Dim FilterType(1) As Integer

??? Dim FilterData(1) As Variant

??? Set sset =ThisDrawing.SelectionSets.Add("SS1")

?

??? FilterType(0) = 0: FilterData(0) ="Circle"

??? FilterType(1) = 1001: FilterData(1) ="MY_APP"

?

??? sset.SelectOnScreen FilterType, FilterData

?

??? MsgBox "Number of objects selected:" & sset.Count

?

??? ' Remove the selection set at the end

??? sset.Delete

End Sub

?

?

?

?

5、Remove Objects From a Selection Set從選擇集刪除對象

After you create a selection set, you canwork with the object ids of the objects selected. Selection sets do not allowyou to add or remove object ids from it, but you can use an ObjectIdCollectionobject to merge multiple selection sets into a single object to work with. Youcan add and remove object ids from an ObjectIdCollection object. Use the Remove or RemoveAt methods to remove an object id from anObjectIdCollection object. For information on merging multiple selection setsand working with an ObjectIdCollection object, see?AddTo or Merge Multiple Selection Sets.

創建選擇集后，接下來就可以使用所選對象的id。選擇集不允許從中添加或刪除對象id，不過我們可以用ObjectIdCollection對象將多個選擇集合并為單個選擇集使用。我們可以從ObjectIdCollection對象中添加或刪除對象id。從ObjectIdCollection對象中刪除一個對象id，使用Remove方法或RemoveAt方法。

關于合并多個選擇集和使用ObjectIdCollection對象的更多內容，見“添加或合并多個選擇集”。

?

總結

以上是生活随笔為你收集整理的03-03 创建和编辑AutoCAD实体（三） 使用选择集（2）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。