tiger0101 发表于 2005-11-9 19:57:00

我要选择厚度不会0的对像，请问选择过滤器如何设置

<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 我要选择厚度不会0的对像，请问选择过滤器如何设置</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 过滤器，难道只能用=</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 不能用不着&lt;&gt;&nbsp; ?</P>

王咣生 发表于 2005-11-9 20:17:00

reply

<P>可以:</P>
<P>Sub Example_Select()<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Create the selection set<BR>&nbsp;&nbsp;&nbsp; Dim ssetObj As AcadSelectionSet<BR>&nbsp;&nbsp;&nbsp; Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Add all the Circles to the selection set that lie within the crossing of (28,17,0) and<BR>&nbsp;&nbsp;&nbsp; ' (-3.3, -3.6,0) by filtering from the current drawing<BR>&nbsp;&nbsp;&nbsp; Dim gpCode(0 To 1) As Integer<BR>&nbsp;&nbsp;&nbsp; Dim dataValue(0 To 1) As Variant<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; gpCode(0) = -4<BR>&nbsp;&nbsp;&nbsp; dataValue(0) = "&lt;&gt;"</P>
<P>&nbsp;&nbsp;&nbsp; gpCode(1) = 39<BR>&nbsp;&nbsp;&nbsp; dataValue(1) = 0#</P>
<P><BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Dim groupCode As Variant, dataCode As Variant<BR>&nbsp;&nbsp;&nbsp; groupCode = gpCode<BR>&nbsp;&nbsp;&nbsp; dataCode = dataValue<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ssetObj.Select acSelectionSetAll, , , groupCode, dataCode<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; MsgBox ssetObj.Count<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ssetObj.Delete<BR>&nbsp;&nbsp;&nbsp; <BR>End Sub</P>

tiger0101 发表于 2005-11-10 20:00:00

3kuvery much
页: [1]
查看完整版本: 我要选择厚度不会0的对像，请问选择过滤器如何设置