在使用Select方法时如何设置FilterType , FilterData - VBA/VB/ActiveX/API 编程技术 - AutoCAD论坛 - 明经CAD社区

cobalt 发表于 2004-11-1 21:17:00

在使用Select方法时如何设置FilterType, FilterData

根据AutoCAD2004 VBA的说明，Select方法的描述为：

object.Select Mode[, Point1][, Point2][, FilterType][, FilterData]

如选择所有的圆，可以使用如下代码：

Dim gpCode(0) As Integer Dim dataValue(0) As Variant gpCode(0) = 0 dataValue(0) = "Circle" ssetObj.Select acSelectionSetAll, , , gpCode, dataValue

我的问题就是，如果要选择其它的对象，如何设置FilterType, FilterData？比如对象为Ployline时。

哪位大侠能不能给一个关于此类设置的总结啊？

2017forverd 发表于 2017-10-26 09:11:57

王咣生发表于 2004-11-1 22:24
参考:'------------------------------------------------------------------Option Explicit

如果要选择“OLE”该怎么办？

yideng621 发表于 2017-11-14 22:07:40

雪山飞狐_lzh 发表于 2004-11-2 08:45
过滤器列表由成对的参数组成。第一个参数标识过滤器的类型（例如对象），第二个参数指定要过滤的值（例如圆 ...

正需要，谢谢

elepeipei 发表于 2017-10-27 13:34:50

看高手用到（66.1）只查到66是“图元跟随”标志(固定)，但是这个具体的意思，请问是什么

王咣生 发表于 2004-11-1 22:24:00

参考: '------------------------------------------------------------------ Option Explicit

'------------------------------------------------------------------

Public Sub Sample() On Error GoTo ERROR_HANDLER

Dim ssetObj As AcadSelectionSet Set ssetObj = CreateSSet("MySelection") Dim mode As Integer mode = acSelectionSetAll Dim gpCode(0 To 10) As Integer Dim dataValue(0 To 10) As Variant gpCode(0) = -4 dataValue(0) = "<Or" gpCode(1) = -4 dataValue(1) = "<And" gpCode(2) = 0 dataValue(2) = "LINE" gpCode(3) = -4 dataValue(3) = "And>" gpCode(4) = -4 dataValue(4) = "<And" gpCode(5) = 0 dataValue(5) = "POLYLINE" gpCode(6) = -4 dataValue(6) = "And>" gpCode(7) = -4 dataValue(7) = "<And" gpCode(8) = 0 dataValue(8) = "LWPOLYLINE" gpCode(9) = -4 dataValue(9) = "And>" gpCode(10) = -4 dataValue(10) = "Or>" Dim groupCode As Variant, dataCode As Variant groupCode = gpCode dataCode = dataValue ssetObj.Select mode, , , groupCode, dataCode MsgBox ssetObj.Count Exit Sub ERROR_HANDLER: Debug.Print "Error In GetIntersectionPoints: " & Err.Number & ", " & Err.Description End Sub

 '------------------------------------------------------------------ ' 创建选择集 '------------------------------------------------------------------ Private Function CreateSSet(ByVal name As String) As AcadSelectionSet On Error GoTo ERR_HANDLER Dim ssetObj As AcadSelectionSet Dim SSetColl As AcadSelectionSets Set SSetColl = ThisDrawing.SelectionSets Dim index As Integer Dim found As Boolean found = False

For index = 0 To SSetColl.Count - 1 Set ssetObj = SSetColl.Item(index) If StrComp(ssetObj.name, name, 1) = 0 Then found = True Exit For End If Next If Not (found) Then Set ssetObj = SSetColl.Add(name) Else ssetObj.Clear End If Set CreateSSet = ssetObj Exit Function ERR_HANDLER: Debug.Print "Error in sub CreateSSet: " & Err.Number & " -- "; Err.Description Resume ERR_END ERR_END: End Function

雪山飞狐_lzh 发表于 2004-11-2 08:45:00

过滤器列表由成对的参数组成。第一个参数标识过滤器的类型（例如对象），第二个参数指定要过滤的值（例如圆）。过滤器类型是指定使用哪种过滤器的 DXF 组码。下面列出了一些最常用的过滤器类型。
<TABLE class=BasicLeft cellSpacing=0 rules=cols>
<TBODY>
<TR class=row_0>
<TH class=BasicLeft_CELL colSpan=2>
常用过滤器的 DXF 组码

</TH></TR>
<TR class=row_0>
<TH class=BasicLeft_CELL>
DXF 组码

</TH>
<TH class=BasicLeft_CELL>
过滤器类型

</TH></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
0

</TD>
<TD class=BasicLeft_CELL>
对象类型（字符串）

例如“Line”、“Circle”、“Arc”等。

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
2

</TD>
<TD class=BasicLeft_CELL>
对象名（字符串）

命名对象的表（给定）名称。

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
8

</TD>
<TD class=BasicLeft_CELL>
图层名（字符串）

例如“图层 0”。

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
60

</TD>
<TD class=BasicLeft_CELL>
对象可见性（整数）

使用 0 = 可见，1 = 不可见。

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
62

</TD>
<TD class=BasicLeft_CELL>
颜色编号（整数）

范围 0 到 256 内的数字索引值。

零表示 BYBLOCK。256 表示 BYLAYER。负值表示图层被关闭。

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
67

</TD>
<TD class=BasicLeft_CELL>
模型/图纸空间标识符（整数）

使用 0 或省略 = 模型空间，1 = 图纸空间。

</TD></TR></TBODY></TABLE>


<A name="" nid="3"></A>

过滤器参数声明为数组，过滤器类型声明为整数，过滤器值声明为变量。每个过滤器类型都必须与过滤器值成对出现。例如：

<PRE class=prog_in_0>FilterType(0) = 0 ' 表示过滤器是对象类型
</PRE><PRE class=prog_in_end_0>FilterData(0) = "Circle" ' 表示对象类型是“Circle”
</PRE>
以下代码指定两个条件：对象必须是圆，并且必须在图层 0 上。代码将 FilterType 和 FilterData 声明为两个元素的数组，并将每个条件指定给一个元素：

<PRE class=prog_in_0>Sub Ch4_FilterBlueCircleOnLayer0()
</PRE><PRE class=prog_in_0> Dim sstext As AcadSelectionSet
</PRE><PRE class=prog_in_0> Dim FilterType(1) As Integer
</PRE><PRE class=prog_in_0> Dim FilterData(1) As Variant
</PRE><PRE class=prog_in_0> Set sstext = ThisDrawing.SelectionSets.Add("SS4")
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> FilterType(0) = 0
</PRE><PRE class=prog_in_0> FilterData(0) = "Circle"
</PRE><PRE class=prog_in_0></PRE><PRE class=prog_in_0> FilterType(1) = 8
</PRE><PRE class=prog_in_0> FilterData(1) = "0"
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> sstext.SelectOnScreen FilterType, FilterData
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_end_0>End Sub
</PRE>
在指定多个选择条件时，AutoCAD 会假设选定的对象必须符合每一个条件。但用户可以按照其他方式来指定条件。对于数字项，用户可以指定关系运算（例如，圆的半径必须大于或等于 5.0）；对于所有项，用户可以指定逻辑运算（例如 Text 或 Mtext）。

使用 -4 DXF 组码来指示过滤器规格中的关系运算符。以字符串的形式来指定运算符。下表显示了可以使用的关系运算符：
<TABLE class=BasicLeft cellSpacing=0 rules=cols>
<TBODY>
<TR class=row_0>
<TH class=BasicLeft_CELL colSpan=2>
选择集过滤器列表的关系运算符

</TH></TR>
<TR class=row_0>
<TH class=BasicLeft_CELL>
运算符

</TH>
<TH class=BasicLeft_CELL>
说明

</TH></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"*"

</TD>
<TD class=BasicLeft_CELL>
任何情况（总为真）

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
"="

</TD>
<TD class=BasicLeft_CELL>
等于

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"!="

</TD>
<TD class=BasicLeft_CELL>
不等于

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
"/="

</TD>
<TD class=BasicLeft_CELL>
不等于

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"<>"

</TD>
<TD class=BasicLeft_CELL>
不等于

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
"<"

</TD>
<TD class=BasicLeft_CELL>
小于

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"<="

</TD>
<TD class=BasicLeft_CELL>
小于或等于

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
">"

</TD>
<TD class=BasicLeft_CELL>
大于

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
">="

</TD>
<TD class=BasicLeft_CELL>
大于或等于

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
"&"

</TD>
<TD class=BasicLeft_CELL>
按位与 (AND，仅限于整数组）

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"&="

</TD>
<TD class=BasicLeft_CELL>
按位屏蔽相等（仅限于整数组）

</TD></TR></TBODY></TABLE>

-4 组码也可以指定过滤器列表中的逻辑运算符，逻辑运算符是字符串但必须成对出现。运算符以小于号开始 (<)，以大于号结束 (>)。下表列出了可以在选择集过滤中使用的逻辑运算符。
<TABLE class=BasicLeft cellSpacing=0 rules=cols>
<TBODY>
<TR class=row_0>
<TH class=BasicLeft_CELL colSpan=3>
选择集过滤器列表的逻辑编组运算符

</TH></TR>
<TR class=row_0>
<TH class=BasicLeft_CELL>
开始 运算符

</TH>
<TH class=BasicLeft_CELL>
 包含的内容

</TH>
<TH class=BasicLeft_CELL>
结束 运算符

</TH></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"<AND"

</TD>
<TD class=BasicLeft_CELL>
一个或多个运算对象

</TD>
<TD class=BasicLeft_CELL>
"AND>"

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
"<OR"

</TD>
<TD class=BasicLeft_CELL>
一个或多个运算对象

</TD>
<TD class=BasicLeft_CELL>
"OR>"

</TD></TR>
<TR class=row_2>
<TD class=BasicLeft_CELL>
"<XOR"

</TD>
<TD class=BasicLeft_CELL>
两个运算对象

</TD>
<TD class=BasicLeft_CELL>
"XOR>"

</TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
"<NOT"

</TD>
<TD class=BasicLeft_CELL>
一个运算对象

</TD>
<TD class=BasicLeft_CELL>
"NOT>"

</TD></TR></TBODY></TABLE>

以下代码指定选择半径大于或等于 5.0 的圆：

<PRE class=prog_in_0>Sub Ch4_FilterRelational()
</PRE><PRE class=prog_in_0> Dim sstext As AcadSelectionSet
</PRE><PRE class=prog_in_0> Dim FilterType(2) As Integer
</PRE><PRE class=prog_in_0> Dim FilterData(2) As Variant
</PRE><PRE class=prog_in_0> Set sstext = ThisDrawing.SelectionSets.Add("SS5")
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> FilterType(0) = 0
</PRE><PRE class=prog_in_0> FilterData(0) = "Circle"
</PRE><PRE class=prog_in_0> FilterType(1) = -4
</PRE><PRE class=prog_in_0> FilterData(1) = ">="
</PRE><PRE class=prog_in_0> FilterType(2) = 40
</PRE><PRE class=prog_in_0> FilterData(2) = 5#
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> sstext.SelectOnScreen FilterType, FilterData
</PRE><PRE class=prog_in_end_0>End Sub</PRE><PRE class=prog_in_end_0>下例指定选择 Text 或 Mtext 对象：

<PRE class=prog_in_0>Sub Ch4_FilterOrTest()
</PRE><PRE class=prog_in_0> Dim sstext As AcadSelectionSet
</PRE><PRE class=prog_in_0> Dim FilterType(3) As Integer
</PRE><PRE class=prog_in_0> Dim FilterData(3) As Variant
</PRE><PRE class=prog_in_0> Set sstext = ThisDrawing.SelectionSets.Add("SS6")
</PRE><PRE class=prog_in_0> FilterType(0) = -4
</PRE><PRE class=prog_in_0> FilterData(0) = "<or"
</PRE><PRE class=prog_in_0> FilterType(1) = 0
</PRE><PRE class=prog_in_0> FilterData(1) = "TEXT"
</PRE><PRE class=prog_in_0> FilterType(2) = 0
</PRE><PRE class=prog_in_0> FilterData(2) = "MTEXT"
</PRE><PRE class=prog_in_0> FilterType(3) = -4
</PRE><PRE class=prog_in_0> FilterData(3) = "or>"
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> sstext.SelectOnScreen FilterType, FilterData
</PRE><PRE class=prog_in_end_0>End Sub
过滤器列表中的符号名称和字符串可以包含通配符模式。

下表显示了 AutoCAD 能够识别的通配符以及每个通配符在上下文字符串中的含义： <TABLE class=BasicLeft cellSpacing=0 rules=cols><TBODY><TR class=row_0><TH class=BasicLeft_CELL colSpan=2>通配符

</TH></TR><TR class=row_0><TH class=BasicLeft_CELL>字符

</TH><TH class=BasicLeft_CELL>定义

</TH></TR><TR class=row_2><TD class=BasicLeft_CELL># （磅值符号）

</TD><TD class=BasicLeft_CELL>匹配任意一个数字

</TD></TR><TR class=row_1><TD class=BasicLeft_CELL>@ (at)

</TD><TD class=BasicLeft_CELL>匹配任意一个字母

</TD></TR><TR class=row_2><TD class=BasicLeft_CELL>. （句号）

</TD><TD class=BasicLeft_CELL>匹配任意一个非字母数字的字符

</TD></TR><TR class=row_1><TD class=BasicLeft_CELL>* （星号）

</TD><TD class=BasicLeft_CELL>匹配任意的字符序列（包括空字符串），它可以用在任何搜索模式中：包括开头、中间和结尾处

</TD></TR><TR class=row_2><TD class=BasicLeft_CELL>? （问号）

</TD><TD class=BasicLeft_CELL>匹配任意一个字符

</TD></TR><TR class=row_1><TD class=BasicLeft_CELL>~ （波浪号）

</TD><TD class=BasicLeft_CELL>如果它是模式中的的第一个字符，则匹配除此模式以外的任意内容

</TD></TR><TR class=row_2><TD class=BasicLeft_CELL>[...]

</TD><TD class=BasicLeft_CELL>匹配方括号中的任意一个字符

</TD></TR><TR class=row_1><TD class=BasicLeft_CELL>[~...]

</TD><TD class=BasicLeft_CELL>匹配不在方括号中的任意一个字符

</TD></TR><TR class=row_2><TD class=BasicLeft_CELL>- （连字符）

</TD><TD class=BasicLeft_CELL>用在方括号中，指定一个字符的取值范围

</TD></TR><TR class=row_1><TD class=BasicLeft_CELL>, （逗号）

</TD><TD class=BasicLeft_CELL>分隔两个模式

</TD></TR><TR class=row_2><TD class=BasicLeft_CELL>` （单引号）

</TD><TD class=BasicLeft_CELL>避开特殊的字符（直接读取下一个字符）

</TD></TR></TBODY></TABLE>

使用单引号 (`) 表示下一个字符不是通配符，而是普通字符。例如，要指定在选择集中只包含名为“*U2”的匿名块，请使用以下过滤器参数：

<PRE class=prog_in_0>FilterType(0) = 2
</PRE><PRE class=prog_in_end_0>FilterData(0) = "`*U2"
以下代码将选择条件定义为选择包含“The”的所有 Mtext。本例也说明了 <OBJECT id=alink_SelectByPolygon_AXM_454020 type=application/x-oleobject classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11><PARAM NAME="Width" VALUE="106"><PARAM NAME="Height" VALUE="53"><PARAM NAME="Command" VALUE="ALink"><PARAM NAME="Item1" VALUE=""><PARAM NAME="Item2" VALUE="S"></OBJECT>SelectByPolygon 选择方法的用法：

<PRE class=prog_in_0>Sub Ch4_FilterPolygonWildcard()
</PRE><PRE class=prog_in_0> Dim sstext As AcadSelectionSet
</PRE><PRE class=prog_in_0> Dim FilterType(1) As Integer
</PRE><PRE class=prog_in_0> Dim FilterData(1) As Variant
</PRE><PRE class=prog_in_0> Dim pointsArray(0 To 11) As Double
</PRE><PRE class=prog_in_0> Dim mode As Integer
</PRE><PRE class=prog_in_0> mode = acSelectionSetWindowPolygon
</PRE><PRE class=prog_in_0> pointsArray(0) = -12#:pointsArray(1) = -7#:pointsArray(2) = 0
</PRE><PRE class=prog_in_0> pointsArray(3) = -12#:pointsArray(4) = 10#:pointsArray(5) = 0
</PRE><PRE class=prog_in_0> pointsArray(6) = 10#:pointsArray(7) = 10#:pointsArray(8) = 0
</PRE><PRE class=prog_in_0> pointsArray(9) = 10#:pointsArray(10) = -7#:pointsArray(11) = 0
</PRE><PRE class=prog_in_0> Set sstext = ThisDrawing.SelectionSets.Add("SS10")
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> FilterType(0) = 0
</PRE><PRE class=prog_in_0> FilterData(0) = "MTEXT"
</PRE><PRE class=prog_in_0> FilterType(1) = 1
</PRE><PRE class=prog_in_0> FilterData(1) = "*The*"
</PRE><PRE class=prog_in_0>
</PRE><PRE class=prog_in_0> sstext.SelectByPolygon mode, pointsArray, FilterType, FilterData
</PRE><PRE class=prog_in_end_0>End Sub
</PRE></PRE></PRE></PRE>

cobalt 发表于 2004-11-2 08:53:00

昨晚发贴，今天就看到了王晓生、Lzh741206两位版主的热情回复，心里暖烘烘的。对两位版主的热情和耐心表示感谢。

tiger8888 发表于 2004-11-2 12:36:00

真是好文章

zzzzzz 发表于 2004-11-9 21:24:00

也问，如何设置如下过滤条件：

半径为1的园，以及红色的直线。

查看帮助及以上列表，不知如何运用。万望解答！

雪山飞狐_lzh 发表于 2004-11-9 22:06:00

Sub test() On Error Resume Next Dim ft, fd Dim ss As AcadSelectionSet ft = CreateArray(vbInteger, -4, -4, 0, 40, -4, -4, 0, 62, -4, -4) fd = CreateArray(vbVariant, "<or", "<and", "Circle", 1, "and>", "<and", "Line", 1, "and>", "or>") ThisDrawing.SelectionSets("TlsSS").Delete Set ss = ThisDrawing.SelectionSets.Add("TlsSS") ss.SelectOnScreen ft, fd End Sub

Function CreateArray(ByVal TypeName As VbVarType, ParamArray ValArray()) Dim i, mArray Dim nCount As Integer nCount = UBound(ValArray) Select Case TypeName Case vbDouble Dim dArray() As Double ReDim dArray(nCount) mArray = dArray Case vbInteger Dim nArray() As Integer ReDim nArray(nCount) mArray = nArray Case vbString Dim sArray() As String ReDim sArray(nCount) mArray = sArray Case vbVariant Dim vArray() ReDim vArray(nCount) mArray = vArray End Select For i = 0 To nCount mArray(i) = ValArray(i) Next i CreateArray = mArray End Function

myiiid 发表于 2014-2-25 08:27:52

虽然很久很久了，还是忍不住来赞一个~

慢慢来吧 发表于 2017-10-9 08:48:27

参数 FilterType (位于 Select 中) 无效

页: [1] 2

明经CAD社区's Archiver

在使用Select方法时如何设置FilterType, FilterData

回复